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TTL INTRODUCTION— GENERAL COMMENTARY 
FASTRAN IS A FORTRAM II COMPILER WRITTEN FOR THE IBM 
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709/7090/7094 SERIES OF COMPUTERS. FASTRAN STANDS FOR FAST FT000450 

FORT RAN. IT WAS DESIGNED AND WRIT TEN AT INDIANA UNIVERSITY FT00046G 

IN LATE 1963 AND EARLY 1964 BY STANLEY HAGSTROM, FRANKLIN FT06b470 

PROSSER, AND STEPHEN YOUNG. THE PROJECT WAS UNDERTAKEN FOR TWO FT000480 



REASONS. FIRST, WE WERE DISSATISFIED WITH THE COMPILATION SPEED FT000490 

0F_ IBM'S FORTRAN JI_CQMP_IL£R. SECO_ND_,_ WE WI SHED TO GAIN SJ3ME FT000500 

EXPERIENCE IN COMPILER-WRITING TECHNIQUES. THE ORIGINAL GOAL FT000510 

WAS TO PRODUCE A COMPILER WHICH WOULD COMPILE FT000520 



PROGRAMS QUICKLY, PROBABLY AT THE EXPENSE OF OBJECT PROGRAM 

LENG TH AND EFFICIENCY. _ 

THE GOAL OF FAST COMPILATiON WAS READILY ACHIEVED. HOWEVER, 
TO OUR PLEASANT SURPRISE, THE RESULTING OBJECT PROGRAMS WERE 



IN GENERAL SHORTER THAN IBM'S, AND THE EXECUTION TIMES DID 

NOT COMPAR E TOO UNFAV ORABLY, E VEN IN TH E EARLY VERSIONS. _ 

REM 

IN A SENSE, FASTRAN IS AN OUTGROWTH O F AN EARLIER EFFORT AT 

INDIANA UNIVERSITY BY DAVID KURN AND ONE OF THE AUTHORS «SH) 

TO PRODUCE A LOAD-AND-GO COMPILER {CALLED FLAT AND BASED ON A 
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GENERALIZATION OF THE FORTRAN IV LANGUAGE) DURING THE SUMMER OF FT000630 
1962. THIS PROJECT, ALTHOUGH EVENTUALLY ABANDONED, SHOWED FT000640 



CLEARLY HOW TO ACHIEVE HIGH COMPILE SPEEDS WITH REASONABLE 
OBJECT CODE EFFICIENCY. M ANY OF THE TECHNIQUES USED IN FLAT 
HAVE ALSO BEEN USED IN FASTRAN, INCLUDING THE METHOD OF SCANNING 
JSTATEMENTS AND PROCESSING, ARITHMETIC EXPRESSIONS. IN FACT, 



INITIALLY SOME SECTIONS OF THE FLAT CODE WERE TAKEN OVER BODILY 
TO FASTRA N. IT IS DOUBTFUL IF WITHOUT THIS EARLIER EXPERIENC E 
ON FLAT WE COULD HAVE AVOIDED THE MANY PITFALLS AWAITING THE 
COMPILER WRITER AND HAVE SO EASILY MET OUR ORIGINAL GOALS. 
IT IS ESTIMATED THAT FROM START TO FINISH REQUIRED ABOUT NINE 
MAN-MONTHS OF EFFORT FOR THE FIRST VERSION OF FASTRAN, WITH 
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MAYBE THREE MAN-MONTHS MORE REQUIRED FOR REFINEMENTS- 
REM 



FT000750 
FT000760 



FASTRAN IS A TWO-PASS IN-CORE COMPILER THAT USES A SINGLE SCRATCHFT000770 
TAPE IN THE COMPILATION OF LARGE PROGRAMS. FASTRAN ACCEPTS THE FT000780 



COMPLETE FORTRAN II LANGUAGE, INCLUDING HOLLERITH LITERALS AND FT000790 

nniiBi c opcriCTHM Aivtn rnupi cv »oTTu«cTTr «i en a ci rxA-r-thtf crnnrtonn 

*^vjv»w*»j_ « Cvi-vj- a -j x un *tiviy v#unr i_t_/\ him i iiru. i x%*m hlju) hi ruuHi i.i*Kr r i i/uuouy 

ROUNblNG" FEATURE U FT 000810" 

SUBTITLING IS PERMITTED. FASTRAN MAY OPERATE IN A MONITOR FT000820 

SYSTEM SUCH AS FMS, OR IT MAY BE EXECUTED AS AN FMS J0B7 WITH F TOO 0830 

SOURCE PROGRAMS AS THE DATA. UN THIS LAST MODE, CLEARLY NO FT00Q840 

OBJECT PROGRAM EXECUTION IS POSSIBLE FOLLOWING COMPILATION.) FT000850 

REM FT000860 



OUR AIM HAS BEEN TO MAINTAIN COMPATIBILITY WITH IBM'S FMS-II 
VERSION OF FORTRAN II. FASTRAN PRODUCES AN OBJECT PROGRAM 



BINARY DECK WHICH IS COMPLETELY ACCEPTABLE TO THE BSS LOADER, 
THE STANDARD FMS LIBRARY IS UTILIZED, AND FASTRAN'S CALLS TO 



THESE LIBRARY ROUTINES ARE IDENTICAL TO THOSE OF FORTRAN II. 

THE FASTRAN AND FORTRAN U BINARY DECKS ARE COMPLETELY INTER- 

CHANGABLE AS FAR AS SYSTEM FUNCTIONS ARE CONCERNED. FORTRAN II 

SOURCE LANGUAGE DEBUGGING MAY BE USED WITH FASTRAN-CQMPILED 

PR0^UHS.""'"'Td"00""'fHIS7 A SYMBOL TABLE MUST BE REQUESTED," JUST 

AS IN I8M'S FORTRAN II. 

REM 

FASTRAN IS WRITTEN TO OPERATE USING THE INDI ANA UNIV ERSITY 

iNPUT/OUTPUT SYSTEM, IOS. f HIS" SYSTEM AUTOMATICALLY PROVIDES 

BLOCKING AND BUFFERING FOR ALL INPUT/OUTPUT. A BRIEF DESCRIPTI0NFT001000 

OF IOS, AND A DISCUSS I ON OF ' "FASTRAN 'T" INPUT/OUTPUT REQUIREMENTS FT001010 

ARE PROVIDED IN LATER PAGES. WITH THIS INFORMATION, THE TASK FT001020 
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FT000990 



OF IMPLEMENTING FASTRAN WITH ANOTHER I/O SYSTEM IS GENERALLY 
NOT D IFFI CULT. NOTICE^ THA_T_ WITHOUT BLOCKING AN D BUFFERING OF 

TAPE-BOUND, 



AND THE COMPILE SPEEDS WILL 



TAPES, FASTRAN WILL BE 

SUFFER. __ ____ _ ^ _____ __ 

"rem""""" 

if fastran is used with an adequate input/output system (such 



AS IOS), COMPILATION SPEEDS ARE OBTAINED THAT ARE 
TIMES FASTER THAN THE IBM FORTRAN II UNDER FMS II 



10 TO 100 

AN 'AVERAGE' 



COMPILE TIME FACTOR IS ABOUT 13, BUT VERY SHORT PROGRAMS 
j*lESULLL N Q U I TE J- ARGE LI£ HE FACTORS, AND IN GENERAL THE SH ORTER 
THE PROGRAM, t HE LARGER THE "RATIO OF FORTRAN II 
COMPILE TIMES. THIS TREND IS DUE MAINLY TO THE 



VS FASTRAN 
SUBSTANTIAL 



OVERHEAD TIME IN ISM'S COMPILER. NEVERTHELESS, FOR LARGE 
PROGRAMS, THE TIME FACTOR APPEARS TO APPROACH 10, SO FASTRAN 



MAY BE CONSERVATIVELY 
JIMES FASTER THAN THE 

REM 

OUR EXPERIENCE SHOWS THAT 
A V ER AGE S ABOUT TEN 
FORTRAN II. THIS 



SAID TO RUN AT 
IBM COMPILER. 



A BASIC SPEED ABOUT TEN 



THE OBJECT CODE PRODUCED BY FASTRAN 



PERCENT SHORTER THAN THAT PRODUCED BY IBM'S 
FIGURE IS BASED ON A CONSIDERATION OF NUMBER 



OF INSTRUCTIONS, 
REM 



WORKING CELLS, AND CONSTANTS PRODUCED. 
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THE EXECuflON TIME OF FASTRAN-MODUCED OBJECT PROGRAMS IS 

GENERALLY SLIGHTLY LONGER THAN FOR IBM'S VERSIONS. THIS IS 

^^j^y^j^ MAINty -_ Q th _ _-. _. -_ IND£XI ^ G op TIM iZATION IN THIS 

VERSION OF FASTRAN. _THE_ MOST USEFUL FORMS OF I NDEXING IMPROVE - 
MENT ARE FORTUNATELY RATHER ""EASY TO IMPLEMENT IN FASTRAN, AND 
THIS IS CURRENTLY BEING DONE. ODDLY ENOU GH, WE ANTICIPATE TH AT 
SINCE IMPROVED : 'INDEXING ^ WIClF URf HER SHORTEN THE OBJECT CODE, 

FAST R AN COMP IL ATIONS SHOUL SPEED UP_ A_ ALT • .__ 

REM 

FASTRAN IS AN IN-CORE COMPILER. IT CAN RE MAIN IN CORE THROUGH 

THE COMPILATION OF" A NUMBER OF CONSECUTIVE FORTRAN PROGRAMS. 

THIS ALLOWS A VERY SMALL SYST EM OVERHEAD TIME. THERE ARE NO 

EXTRANEOUS PASSES OVER THE MATERIAL TO BE COMPILED, 

IS ONE PASS OVER THE SOURCE DECK, AND A SECO ND AND 
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THERE 
FINAL PASS 



FT001370 
FT001380 



OVER THE INTERMEDIATE MATERIAL TO 
SHORT AND MEDIUM-LENGTH PROGRAMS ARE 



PRODUCE THE 

rnunn rr\ 



BINARY DECK, 



FT001390 



MAINTAINED) 
WRITTEN, 



NO SCRATCH TAPE IS USED (I.E. AN INTERNAL FILE IS 

A^kPJ^AEJ 1 PROGRAMS, A SINGLE INTERMEDI ATE TAPE IS 

REWOUND, AND THEN READ SEQUENTIALLY. THERE IS NO DELAY DURING 
1 H£ REMIUQ+ SIM LB THE INXER&AL FXLE IS PROCESSED AT THIS TIME. 
THE COMPILATION DOES NOT PROCEED THROUGH A SYMBOLIC ASSEMBLY 
PHASE L THUS ELIMINATING ADDITIONAL TIME-CONSUMING OPERATIONS 
{THIS IS OF COURSE DONE AT THE QUESTIONABLE EXPENSE OF AN 

ASSEMBLY LISTING OPTION). ^ 

IT IS" PERHAPS "APPROPRIATE AT THIS POINT TO STRESS THAT FASTRAN 
IS BASJCALLY A J3NE-PASS COMPILER, THE SECOND PASS BEIN G REQ UIRED 
SOLELY BY THE BSS BINARY DECK FORMAT (I.E. PROGRAM CARD FIRST 

AND NO PROV IS I ON FOR CH AJNED BACKFI LLS , ETC.) . 

REM"""' 

ALL SOURCE PROGRAM SYMBOLS AND LABELS ARE PLACED IN A SYMBOL 



TABLE (SYMTAB) WHOSE SIZE IS 4096 WORDS. THE METHOD OF 
ASSIGNING A SYMBOL OR LABEL TO A LOCATION IN SYMTAB IS SUCH THAT 
NO LENGTHY SEARCHES OR SORTS ARE NECESSARY. A SCRAMBLED SORT 
JTECHNJQUE IS USED, WHEREBY JHE^ BITS _IN A BCD SYMBOL OR LABEL 
ARE CONCENTRATED INTO A 12-BIT FIELD (2**12=4096). THIS IS 
DONE BY MULTIPLYING THE BCD S YMBOLIC NA ME BY A SIMPLE STA NDARD 
TNtTGEfU"1^ND""EirrRACUNG A TWELVE-BIT FIELD FROM THE RESULT. 
THE POINTER THUS OBTAINED IS NORMALLY THE SYMTAB LOCATION 
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OF THE SYMBOL OR LABEL. IF HOWEVER THE LOCATION IS ALREADY 
OCCU PIED BY A DIFFERENT SYH80L (UNL IKELY IN HOST PROGR AMS) , THEN 
THE SYMBOL IS ASSIGNED TO THE NEXT AVAILABLE LOCATION* TO 
LOCATE A SYMBOL IN SYMTAB, THE SAME COMPUTATION IS PERFORMED. 
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IF THE SYMBOL IS NOT AT THE COMPUTED LOCATION, A SEQUENTIAL 
SEARCH IS PERFORMED UNTIL EITHER THE ITEM IS LOCATED, OR AN 



EMPTY CELL IS ENCOUNTERED. (THE EMPTY CELL MEANS OF COURSE 
THAT THE SYMBOL _I_S NOT_INJTHE TABLE, AND IT MAY BE INSERTED 
IF DESIRED IN THE LOCATED EMPTY CELL). 

THE TECHNIQUE IS V ERY RAPID FOR SPARSEL Y-FILLED SYMBOL TABLES. 
IT BECOMES LESS EFFICIENT AS THE TABLE FILLS UP, SINCE MORE AND 
LONGER SEQUENTIAL SEARCHES. W I LL_BE PERFOR MED. HOWE VER, A VERY 
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LARGE PROGRAM IS REQUIRED TO FILL THE TABLE MORE THAN SPARSELY. 

REM „_„ _. .... . 



EACH SYMTAB WORD HAS A COUNTERPART IN ANOTHER 4096-WORD TABLE, 
EQUIV. EQUIV CONSISTS PRIMARILY OF FLAG BIT S DESCR IB ING THE 
CORRESPONDING SYMTAB ENTRY, AND AN ADDRESS POINTER WHICH MAY BE 
USED TO DEFINE THE VALUE OF THE ENTITY, OR TO POINT INTO A 



GENERAL POOL AREA WHERE MOST ADDITIONAL INFORMATION IS STORED. 

REM 
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THE FORMAT OF THE EQUIV TABLE ENTRY IS DESCRIBED NOW IN GENERAL 
TERMS. THE ACTUAL BI T CO N FIGURATIONS FOR THE VARIOUS FLAGS A ND 
FIElbT ARE FOUND IN THE REAR OF THE LISTING, UNDER 'ABSOLUTE 

SYMBOL DEFINITION S'. __ _ 

REM 

THE PREFIX^ OF AN EQUIV WORD HOL DS THE MOD E OF THE ITEM_. THE 

MODE IS REPRESENTED BY A THREE-BIT FIELD, AND NOT AS INDIVIDUAL 

BITS. THE FOUR MODES_ARE MLABLJLABEL ON EXECUTABLE STATEMENT), 

HSTRG' (FORMAT STRING LABEL), MINTG (INTEGER VARIABLE OR FUNCTION 

NAME), AND MREAL (REAL VARIABLE OR FUNCTION NAME). 

REM 

BITS 3-14 HOLD BIT FLAGS__D£SCRIBJ[NG THE STA TUS OF THE SYMTAB 

ITEM. NORMALLY EACH BIT STANDS FOR A SINGLE ITEM OF INFORMAf I0N.FT001950 
HOWEVER, SOME BITS ARE USED FOR TWO OR MORE TASKS, IF NO CQNFU- FTQ0196Q 
SIGN "CAN RESULT. ThEBI T FLAGS AND THEIR INTERPRETATIONS ARE... FT001970 
REM FT00198Q 



FT001830 

FJJD 018 40 
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FT001860 
FT00187G 
FT001880 
FT001890 
FT00190G 
FT0G1910 
FT001920 
FT001930 
FT001940 



BVARB... SYMBOL HAS APPEARED AS A VARIABLE IN AN EXECUTABLE 

OIAI CiicrM 1 , AJMU l nuo _nuo I oc ucr lnjcu iw «_ric r(\uon \Hn> 



BLHSX... SYMBOL OR LABEL HAS BEEN DEFINED (HAS A "LEFT-HAND 

VALUE • ) • „__ : __ 

_____^^ AS A DOUBLE PRECISION 

OR A COMPLEX VARiAaL£# AiND THUS MUST HAV£ DOUBLE STORAGE. 
BARGT... SYMBOL IS A FORMAL SUBPROGRAM PARAMETER. 
BARRY... SYMBOL APPEARS IN A DIMENSION ST AT_EMENT_s__ ADDRESS FIELD 

OF EQUIV WORD POINTS TO THE COMMON/DIMENSION/EQUI VALENCE 

INFORMATION IN THE POOL AREA. . _ 

BCOMN... SYMBOL APPEARS IN A COMMON STATEMENT. ADDRESS FIELD 

OF EQUIV WORD PO_IN_TS TO POOL AREA. 

8EQUV... SYMBOL APPEARS IN ONE OR MORE EQUIVALENCE STATEMENTS. 

ADDRESS FIELD OF EQUIV WORD POINTS TO POOL AREA. _ 



BASSN... SYMBOL APPEARS AS THE VARIABLE IN AN ASSIGN OR 

ASSIGNED GO TO STATEMENT. ADDRESS FIELD O F EQUIV WORD POINTS 
TO ASSIGN LISTS IN POOL AREA. 

BINTF... SYMBOL IS USED AS AN ARITHMETIC STATEMENT FUNCTION 
NAME. 

BEXTF... SYMBOL IS USED AS AN EXTERNAL NAME. 
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BLIBF... EXTERNAL SYMBOL NAME IS CURRENTLY OF LIBRARY FUNCTION 
TYPE, I.E. ENDS IN.JF^._ __ _ 

BPATH... '"LABEL IS ™IN THE PATH OF FLOW OF THE PROGRAM, I.E. THERE 
IS A WAY FOR THE PROGRAM FLOW TO REACH THIS STATEMENT. 
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REM 

BJIS 15- 20 HOLD THE SUBPROGRAM ARGU MENT NUM BER* IF BARGT IS ON. 

A MAXIMUM OF 64 FORMAL PARAMETERS CAN BE HANDLED. 

REM _____ _____ ,. _ _____ _ _ __ ___ 

BITS 21-35, THE ADDRESS FIELD, HOLD A SYMBOL OR LABEL iDEFINITIGN, 
OR IF CERTAIN EQUIV FLAGS ARE ON, POINT TO FURTHER INFORMATION 



IN THE POOL AREA OR ELSEWHERE. 
REM 
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ASIDE FROM SYMTAB AND EQUIV, THERE ARE VERY FEW FIXED-LENGTH 
TABLES IN FASTRAN. TH IS ALLOWS MAXIMUM FLEX IBILITY IN THE USE 
OF AVAILABLE STORAGE. CONSEQUENTLY, fHE LIKELIHOOD OF 
•OVERFLOW OF THE COMPILER IS QUITE REMOTE. 



REM 

A BRIEF SURVEY OF THE COMPILATION PROCESS IS GIVEN HERE. MORE 



FT002310 
FTO0232O 
FT002330 
FT0O234O 
FT002350 
FT002360 



IS LOGICALLY 
PASS 1, POST 



DIVIDED 
PASS 1, 



INTO 
PASS 



FIVE SECTIONS... 
2, AND POST PASS 



INITIALIZATION, 
2. 



DETAILED INFORMATION IS TO BE FOUND IN DESCRIPTIONS OF THE FT002370 
INDIVIDUAL SECTIONS IN THE BODY OF THE LISTING. THE COMPILATION FT002380 

FT002390 
FT002400 
FT002410 
_FT002420 
FT0O243Q 
FT002440 
FT002450 
FT002460 



REM 
INITIALIZATION 



IS VERY SHORT, BEING CONCERNED WITH SETTING 



VARIOUS CELLS TO THEIR INITIAL VALUES. 

REM _ _ 

PASS 1 IS THE PRIMARY PASS OVER THE "SOURCE DECK. THE SOURCE" 

PROGR AM IS LJSJED, THE S TATE MENTS ARE SCANNED A ND INTER PRETED, 

THE SYMBOL TABLE IS FORMED, VARIOUS LISTS ARE GENERATED, AND MANYFT002470 



TYPES OF ERRORS ARE DETECTED. INTERMEDIATE OBJECT CODE IS 



PREPARED, TO BE PROCESSED IN PASS 2 WHEN THE SCAN OF THE SOURCE 

DECK IS ^COMPLETE. _ _ __ 

REM 

POST PASS 1 PROCESSES THE SYMBOL TABLE, DETECTS ALL REMAINING 
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Ft6625l6 
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FT002540 



ERRORS (ERRORS INVOLVING RELATIONS BETWEEN THE VARIOUS PROGRAM 

ITEMS) , COMPUTES THE OBJECT PROGRAM LENGTH AND PUTS OUT THE 

BINARY DECK PROGRAM CARD, DEFINES ALL VARIABLES. IF THIS PROGRAMFT002550 

IS A SUBROUTINE OR FUNCTION, ITS PROLOGUE IS FORMED HERE* FT002560 



IF AN OBJECT PROGRAM SYMBOL TABLE HAS BEEN REQUESTED, IT IS 
FORMED AND PUT OUT PRIOR TO THE PROGRAM CARD. 



POST PASS 1 IS ENTERED ONLY IF PASS 

©CM 



1 WAS FREE FROM ERRORS. 



FT002570 
FT002580 
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PASS 2 PROCESSES THE INTERMEDIATE OBJECT CODE, PRODUCING THE FT002610 

THE FINAL CODE AND THE REMAINDER OF THE BINARY DECK. FT002620 

REM '" "~ """""' " " """"—" "-- • ' ~ -"" ~" -" FT002630 

POST PASS 2 PUTS OUT THE OBJECT PROGRAM STORAGE MAP, AND FT002640 



TERMINATES THE COMPILATION. PASS 2 AND POST PASS 2 
ENTERED ONLY FOR ERROR-FREE COMPILATIONS. 



ARE 
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$p AC E 2 F 1002670 

A~FEW WORDS ON"FASTRAN s S ERROR DETECTION PHILOSOPHY ARE IN ORDER. FT0G2680 
MOST ERRORS, INCLUDING TYPOG RAPHICAL AND SYNTACTICAL ERRORS , ARE FT002690 

FT002700 
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FT0G272Q 
FT002730 



CAUGHT DURING PASS 1, THE PRIMARY PASS OVER THE SYMBOLIC DECK. 
WE FEEL THAT DIAGNOSTI C .MESSAGES _ARE MOST INFORMATIVE WHEN THE Y 
ARE ISSUED ALONG WITH THE ERRONEOUS 



MOST ERROR MESSAGES IN FAS TRA N WIL L 



STATEMENT. THEREFORE, 
APPEAR IN THE LISTING OF 



THE 



SOURCE "PROGRAM IMMEDIATELY FOLLOWING THE STATEMENT IN ERROR. 

T HERE ARE SOME ERRORS, N AMELY INVOLVING I NTER-STATEMEN T 

RELATIONS, THAT CANNOT BE DETECTED UNTIL THE 
BEEN READ. THESE THEN ARE GIVEN IMMEDIATELY 



FT00274G 
FT002750 



CARD. ALL ERROR MESSAGES ARE 
OF ASTERISKS AT THE LEFT SIDE 



SIGNALLED 8Y 
OF THE PAGE. 



ENTIRE DECK HAS 
FOLLO WING THE END 
SERIES 



AN OBVIOUS 



FT002760 
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REM 
THE 



DIAGNOSTIC MESSAGES ARE AS INFORMATI VE AS POSSIBLE WITHOUT 



FT002800 
FT002810 



UNDULY SACRIFICING COMPILATION SPEED, AND WITHOUT UNDULY CHANC INGFT002S20 
IHEJtONFUSl ON OF T HE PROGRAMME R. IN RESERVED WORD (FIX ED FORMAT) FT00 2830 
"STATEMENTS ."ONE 'CAN BE RATHER SPECIFIC WITHOUT RISK OF CONFUSING 
THE SUBMITTER OF THE PROGRAM. HOWEVER, SPEC IFIC DIAGNOSTICS ARE 
IN GENERAL AVOIDED IN ARITHMETIC STATEMENTS, SINCE WE FEEL THAT 

TOO OFTEN A SPECIFIC MESSAGE DOES_NQT IN FACT IDENTIFY THE 

PROGRAMMER'S 



DIFFICULTY, BUT INSTEAD CAUSES HIM MOMENTARY 
PUZZLEMENT. THEREFORE, A COMMON ARITHMETIC STATE MENT ERR OR 
MESSAGE IS SIMPLY ^INVALID FORM OF STATEMENT*. 

REM _ __ 

IN PASSING W£ NOTE THAT FASTRAN DETECTS 
IBM'S FORTRAN II WILL NOT CATCH. AMONG 



MANY TYPES OF ERRORS 
THESE ARE. .. 
CONSISTENCY ERRORS IN ASSIGN/ASS IGNED-GO-T USAGE, 
VARIABLES, RELATIVE CONSTANT ERRORS, ERRO RS IN THE 



UNDEFINED 
CONSISTENCY 



OF ARITHMETIC STATEMENT 

•75 GO TO 75«. 

REM 

ALSO, A NUMBER OF VALID 



FUNCTION USAGES, AND NONSENSE SUCH AS 



FT002840 
FT002850 
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FT0Q288G 
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FT002910 

THATFT0G2920 
FT00293Q 
FT002940 
FT 00 2 9 50 
FT002960 
FT002970 



FT002980 
5 1 TUAI l UN 5 IN V Qt-V l^G r u k t k «n» n - *i un« w f - nu« cy^t\j_ 
COME-LATELY • FEATURES, SUCH AS HOLLERITH LITERALS AND DOUBLE PR£-FT0Q30d0 

CISION AND COMPLEX ARITHMETIC, ARE HA NDLED CORRECTLY AND _ FJ0030JL0 

Ft 003020 



CONSISTENTLY IN FASTRAN, WHILE FORTRAN II COMPILES 
OR INCONSISTENTLY. (DETAILS WILL BE SUPPLIED UPON 



ERRONEOUSLY 
REQUEST). 



FT 0030 30 



SPACE 2 _F L003040 



TTL INT R uT't ION — FASTRAN STORAGE LAYOUT 
FASTRAN COMPILER CORE STORAGE LAYOUT 



FT003050 
FT003060 
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SPACE 3 

THE. LAYOUT OF CORESJORAGE IN THE FA STRAN 
THE CORE LOCAf IONS OF THE VARIOUS SECTIONS 
JJUBJECT TO CHANGE. MOST LOCATIONS ARELNQT 
NOT SHOWN. 



FT003070 

IS AS FOLLOWS. FT003080 

OF COURSE" FTOO309O 

IMPORTANT , AND ARE_ FTOOMOg 

FT003110 



COMPILER 
ARE 



Q'jQQQ 


SPACE 
REM 


3 

MONITOR CELLS, ETC 


FT003120 
FT0G3130 


144 

in 000 


REM 
REM 

REM 
REN 


INPUT/OUTPUT SYSTEM (INDIANA UNIVERSITY IOS ) 
BEGINNING OF FASTRAN COMPILER 


FT003140 
FT003150 




INITIALIZATION OF COMPILER 

ONE-TIME INITIALIZATION WHEN COMPILER ENTERS CORE 


FT003160 
FT003170 




REN 
REM 


INITIALIZATION FOR EACH COMPILATION 
INITIAL CARD PROCESSING 


FT003180 
FT003190 




REM 
REM 


BURSTING OF CARD 
STATEMENT LABEL AND MODE 


FT003200 
FT003210 




REM 
REM 


DETERMINATION OF STATEMENT TYPE 
STATEMENT TERMINATION ROUTINE 


FT003220 
FT003230 




REM 
REM 


PASS 1 STATEMENT PROCESSORS 
ARITHMETIC STATEMENT PROCESSING 


FT003240 
FTO0325G 




REM 


COMPILER 


FT003260 



INDIANA UNIVERSITY FASTRAN (FAST FORTRAN II) COMPILER 



SPACE 5 

*LA__S_T RAN (F_A_S_J 

SPACE 5 

AUTHORS... 



FORTRAN II) COMPILE 



STANLEY HAGSTROH 
FRANKLIN PROSSER 



SPACE 



STEPHEN YOUNG 
3 



RESEARCH COMPUTING CEN1ER, INDIANA UNIVERSITY 
REM 



BLOOMINGTON, INDIANA 

R EH 

1964 
SPACE 8 



FTOOOOOO 
FTOOOOIO 



FT000020 
FT000030 





FT000040 




FT000050 




FT000060 




FT000070 




FT00OO8O 




FT000090 




FTOOOIOO 




FTOOOllO 




FT000120 




FTOOC130 



FT000140 
FT000150 



COPYRIGHT INDIANA UNIVERSITY FOUNDATION 1964 



FT000160 



EJECT FT000170 PAGE 

PCC ON ___ FTO00180 

COUNT 15000 FTOQQ190 

LBL 1FSTR FT000200 



NOCRS FT000210 

TITLE FT000220 



PCC OFF FT00G230 



# 


TTL INTRODUCTION 


FT0G024G 
FT000250 


PAGE 




REM 
SPACE 9 


FT000260 
FT000270 




it 


******#♦ * * ♦ 
REN 


FT000280 
FT000290 




* 


FAS TRAM COMPILER 
REM 


FT000300 
FT000310 




* 


RESEARCH COMPUTING CENTER 
REM 


FT000320 
FT000330 




«• 


INDIANA UNIVERSITY 
REM 


FT00034Q 
FT000350 
FT000360 
FT000370 




» 


BLOOMINGTON, INDIANA 
SPACE 3 




*■ 


• ■ # * # w * 4 * * * # 

REM 


FT000380 
FT000390 




* 


GENERAL COMMENTARY 
REM 


FTG0040G 
FT000410 




* 


****.»»*»»*» 


FT000420 





* 

* 

# 
* 

# 
* 

* 

* 
* 
* 

* 

# 
* 
* 

* 
6 

* 

» 

* 

# 

* 
* 

♦ 

* 

* 

* 
* 

* 
# 

* 

* 

* 
« 



TTL INTRODUCTION— GENERAL COMMENTARY 
FASTRAN IS A FORTRAN II COMPILER WRITTE N FOR THE IBM 



709/7090/7094 SERIES OF COMPUTERS, FASTRAN STANDS FOR FAST 
FORTRAN. IT WAS DESIGNED AND WRITTEN AT INDIANA UNIVERSITY 



IN LATE 1963 AND EARLY 1964 BY STANLEY HAGSTROM, FRANKLIN 

PROSSER, AND STE PH EN YOUNG . THE PROJECT WAS UNDERTAKEN FOR T WO 

FIRST, WE WERE DISSATISFIED WITH THE COMPILATION SPEED FTOG0490 



FT000430 
FT000440 
FT000450 
FJ 000460 
FT000470 
FT000480 
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REASONS. 

OF IBM'S FORTRAN II COMPILER. 



SECOND, WE WISHED TO GAIN SOME 



EXPERIENCE IN COMPILER-WRITING TECHNIQUES. THE ORIGINAL GOAL 
WAS TO PRODUCE A COMPILER WHICH WOULD COMPILE 



PROGRAMS "QUICKLY, PROBABLY AT THE EXPENSE OF OBJECT PROGRAM 
LENGTH AND EFFICIENCY. 



FT000500 
FTOObSlO 
FT000520 

FfbbbsSo 

FT000540 



THE GOAL OF FAST COMPILATION WAS READILY ACHIEVED. HOWEVER, 
TO OUR PLEASANT SURPRISE, THE RESULTIN G OBJECT PROGRAMS WERE 



IN GENERAL SHORTER THAN IBM'S, AND THE EXECUTION TIMES DID 
NOJ COMPARE TOO .UNFAyORABLY, EVEN IN THE EARL Y VER SIONS. 
R. £ M '"" " 

JJi A SENSE, FASTRA N IS AN OUTGROWT H OF AN EARLIER EFFORT AT 
INDIANA UNIVERSITY BY DAVID KURN AND ONE OF THE AUTHORS (SH) 
TO PRODUCE A LGAD-AND-GO COMPILER ( CALLED FLAT AND BASED ON A 



FT000550 
FT00056G 
FT000570 
FT000580 
Ffb00590 
FT000600 
Ffb006lb 
FT000620 



GENERALIZATION OF tHE FORTRAN IV LANGUAGE) DURING THE SUMMER OF FT000630 
1962. THI S PROJECT ,^ ALTHOUGH EVENTU ALLY ABANDONED, SHOWED _L™0£6*° 
CLEARLY HOW fO ACHIEVE HIGH COMPILE SPEEDS WITH REASONABLE FT000650 
OBJECT CODE EFFICIENCY. _MAJ1Y__ OF THE TECHNIQUES USED IN FLAT FT000660 
HAVE : ALSO "BEEN USED IN FASTRAN, INCLUDING THE METHOD OF SCANNING FT000670 



STATEMENTS AND PROCESSING ARITHMETIC EXPR ESSIONS. IN FACT, 



INITIALLY SOME SECTIONS OF THE FLAT CODE WERE TAKEN OVER BODILY 
TO FASTRAN. IT IS DOUBTFUL IF WI THOUT THIS EA RLIER EXPERIENCE 
ON FLAT WE COULD HAVE AVOIDED THE MANY PITFALLS AWAITING THE 
COMPILER W RITE R AND HAVE SO EASILY MET OUR ORIGINAL GOALS. 
IT IS "TsflMATEO THAT FROM START TO FINISH REQUIRED ABOUT NINE 

MAN-MONTHS OF EFFORT^ FOR THE FI RST VERSION OF FASTRAN, WITH 

MAYBE THREE~MAN-MONtHS""MbRE" REQUIRED FOR REFINEMENTS. 

REM 



FT000680 
FT000690 
FX000700 
FT000710 
FT000720 
FT000730 
fJ000740 
Ff6'60750 
FT000760 



______ a Ty0 . pASS i N - C oRe COMPILER THAT USES A SINGLE SCRATCHFT000770 

TAPE IN THE COMPILATION OF LARGE PROGRAMS. FASTRAN ACCEPTS THE FT000780 



FT000790 



"SYSTEM SUCH AS FMS, OR IT MAY BE EXECUTED AS AN FMS JOB, WITH 

SOURCE PROGRAMS AS THE DATA. t IN THIS LAST MODE, CLEARLY NO 

OBJECT PROGRAM EXECUTION IS POSSIBLE FOLLOWING COMPILATION.) 

REM 



COMPLETE FORTRAN II LANGUAGE, INCLUDING HOLLERITH LITERALS AND 

UUUtJLt PKCl. i M UP! AilU UUh rLCA Ml\ I I nncn u hUui m r LuA < i m\y 

ROUNDING FEATURE IS IMPLEMENTED," AND PAGE SPACING, EJECTING, AND FT000810 
SUBTITLING IS PERMITTED. FASTRAN MAY OPERATE IN A MON ITOR FT000820 

FT000830 
FT000840 
FT000850 
FJ000S60 
FT000870 
FT000880 
FT000890 
FJ000900 
FT 0009 10 
FT000920 
FT000930 
FT000940 
"FT000950 
FT000960 
FT000970 
FT0GO980 
FT000990 



OUR AIM HAS BEEN TO MAINTAIN COMPATIBILITY WITH IBM'S FMS-II 
VJ=RSiQ_ N OF^ F jO R JBM-JU [ -^- FAS J RAN PRODUCES AN OBJECT PROGRAM 
BINARY DECK WHICH IS COMPLETEIy ACCEPTABLE TO THE BSS LOADER. 
THE STANDARD FMS LIBRARY IS UTILIZED, AND FAS TRAN' S CALLS TO 
THESE LIBRARY ROUTINES ARE IDENTICAL TO THOSE OF FORTRAN II. 
THE FASTRAN AND FORTRA iM II BINARY DECKS ARE COMPLETELY INTER- 
CHANGABLE AS FAR AS SYSTEM FUNCTIONS ARE CONCERNED. FORTRAN II 
SOURCE LANGUAGE DEBUGGING MAY BE USED WITH FASTRAN-COMPILE P 
"PROGRAMS. TO DO THIS, A SYMBOL TABLE MUST BE REQUESTED, JUST 

AS IN IBM'S FORTRAN II. __ 

REM 

FASTRAN IS WRITTEN TO OPERATE USING THE INDIANA UN IVERSITY 

INPUT/OUTPUT SYSTEM, IDS. THIS SYSTEM AUTOMATICALLY PROVIDES 
BLOCKING AND BUFFERING FOR ALL IN PUT/OUTPUT. A BRIEF DESCRIPTIONFT0Q1OO0 
OF IOST AND A DISCUSSION OF FASTRAN' S INPUT/OUTPUT REQUIREMENTS FT0010I0 
ARE PROVIDED IN LATER PAGES. WITH THIS INFORMATION, THE TASK FJ001020 



* 

ft 
# 

ft 

a 

* 

ft 
ft 
ft 



* 
* 

ft 

S 

■ft 

ft 
* 

ft 
* 

ft 

* 



OF "iHPLEMENTrNGFASTRAN HITH~ANOTHER I/O SYSTEM IS GENERALLY 
NOT DIFFICULT. NOTICE THAT WITHOUT BLOCKING AND BUFFER ING_QF 



TAPESt 
SUFFER 



FASTRAN WILL BE TAPE-BOUND, AND THE COMPILE SPEEDS MILL 



REM 

IF FASTRAN 



IS USED WITH AN ADE QUATE I NPUT/OUTPUT SYS TEM (SUCH 



AS"ToT), COMPILATION SPEEDS ARE OBTAINED THAT ARE 10 TO 100 

TIMES FASTER_THAN_ THE IBM FOR TRAN II UNDER FMS II. AN__« AVE RAGE 1 

COMPILE fl ME" FACTOR is ABOUT 13, BUT VERY SHORT PROGRAMS 
RESULT IN QUITE LAR GE TIME FACTORS. AND IN GENERAL JTHE_ .SHORTER 
THE 



PROGRAM, THE LARGER THE RATIO 
COMPILE_ TIMES. _TH_S TREND IS DUE 
"OVERHEAD TIME IN IBM'S COMPILER. 
PROGRAM St THE TIME FAC TOR APPEARS 



OF FORTRAN II 
MAINLY TO THE 



NEVERTHELESS, 
TO APPROACH 10, 



VS FASTRAN 
SUBSTANTIAL 
FOR LARGE 
SO FASTRAN 



MAY BE CONSERVATIVELY 
TIMES FASTER THAN THE. 



SAID TO RUN AT 
IBM COMPILER. 



A BASIC SPEED ABOUT TEN 



SHOWS THAT THE OBJECT CODE PRODUCED BY FASTRAN 



Rf-M 

OUR EXPERIENCE^ ...___ rn „ mt , 

AVERAGES ABOUT TEN PERCENT SHORTER THAN THAT PRODUCED BY IBM'S 

FORTRAN II. THIS FIGURE IS BASED ON A CONSIDER ATION OF NUMBER 

OF INSfRUCt I ONS , 
REM 



WORKING CELLS, AND CONSTANTS PRODUCED. 



y^lTEXlXUTiaN rjME QF FASTRAN-PRODUCED OBJECT PROGRAMS IS 

GENERALLY SLIGHTLY LONGER THAN FOR IBM'S VERSIONS. IHJS_I_S 

ATTRIBUTABLE MAINLY TO THE LACK OF INDEXING OPTIMIZATION IN THIS 
VERSION OF FASTRAN. THE, MOST USEJFUL FORMS OF L_ IN DJ^^LNG^ IMPROVE- 
MENT ARE FORTUNATELY RATHER EASY TO IMPLEMENT IN FASTRAN, AND 
THIS IS CURRENTLY BEI NG DONE. ODJ)LY ENOUGH, WE ANUCIPATE THAT 
SINCE IMPROVED i "INDEXING WILL FURTHER SHORTEN THE OBJECT CODE, 
FASTRAN COMP I L AT I ONS SHOULD SPEED UP A BIT _ L . _ 

REM 

FASTRAN IS AN IN-CORE_ COMPILER_.__IJ__CAN _REMAIN IN -CORE -THROUGH,. 

THE COMPILATION OF A NUMBER OF CONSECUTIVE FORTRAN PROGRAMS. 

THIS ALLOWS A VERY SMALL SYSTEM OVE RHEAD TIME. THER E ARE NO 

TxTRANEOUS" PASSES OVER THE MATERIAL TO BE COMPILED. THERE 
IS ONE PASS OVER THE SOURCE DECK, AND A SECOND AND FINAL _PASS 



FT001030 

FT001040 

FT6o105O 

P 10 01 060 

FTG01070 

FT0Q1080 

FT001090 

FT001100 

FT001110 

FT001120 

FTOOliSO 

FT001140 

FT001150 

FJ001160 

FT06H70 

FT001180 

FT001190 

FT001200 

FT001210 

FJ0012_20 

FT0Q1230 

FL001240 

FT60125b 

FT001260 

FT0G1270 

FJ001280 

FT001290 

FT001300 

FT001310 

FT001320 

FT001330 

FT001340 

FT001350 

FT001360 
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FT001370 
FT001380 



OVETtHE INTERMEDIATE MATERIAL TO PRODUCE THE BINARY DECK. 
SHORT AND MEDIUM-LENGTH PROGR AMS ARE COMPlLtD IN CgRE,_AND 



i^SCRATClTTAPFlS~USED (I.E. AN INTERNAL FILE IS MAINTAINED). 

ON LONGER PROGRAMS, A SINGLE INTERMEDIAT E TAPE IS WRITTEN, 

RYw^l4^rXNDn"HEN READ SEQUENTIALLY. THERE IS NO DELAY DURING 
THE KEttTNfr, SINCE THE INTERNAL FILE IS T>jROCESSEa AT THIS TIME. 
THE COMPILATION DOES NOT PROCEED THROUGH A SYMBOLIC ASSEMBLY 
PHASE, THUS ELIMINATING ADDITIONAL TIME-CONSUMING_OP_ERATIOJiS _ 
(THIS IS OF COURSnONE AT THE QUESTIONABLE EXPENSE OF AN 
ASSEMBLY LISTING OPTION). 



It^lT^ERHAPS APPROPRIATE AT THIS POINT TO STRESS THAT FASTRAN 
IS BASICALLY A ONE-PASS COMPILER, THE SECOND PASS _8jy NG_R__QUIR ED 
SOLELY BY THE bSS BINARY DECK FORMAT (I.E. PROGRAM CARD FIRST 

AND NO PROVISION FOR CHAINED BACKFILLS, ETC.). __ _ 

REM 

ALL SOURCE PROGRAM SYMBOLS AND LABELS ARE PLACED IN A SYMB OL 

TABLE TSYMTAbT WHOSE SIZE IS 4096 WORDS. THE METHOD OF 
ASSIGNING A SYMBOL OR LABEL TO A LOCATION IN SYMTAB IS SUCH THAT 
NO LENGTHY : " SEARCHES OR SORTS ARE NECESSARY. A SCRAMBLED SORT 

TECHNIQUE IS USED, WHEREBY THE BITS IN A BCD SYMBO L OR LABEL 

ARE CONCENTRATED INTO A r2-BIT FIELD < 2**12=4096 ) . THIS IS 
DONE BY MULTIPLYING THE BCD SYM BOLIC NAME BY A SIMPLE STAND ARD 
INTEGER, AND EXTRACTING A TWELVE-BIT FIELD FROM THE RESULT. 
THE POINTER THUS OBTAINED IS NORMALLY THE SYMTAB LOCATION 



FT001390 

— -T- **4 n t t, r\*\ 

r i uuituy 
FT06l410 
FX001420 
FT001430 
F T001440 
FT001450 
FT001460 
FT001470 
FT001480 
FT001490 
FTOO_1500 
FT001510 
FT001520 
F TOO 15 30 
FT001540 
FT001550 
FT001560 
FT001570 
FT001580 
FT001590 
FT001600 
FT001610 
FT001620 



OF THE SYMBOL OR LABEL, IF HOWEVER THE LOCATION IS ALREADY FT001630 

OCCUPIED BY A DIFFERENT SYMBOL (UNLIKELY IN MOST PROGRAMS), THEN FT001640 

THE SYMBOL IS ASSIGNED TO THE NEXT AVAILABLE LOCAflON. TO FTG01650 

LOCATE A SYMBOL IN SYMTAB, THE SAME COMPUTATION IS PERFORMED, FT001660 
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IF THE SYMBOL IS NOT AT THE COMPUTED LOCATION, A SEQUENTIAL 
SEARCH IS PERFORMED UNTIL EITHER THE ITEM IS LOCATED, OR AN 



FT001670 
FT001680 



EMPTY CELL IS ENCOUNTERED. {THE EMPTY CELL MEANS OF COURSE 
THAT THE SYMBOL IS NOT IN THE TABLE, AND IT MAY BE INSERTED 



IF DESIRED IN THE LOCATED EMPTY CELL). 

THE TECHNIQUE IS VERY RAPID FOR SPARSELY -FILLED SYMBOL TA BLES. 
IT BECOMES LESS EFFICIENT AS THE TABLE FILLS UP, SINCE MORE AND 
LONGER SEQUENTIAL SEARCHES WILL BE PERFORMED. HOWEVER, A VERY 



FT00169G 
FJ001700 
FT001710 
FT001720 
FT001730 
FT0Q174G 



LARGE 
REM 



PROGRAM IS REQUIRED TO FILL THE TABLE MORE THAN SPARSELY, 



EACH SYMTAB WORD HAS A CuUNtfcKPART IN ANUlHER 4Q96-WQKU lABLfc, 
EQUIV. EQUIV CONSISTS PRIMARILY OF FLAG BITS DESCRIBING THE 



FT001750 
FT001760 
F TOO 1770 
FT001780 



CORRESPONDING SYMTAB ENTRY, AND AN ADDRESS POINTER WHICH MAY BE FT001790 
USED TO DEFINE THE VALUE OF THE ENTITY, OR TO POINT INTO A FT001800 



GENERAL 
REM 



POOL AREA WHERE MOST ADDITIONAL INFORMATION IS STORED, 



THE FORMAT OF THE EQUIV TABLE ENTRY IS DESCRIBED NOW IN GENERAL 
TERMS. THE ACTUAL BIT CONFIGURATIONS FOR T HE VARIOUS FLAGS AND 
FIECby'TRE'"T0UND"^ LISTING, UNDER 'ABSOLUTE 

SYMBOL DEFINITIONS 1 . 



FT001810 
FT0O1820 
FT00i83b 
FT001840 
FT00185G 
FT001860 



REM 
THE 



PREFIX OF AN EQUIV yOR D HOLDS THE MODE OF THE ITEM. THE 
REPRESENTED BY A THREE-BIT FIELD, 
FOUR MOOES ARE MLABL {LABEL ON 



FT001870 
FT001880 



MODE IS 

BITS. THE 

MSTRG (FORMAf STRING LABEL) V MINT G 

NAME), AND MREAL (REAL VARIABLE OR 



AND NOT AS INDIVIDUAL 

EXECUTABLE STATEMENT ) , 

{ INTEGER VARIABLE OR FUNCfTON 
FUNCTION NAME). 



REM 

BUS 3-14 HOLD BIT _FLAGS DESCRIBING 
I fEM. NORMALLY EACH BIT STANDS FOR 
HOWEVER, SOME BITS ARE USED FOR TWO 



THE STATUS OF 
A SINGLE ITEM 

OR MORE TASKS, 



THE SYMTAB 

INFORMATION, 
NO CONFU- 



OF 
IF 



FT001890 
FT001900 
FT001910 
FT001920 
FT001930 
FT001940 
FT001950 
FT001960 



SIGN 
REM 



CAN RESULT. THE BIT FLAGS AND THEIR INTERPRETATIONS ARE, 



FT001970 
FT001980 



BVAR8... SYMBOL HAS APPEARED AS A VARIABLE IN AN EXECUTABLE 

STATEMENT, AND THUS MUST BE DEFINED IN THE PROGRAM* 
BL^Txy.T"^YMBOL OR LABEL 1TaS~BEEN DEFINED {HAS A 'LEFT-HAND 

__ vaJ-4£!jL^__ __ 

bdoub". . . symbol was used 
or a complex variable, 



AT SOME POINT 
AND THUS MUST 



DOUBLE 
DOUBLE 



PRECISION 
STORAGE. 



FT001990 
FT002000 

Fyooloio 

FT002020 
FT002030 
FT002040 



BARGT... SYMBOL IS A FORMAL SUBPROGRAM PARAMETER. 
BARRY... SYMBOL APPEARS IN A DIMENSION STATEMENT. 



ADDRESS FIELD 



FT002050 
FT002060 



OF EQUIV WORD POINTS TO THE COMMON/DIMENSION/EQUIVALENCE 
INFORMATION IN JHE^PGOL AREA. ___ 
SYMBOL APPEARS IN A ToMMON" STATEMENT 
WORD POINTS TO POOL AREA. 



ADDRESS FIELD 



FT002G70 
FT002080 
FT002090 
FT002100 



BCOMN... 

OF EQUIV 

BEQUV... SYMBOL APPEARS IN ONE OR MORE EQUIVALENCE STATEMENTS. FT002110 

ADDRESS_ FIELD OF EQUIV WORD POINTS TO POOL AREA. FT002120 

SYMBOL APPEARS AS THE VARIABLE IN AN ASSIGN OR FT0G2130 

GO TO STATEMENT. ADDRESS FIELD OF EQUIV WORD POINTS FT002140 



BASSN... 
ASSIGNED 



TO ASSIGN LISTS IN POOL AREA. 
B I N£F . . . SYMBOL IS U SED AS A N ARITHMETIC STATEMENT FUNCTION 

NAME." 

BEXTF... SYMBOL IS USED AS AN EXTERNAL NAME. 

BLIBF... EXTERNAL SYMBOL NAME IS CURRENTLY OF LIBRARY FUNCTION 

JX PE i I*E. ENDS IN ^F*. _ 

BPATH... LABEL IS IN f" f HE" path OF FLOW OF THE PROGRAM, I.E. THERE 

IS A WAY FOR THE PROGRAM FLOW TO REACH THIS STATEMENT. 



FT002150 
FT002160 
F f 002 170 
FT0C2180 
FT002i90 
FT002200 
FT002210 
FT0G2220 



REM 

BITS 15-20 H0L0 THE S UBPROGRAM ARGUME NT NUM BER. IF BARGT IS ON . 



A MAXIMUM OF 64 FORMAL PARAMETERS CAN BE HANDLED. 

REM 



FT002230 
FT0G2240 
FT002250 
FT002260 
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IN THE POOL AREA OR ELSEWHERE 
REM 



BITS 21-35, THE ADDRESS FIELD, HOLD A SYMBOL OR LABEL DEFINITION, FT002270 
OR _IF CERTAIN EQU IV FLAGS ARE ON, POINT TO FURTHER INFORMATION _ FTQ022_80 

FT 002290 
FT002300 
FT002310 
FT002320 
FT002330 
FT00234G 
FT00235G 
FT002340_ 
FTGQ2370 



ASIDE FROM SYMTAB AND EQUIV, THERE ARE VERY FEW FIXED-LENGTH 
TABLES IN FASTRAN. THIS ALLO WS MAXIMUM FLEXIBILITY IN THE USE 
OF AVAILABLE STORAGE, CONSEQUENTLY, THE LIKELIHOOD OF 

•OVERFLOW 1 OF THE_COMPILER IS QUITE REMOTE, 

REM 



A BRIEF_ SURVEY OF THE COMPILATION PR OCESS IS GIVE N HER E. MORE 
DETAILED INFORMATION IS TO BE FOUND IN DESCRIPTIONS OF THE 
INDIVIDUAL SECTIONS IN TH E BODY OF THE LISTING. THE COMPILATI ON FT002380 

INITIALIZATION, 



IS LOGICALLY DIVIDED INTO FIVE SECTIONS., 
PAS_S 1, P OST PASS 1, PASS 2, AND POST P ASS 2^ 
REM 



FT002390 
FT002400 



# 

* 

* 

* 

* 

* 
* 

# 

* 

* 

* 

# 

* 

* 
* 
* 
* 
* 
* 
It 
ft 



INITIALI ZAT ION IS VERY SHORT, BEIN G CONCER NED WITH SETTI NG 
"VARIOUS CELLS TO THEIR INITIAL VALUES. 
REM 



FT002410 
FT002420 
FT0Q2430 

FT002440 

PASS 1 IS THE PRIMARY PASS OVER THE SOURCE DECK. THE SOURCE FT002450 
PROGRAM IS LISTED, THE STATE MENTS ARE SCA NNED A ND I NTER PRETED, FT002460 
THE SYMBOL TABLE IS FORMED, VARIOUS LISTS ARE GENERATED, AND MANYFT002470 

FT002480 
Ffo62490 
FT002500 
FT002510 
FT002520 
FT002530 
FT002540 



TYPES OF ERRORS ARE DETECTED. INTERMEDIATE OBJECT C ODE IS 



PREPARED, TO BE PROCESSED IN PASS 2 WHEN THE SCAN OF THE SOURCE 

DECK IS COMP LETE. _ 

REM 

POST PASS 1 PROCESSES THE SYMBOL TABLE, DETECTS ALL REMAINING 



ERRORS < ERRORS INVOLVING RELATIONS BETWEEN THE VARIOUS PROGRAM 

ITEMS), COMPUTES THE OBJECT PROGRAM LENGTH AND PUTS OUT THE 

BfNARY DECK PROGRAM CARD, DEFINES ALL VARIABLES. IF THIS PROGRAMFT0G2550 

IS A SUBROUTINE OR FUNCTION, ITS PROLOGUE IS FORMED HERE. FT002560 



IF AN OBJECT PROGRAM SYMBOL TABLE HAS BEEN REQUESTED, IT IS 
FORMED AND PUT OUT PRIOR TO THE PROGRAM CARD. 



FT002570 
FT002580 



POST PASS 1 IS ENTERED ONLY IF PASS 1 WAS FREE FROM ERRORS. 



FT002590 



PASS 2 PROCESSES THE INTERMEDIATE OBJECT CODE, PRODUCING THE 
L H JL F J NAL C0DE ^ AND THE REMAINDER OF THE BINARY _DECK. 

REM " ~ " " " ~ ~ 



FT002610 
FT002620 
FT002630 
FT002640 



FT002650 
FT002660 
FT002670 



PO.SJ PASS 2 PUIS OUT THE OBJECT PROGRAM STORAGE MAP, AND 
TERMINATES THE COMPILATION. PASS 2 AND POST PASS 2 ARE 

ENTERED ONLY FOR ERROR-FREE COMPILATIONS. 

SPACE 2 

„ A FEW WORDS ON FA STRAN' S ERRO R DETECTI ON PHILOSOPHY ARE IN ORDER. FT002680 
MOST ERRORS, "INCLUDING TYPOGRAPHICAL AND SYNTACTICAL ERRORS, ARE FT002690 
CAUGHT DURING _PAS_S_At TH|L PRIMARY PASS OVER THE S YMBOLIC DE CK. FT002700 
WE FEEL THAT DIAGNOSTIC MESSAGES ARE MOST INFORMATIVE WHEN THEY FT00271Q 
ARE ISSUED ALONG WITH THE ERRONEOUS ST ATEM EN T. THER EFORE, FT00272J) 
MOST ERROR MESSAGES IN FASTRAN WILL APPEAR IN THE LISTING OF THE FT002730 
SOURCE PROGRAM IMMEDIATELY FOLLOWING THE STATEMENT IN ERROR. 



FT002740 
FT002750 
FT002760 
FT002770 
_FT002780 
F f 002 790 
FT0C280G 

THE DIAGNOSTIC MESSAGES ARE AS INFORMATIVE AS POSSIBLE WITHOUT FTG02810 
UNDULY SACRIFICING COMPILATION SPEED, AND WITHOUT UNDULY CHANCINGFT002820 



THERE ARE SOME ERRORS, NAMELY INVOLVING INTER-STATEMENT 
RELATIONS, THAT CANNOT BE DETECTED UNTIL THE ENTIRE DECK HAS 
BEEN READ. THESE THEN ARE GIVEN IMMEDIATELY FOLLOWING THE END 
CARD. ALL ERROR MESSAGES ARE SIGNALLED BY _AN OBVIOUS _SER IE S 
OF ASTERISKS AT THE LEFT SfDE OF THE PAGE. 
REM 



THE CONFUSION OF THE PROGRAMMER. IN RESERVED WORD (FIXED FORMAT) 
STATEMENTS, ONE CAN BE RA THER SPECIF IC WITHOUT RISK OF CONFUS I NG 



THE SUBMITTER OF THE PROGRAM. HOWEVER, SPECIFIC DIAGNOSTICS ARE 
IN G ENE RAL AVOIDED IN ARITHMETIC STATEMENTS, SINCE WE FEEL _THAT 
TOO OFTEN A SPECIFIC "MESSAGE DOES NOT IN FACT IDENTIFY THE 
PROGRAMMER'S DIFFICULTY, BUT INSTEAD CAUSES HIM MOMENTARY 



PUZZLEMENT. THEREFORE, A COMMON ARITHMETIC STATEMENT 
MESSAGE IS SIMPLY 'INVALID FORM OF STATEMENT*. 



ERROR 



FT002830 
FT002840 
FT002S50 
FT002860 
FT002870 
FT00288O 
FT0D2890 
FT00290G 
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REM 

IN PASSING WE NOTE THAT FASTRAN DETECTS MANY TYPES OF ERRORS 

I BM » S FORTRAN II W I Lf NOT CATCH. 

CONSISTENCY ERRORS 



AMONG THESE ARE... 
IN ASSIGN/ASSIGNED-GO-T0 USAGE, UNDEFINED 



FT002910 
THATFT00292G 
FT002930 
FT002940 



VARIABLES, RELATIVE CONSTANT ERRORS, ERRORS IN THE CONSISTENCY FT002950 

OF ARITHMETIC STATEMENT FUNCT ION US AGES, AND NONSENSE SU CH AS FT002960 

•75 GO TO 75'. FT0G2970 

REM F T002980 

ALSO, A NUMBER OF VALID ^SITUATIONS INVOLVING FORTRAN II 'JOHNNY- FT002990 

COME-LATELY' FEATURES, SUCH AS HOLLERITH LITERALS AND DOUBLE PRE-FT0Q3000 

"CIS ION AND "COMPLEX ARITHMETIC, ARE HANDLED CORRECTLY AND Ff0030i6 

CONSISTENTLY IN FASTRAN, WHILE FORTRAN II COMPILES ERRONEOUSLY FJPQ302G 



OR INCONSISTENTLY. 
SPACE 2 



(DETAILS WILL BE SUPPLIED UPON REQUEST) 



FT003030 
FT003040 



1CQ09 



TTL INTRODUCTION— FASTRAN STORAGE LAYOUT 

F ASTR AN COMP I L£_R C ORE STORAGE LAYOUT 

SPACE 3 

THE LAYOUT OF CORE STORAGE IN THE FASTRAN COMPILER IS AS FOLLOWS 



FT003050 
FT003060 
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THE CORE LOCATIONS OF THE VARIOUS SECTIONS ARE OF COURSE 
SUBJECT TO CHANGE. MOST LOCATIONS ARE NOT IMPORTANT, AND ARE 



FT003070 
FTQ03080 
FT003090 
FT003100 



» NOT SHOWN 
SPACE 3 

00000 REM 
-.; 144 REM 



MONITOR CELLS, ETC 

INPUT/OUTPUT SYSTEM (INDIANA UNIVERSITY IOS) 



FT003110 
FT003120 
FTOG3130 
FTQG3140 



REM 
REM 



BEGINNING OF FASTRAN COMPILER 
INITIALIZATION OF COMPILER 



REM 
REM 



ONE-TIME INITIALIZATION WHEN COMPILER ENTERS CORE 
INITIALIZATION FOR EACH COMPILATION 



REM 
REM 
REM 
REM 



INITIAL CARD PROCESSING 
BURSTING OF CARD 



STATEMENT LABEL AND MODE 
DETERMINATION OF STATEMENT TYPE 



REM 
REM 



STATEMENT TERMINATION ROUTINE 
PASS 1 STATEMENT PROCESSORS 



REM ARITHMETIC STATEMENT PROCESSING 
REM COMPILER 



FT003150 
FT0G316Q 
FT003170 
FT003180 
FT003190 
FT003200 
FT003210 
FTG03220 
FT0G323Q 
FT003240 
FT003250 
FT003260 



REM 
REM 
REM 
REM 



SCANNER 
SUBSCRIPT 



SCANNER AND COMPILER 



REM 

REM 



CODE KEY-WORD GENERATOR 

OBJECT PROGRAM CODE GENERATORS 

ARITHMETIC STAfEMENf UTILITY ROUTINES 
PASS 1 UTILITY ROUTINES 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



POST PASS 1 

ASSIGN VARIABLE AND LABEL CHECKING 
'"'EQUIVALENCE VARIABLE STORAGE ASSIGNMENT 
LENGTH OF PROLOGUE 



FT003270 
FT003280 
FT003290 
FT003300 
FT0G3310 
FT0G3320 
FTO6333O 
FT0G3340 
FTGG3350 
FT0G3360 



PRIMARY SYMBOL TABLE PASS 

COMMON VARIABLE STORAGE ASSIGNMENT 



FT0G3370 
FT00338G 



LENGTH OF OBJECT PROGRAM 

OUTPUT OF ERRORS FOUND IN SYMBOL TABLE PASS 



FT0G339G 
FT00340G 



57775 
6 7776 
77777 



REM 

r» cm 

REM 

REM 

REM" 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 



OBJECT PROGRAM SYMBOL TABLE OUTPUT, IF REQUESTED 



Dikunu 
ox ni«r\ t 



PROGRAM CARD OUTPUT 

TRANSFER VECTOR AND PROLOGUE OUTP UT ROUT INES 
POST PASS "1 UtlLITY ROUTINES 
PASS Z*** OUTPUT REMAINDER OF BINARY DECK 

TEXT 

CONSTANTS 

FORMAT STATEMENTS 
POST PASS 2,.. OBJECT 



FTGG341G 

ctftrti/. in 

FTG0343G 
FT0G344G 
FTOG3450 
FTG0346G 
FT003470 
FT0G348G 



PROGRAM MAP 



REM 



COMPILER TERMINATION ROUTINE 

UT I L I T Y ROUT I NES _ 

ERROR ROUTINE AND DIAGNOSTIC MESSAGES 

COMPILER TABLES 

FLAGS AND WORKING CELLS 

(END OF FASTRAN SYMBOLIC DECK]_ 

.^ t ._.__„ _ — 

ARRAY 'COLUMN* (666 CELLS LONG) 

POOL (ABOUT 5200 CELLS LONG, BACKWARD TO END OF COLUMN) 
E 9yi_ v _ t_40?6_CELLS LONGj BACKWARD IN C O RE) __ 
SYMTAB (4096 CELLS LONG, BACKWARD IN CORE) 



FT0G3490 
F I0Q350O 
FT 00 35 10 
FT003520 
FT003530 
FT003540 
FT003550 
FT003560 
FT003570 
FT003580 
FT003590 
FT003600 
Ff6636l6 



EJECT 



FT003620 PAGE 16 



* 

* 

* 

* 

* 



"TTL"T~N"flTd D U ~C T I H — r FASTRAN" "iNPUT/Buf PUT REQUIREMENTS FT003630 
REMARKS rnNT-FRNING F ASTR AN INPUT/OUTPUT REQU IREMENTS FT003640 
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SPACE 3 

THE FASTRAN COMPILER U TILIZES A GENERALIZED INPUT/OUTPUT SYS TEM 

DEVELOPED AT INDIANA UNIVERSITY ... IQS. THIS I/O SYSTEM 
RESIDES IN LOW-CORE AND CONSISTS OF A SERIES OF ROUTINES FOR THE 



BUFFERED READING AND WRITING OF "BLOCKED TAPE RECORDS, ALONG WITH 
NORMAL NQN-DATA OPERA TI ON S (WE F, REW, ETC, j,» _IN_ADDIIIOM*_ IQS 



HANDLES CERTAIN SPECIAL FUNCTIONS SUCH AS ON-LINE PRINTING, 
READING OF 716 CLOCK A ND LOADING OF S YSTEM T APE RECORDS* THE 



DaTTCHANNEL TRAP FEATURE IS USED BY TOS TO CONTROL CHANNEL 

ACTIVITY. _ 



SPACE 2 

r-ALLS JO _IDS ARE^ EFFECTED BY_I/Q MACROS (EG .- BUFFER, R EAD, 

WRITE, BACKRVwEGF, ETC.)- THESE MACROS ARE BUILT INTO 

THE MACH I NE LANGUAGE ASSEMBLER EM PLOYED AT INDIANA UNI VERS I TY 

(A SPECIALIZED VERSION OF IBM'S FAP ASSEMBLER). 

REM 



IN ORDER THAT ANOTHER INSTALLATION CAN ASSEMBLE FASTRAN, THIS 

VERSION OF FAS TRAN HAS BEEN MODIFIED. ALL IQS MACR O CALLS 

HAVE BEEN EXPANDED IN-LINE, AND THE MACRO NAMES NULLIFIED 
(E.G. BY 'READ OPSYN NULL'). THE PERTINENT T RANSF ER ADDRESSES 



Jq The IDS ROUTINES ARE DECLARED IN BOOL STATEMENTS (E.G. 
•READ BOOL 242»>. THIS MATERIAL IS LOCATED AFTER THE M ACRO 



DEF I NIT fON SECTION OF THE COMPILER. ALL CALLS TO IOS ROUTINES 

ARE BRACKETED^ IN J HE LIFTING BY jCARDS JWV I N^ J10SXXJ_AND 

•ENDXX* IN THE LOCATION FIELDS (XX IS A NUMBER FROM 01 TO 99). 
THESE SEQUENCES MAY EASILY BE FOUND BY LOCATING .THE 10 SXX 
"entries; IN THE SYMBOLIC REFERENCE TABLE. 



FT003650 
FT003660 
F TOO 3 6 70 
FT003680 
Ft003690 
FT003700 
FT003710 
FTG03720 
FT003730 
FJ003740 
FT003750 
FT003760 



FT003770 
FT003780 
FT003790 
FT003800 



FT003810 
FT003820 
FT003830 
FT003840 
FT0O385O 
FT003860 
FT003870 
FT003880 
FT003890 
FT0G3900 
FT003910 



EJECT" " FT003920 

THE FOLLOWING IS A BRIEF SU MMARY OF THE EXPANSION OF I/O MACROS, FT003930 

FT003940 

FT003950 
FT003966 
_ _ FTG0397G 
FT 003980 
FT003990 
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REM 

PTem 



ALI v j^gjMACROS_ARE_,OF THE GENE RAL FO RM 

SYMBOL NAME A(l) t A(2)t ••• AtN-D.ACl.) 



SPACE 2 

T HE MACH I N£ LANG UAGE EXPANSION OF THIS MACRO IS, 



REM 



SYMBOL STL 
TXL 
XY2 



IOEX 

NAME,, (NORMAL RETURN) 

AU),,A(2) 



XYZ 



A(N),,Q OR A(N-1),,A(N) 



REM 



WHERE 



FT004000 
FT004010 
FT004020 
FT004030 
Ff004040 
FT 0040 50 
FT004060 
FT004070 
FT004080 
FT004090 



X = IFF NOT LAST ARGUMENT PAIR 

Y ^ IFF ADDRESS ARGUMENT NOT INDIRECTLY ADDRESSED 
Z = IFF" DECREMENT ARGUMENT NOT INDIRECTLY ADDRESSED 
(NORMAL RETURN) = LOCATION + 1 OF LAST WORD OF MACRO 



FT004100 
FJ004110 
Ff064120 
FT004130 
FT004140 
FTG04150 



EXPANSION 

SPACE 2 _____ 

.^___.^ ^ RGuMEN f s J NCLUDE0 IN AN foS MACRO ARE "IGNORED FT004160 

... WILL NOT CAUSE ASSE MBLY OR EXECUTIO N ERRORS. FTO0417O 

REH " " " F T004 1 8 

FIRST BLANK IN ARGUMENT STRING TERMINATES THE VARIABLE FIELD. FT004190 

'REpf — — — - — -"- ""- " ~- -— —— FT004200 

AN ASTERISK (») AS THE F IRST CHARACTER O F AN ARGUMENT FT00421Q 

"SPECIFIES INDIRECT ADDRESSING (ALL INDEX REGISTERS ASSUMED TO FT004220 

CONT AIN ZE RO). ._FTp04230 

_____ - FT004240 

ETC CARD(S) FOR CONTAINING LONG MAC RO ARGUMENT LISTS (C ARD FT004250 

-p£gj-£?PI^ LA ST NON-BLANK CHAR.). Ff 004260 



EJECT 

THE F OLLOWIN G IS A BRIEF DES CR IPT ION OF THE V ARIOUS IPS MACROS 

USED BY FASTRAN, 

SPACE 2 



REH 



BUFFER LOC(l),NQ(l),SIZE(l),TAPE(l),... 

TO ASS I6N BU FFE R SPACE TO VARIOUS TA PES* B U FFERS MUST BE 

AT LEAST TWO WORDS LONGER THAN LARGEST PHYSICAL RECORD TO 
BE READ (OR WRITTEN) WITH THESE BU FFERS* SUFFERS C AN 
BE RE-DEFINED AT ANY TIME. TWO BUFFERS PER TAPE IS 
GENERALLY OPTIMUM. 

XMODER LQC 



CONTROL TO LOC IF READ GIVEN IN WRONG MODE. 
TRANSMISSION OCCURS* 



NO DATA 



KEJ1 



XRDN 



LOC 



CONTROL TO LOC IF READ OR WRITE REDUNDANCY. 



REM 



XEOF LOC 
_ CONTROL TO LOC IF END-OF-FILE READ 



REM 



READ 



T APE, MODE ,LOCU) ,CNT< 1 ) , . . .LOC (N) »CNT(N) 



TO SCATTER READ ONE LOGICAL RECORD FROM TAPE. THIS IS A 
JRANSMIT TYPEJ*EAD IN THA T DA TA IS MOVED FROM T HE BUFFER 
TO THE LOCATIONS SPECIFIEO IN THE READ MACRO. 



FT004270 
FT0Q428O 
FT004290 
FT00 4300 
Ffd04310 
FT004320 
FT004330 
FT004340 
FT004350 
FT004360 
FT004370 
FT004380 
FT004390 
FT004400 
FT004410 
FT00442 
FT004430 
FT004440 
FT0G4450 
F TO 04 460 
FT004470 
FT004480 
FT004490 
FT004500 



REM 



LREAD TAPE, MODE, L (LOC) , L( COUNT) 

SET DECREMENT OF LOC TO LOCATION OF F IRSJ JdOkO OF THE 
NEXT LOGICAL RECORD. THIS IS A "NON- TRANSMIT" TYPE READ IN 
TH AT NO DATA IS MOVED FROM THE BUFFER. DECREMENT O F 
LOCATION COUNT WILL CONTAIN NUMBER OF WORDS IN THE RECORD 
JUST LOCATED. 



REM 



WRITE 



TAP£, MODE t LOC (1 ) ,CNT ( 1 ) , . . .LOC (N) , CNT( N ) 



FT004510 
FJ004520 
FT004530 
FT004540 
FT004550 
FT004560 
FT004570 
FT004580 
FT004590 
FT004600 



TO GATHER WRITE ONE LOGICAL RECORD ONTO TAPE- 
TYPE WRITE. 



TRANSMIT 



FT004610 
FT004620 



REM 



BACKR 



TAPE- COUNT 



TO BACKSPACE COUNT LOGICAL RECORDS ON TAPE, 



REM 



WEOF TAPE 

TO WRITE AN END-QF-FILE ON TAPE (BUFFERIS) FLUSHED 



AUTOMATICALLY). 



FT004630 

» I W T W T V 

FT004650 
FT004660 
FT004670 
FT004630 



REM 



REWIND TAPE 

TO REWIND TAPE. 



REM 



PRINT 



LOC ( 1 ) , CNT ( 1 ) , . . . LOC ( N ) , CNT ( N ) 



EACH PAIR OF PARAMETERS REPRESENTS A LINE TO BE PRINTED 
ON THE ON-LINE PRINTER (LOCATION AND COUNT). FIRST 
CHARACTER USED AS SPACE CONTROL (A LA FORTRAN II). 



REM 



RCLOCK LOC " "' 

TO READ 716 PRINTER CLOCK INTO STORAGE, CONV ERT TIME TO 
SIX BCD CHARACTERS AND STORE THIS IN LOC AND LOGICAL 
ACCU MULA TOR (LOC IS AN OPTIONAL ARGUMENT). SENSE EXIT 10 
AND ECHO IMPULSES AT THE 716 TARE USED TO OBTAIN THI S CLOCK 
READING. 



FT004690 
FT004700 
FTO0471O 
FT004720 
FT004730 
FT004740 
FT004750 
FT004760 
FT 004 770 
FT004780 
FT 0047 90 
FT004800 
FT004810 
FT00432G 



FT004830 
FT0G4840 
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* 

ft 
* 
» 

* 
* 

* 
* 



EJECT 
SPACE 2 
THE IOBASE 



PSEUDO-OPERATION APPEARING RIGHT AFTER THE MACRO 
DEFINITIONS IN THE ASSEMBLY LISTING OF FASTRAN .IS_REQyiMPJ^L-. 
Yh£ "^SSElMBLER^d^'PIN-iPOINT THE LOCATION OF A CRITICAL TRANSFER 

VECTOR LOCAJEDIN _IQS* 

SPACE 

FASTRAN 

SPACE FOR THESE TAPES IS 

LOGICAL TAPE NUMBERS AMD 



REQUIRES FOUR TAP ES DURING NORMAL OPERATION A ND BUFFER 



DEFINED WITHIN FASTRAN. ALL TAPES HAVE 
IOS IS RESPONSIBLE FOR ESTABLISHING 



THE LOGICAL/PHYSICAL TAPE 
SUMMARIZES THE TAPES, USED 



EQUIVALENCES. 
BY FASTRAN, 



THE FOLLOWING TABLE 



SPACE 2 
SYH&OLIC 



LOGIC AL PHYSICAL 



SYMBOLIC 



FT0G485G 
FT004860 
FT004870 
FT004880 
FTO 04890 
FT0G4900 
FT 0049 10 
FT004920 
FT004930 
FT004940 
FT004950 
FT004960 
F f 0049 70 
FT004980 
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REM 



REM 



NAME 



MINfAP 



NUMBER NUMBER 



A2 



BUFFER NAME 



FUNCTION 



8UFMIT 



MLSTAP 



A3 



BUFMLT 



FT004990 

___ FT005000 

SYSTEM "INPUT TAPEFT005010 

FT005020 

FT005030 
FT005040 



SYSTEM (BCD) 
OUTPUT TAPE 



REM 



SYSBIN 



B4 



BUFBIN 



SYSTEM (BINARY) 



LOAD TAPE 
{CONTAINS 



DECK AT END OF 
COMPILATION) 



REM 



SYSUT1 



B2 



BUFUT1 



SYSTEM UTILITY 
TAPE (CONTAINS 
C I J OVERFLOW 
FROM PASS I) 



SPACE 
NOTE- 
IF NOT 



RUN 



UNDER THE MONITOR, SYSBIN = MLSTAP = LOGICAL TAPE 
mmERT^PHfSlCTClWB A5. THATTS, THE BCD LIST OUTPUT AND 
BINARY OBJECT DECK ARE PLACED ON TAPE 9 (= A5 ) » 



FT005050 
FT005G60 
FT 005070 
OBJECTFT005080 
FTC05090 
FT005I00 
FT005110 
FT005120 
FT005130 
FT005140 
FT005150 
FT005160 
FT005170 
FTOO5180L 
FT005190 
FT005200 



EJECT FT005210 

IF AN INSTALLATION IS IN TERES TED IN USING A SYSTEM OTHER THAN £1005220 
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IOS (EG, IOCS) TO PERFORM THE I/O REQUIREMENTS OF THE COMPILER 

THE FOLLOWING STEPS COULD 8E TAKEN, 

REM 

1. LOCATE ALL OF THE IOS MACROS IN FASTRAN. THIS CA N BE 



FT005230 
FT0O5240 



DONE BY USING THE SYMBOLIC REFERENCE TABLE 
MACROS ARE NAMED IOSXX (XX = 01, 02, ...). 



ALL IOS 



REM 



2. DELETE THOSE MACROS WHICH DO NOT APPLY TO THE NEW SYSTE M 
.77 FOR EXAMPLE, THE !" XEOF FUNCTION MAY BE HANDLED BY EACH 
CALL TO THE READ ROUTINE IN THE NEW SYSTEM. 



REM 



3. REPLACE ALL OTHER MACROS WITH CALLS TO TH E NEW SYSTEM TO 



REM 



PERFORM A GIVEN FUNCTION 



NOTE- 

THE FIRST CARD OF EACH FASTRAN COM PI LATION A ND THE FIRST CARD 
OF EACH STATEMENT THAT FOLLOWS A COMMENTS CARD, AN ASTERISK 
(*) CARD OR A SUBTITLING CARD IS READ WIT H A NORMAL (TRA NSMIT- 



TYPE) READ. 
READ MACRO. 



ALL OTHER SOURCE CARDS ARE READ WITH A LOCATE 
THIS, OF COURSE, IS DESIGNED TO ELIMINATE THE 



BUFFER-TO-WORK AREA MOVE REQUIRED BY THE TRANSMI T-TYPE READ. 
SPACE 3 
A C0W~0F " AN IOS USER'S MANUAL WILLn^SENT~UPQN REQUEST."" 



FT005250 
FT005260 
FT005270 
FT005280 
FT005290 
FJJ005300 
FTO0531O 
FT005320 
FT005330 

FTG05340 
FT005350 
FJ005360 
FT005370 
FT005380 
FT005390 
-FT005400 
FT005410 
FT005420 
FT0G5430 
FT005440 



FT005450 
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* 



♦ ftftft 

E 

* 
ft 

* 

ftftft* 
* 

* 

ft 

* 
* 
* 
ft 

ftftft 

ftftft 

ftftft 

* 
ft 

ft 

ftftft 

ft 

♦ ft* 



TTL 

* 



I N 



R 



C T X N 



— FASTRAN/FORTRAN 

* * 



FASTRAN/FORTRAiNi 

» . » 

THERE 



II INCOMPATIBILITIES, 

» ♦ ♦ 



4 
ARE 



SOME FEATURES OF FASTRAN WHICH A RE INCOMPATIBLE WITH 



Tor different from) the ibm Fortran ii. these are listed 
and discussed below., mos t are r ather inconseque ntial. 

HOWEVER T, SOME - ARE"6f 
INCOMPATIBILITY WAS 



IS ROUGHLY 

REM 

REM 

REM 



CONSIDERABLE 

I_NTENTIQNALLY___ 

IN THE ORDER OF DECREASING IMPORTANCE 



SIGNIFICANCE, 
CREATED. THE 



INCOMPATIBILITIES FTGO5470 

_* *_ * F T 00548 0_ 

FT00549Q 

» * *FT005500 

F TOO 5 510 
FT0G5520 
FT 005530 
FT005540 
FT005550 
FT00556Q 
FT005570 
FT0O5580 
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AND THE 
LIST BELOW 



FT005590 

FT 00.5600 

THERE ARE NO RELATIVE CONSTANTS AT ALL IN FASTRAN. ALL VARIABLESFT005610 
HAVE A ST ORAG E ASSIG N MEN T, AND STORAGE IS ALWAYS CORRECT AND 

DESIRABLE 



THIS IS A HIGHLY DESIRABLE FEATURE, IN OUR OPINION, 
CONSTANTS ARE A CONSIDERABLE NUI SANCE TO THE 



UP-TO-DATE. 

AS RELATIVE 

"PROGRAMMER. SOME RELCON 
WELL DISGUISED THAT MANY 



•ERRORS' 
HOURS OR 



IN FORTRAN II CAN 
DAYS ARE SPENT IN 



BE SO 
DEBUGGING 



FT 005620 
FT005630 
FT005640 
FT005650 
FT005660 



THE 
WITH 



PROGRAM. ONE SIGNIFICANT RESULT OF DISPENSING 
PROB LEM IS THAT IN FASTRAN, A DO-TYPE INDEX 
IN AN I/O LIST MAY NOT BE THE SAME VARIABLE NAME AS A 

CURRENT DO-STATEMENT INDEX, SINCE THE SAME ST OR AGE LOCATION 

TO 



INCORRECT* 
THE RELCON 
LIST 



BOTH. 
CODE IS 



THIS IS CAUGHT 
PRODUCED. 



IN FASTRAN AS AN ERROR, 



IS ASSIGNED 

NO INCORRECT 

REM 

FIXED POINT EXPRESSIONS 

REARRANGED, AS IS^ 

THE CODE GENERATED IS EFFECTIVELY THAT DUE TO A LEFT-TO-RIGHT 
SCAN OF THE EXPRESSION. 



INVOLVING A SUCCESS IpN_J>£ MULTIPLY 
(E.G. I*J/K OR I*J/K*L) ARE NOT 
DONE IN 7090 FORTRAN II. IN FASTR AN, 
IS 



FT005670 
FT005680 
FT005690 
FT005700 
FT005710 
FT005720 
FT005730 
FT005740 
FT0G575G 
FT005760 
FTO0577G 
FT005780 



REM 
UNDEFINED 



IN THE SOURCE 



VARIABLES AND S JAJEMENT LABELS 

PROGRAM CAUSE AN ERROR" MESSAGE. A VARIABLE USED IN THE PROGRAM 
IS UNDEFINED IF IT DOES NOT HAVE ONE OR MORE OF THE FOLLOWING _ 



PROPERTIES... 
IN A COMMON STATEMENT, 
IN AN INPUT LIST, ON THE 
IN A SUBROUTINE OR 

OF ~ 



EyUIVALENCED TO A COMMON VA RIAB LE, 



LEFT-HAND SIDE OF AN EQUAL SIGN, 
FUNCTION STATEMENT ARGUMENT LIST, IN THE 



FT005790 
FT 005 800 
FT005810 
FT005820 
FT005830 

FT005850 
FT005860 



argument list of a call statement or a 
function tfortjuj^m 4.4&rary4, use43 as 
Tnoex : "in an input/output list , used as 
statement labels are undefined if they 
label field of an executable statement. 



CALL TO AN EXTERNAL 
A-OO-XiHOEX OR m 
AN ASSIGN VARIABLE. 
DO NOT APPEAR IN THE 
(ALSO, OF COURSE ALL 



FORMAT STATEMENT LABELS MUST BE DEFINED) 



REM 

NO LIST OR LISTS FEATURE IS IMPLEMENTED. 

REM 

IMPLIED MULTIPLICATION IS NOT RECOGNIZED IN F A S T RAN. 

REM 

ALL FORMS OF J-ITJ^RALS WORK. TERMINAL BLA NKS ARE OKAY. 

LITERALS TN BOOLEAN 'STATEMENTS WORK IF THE CHARACTER COUNT IS 

IN OCTAL. (LITERALS IN BOOLEAN STATEMENTS DO NOT^WORK AT ALL 

IN IBM FORTRAN II). 

*£M _ _ _ 

ERROR MESSAGES ARE ISSUED IN-LINE WHENEVER 

THEY ARE ISSUED IMMEDIATELY WHEN THE E RROR 

REM"""" 

STATEMENTS LIKE A=0, A=0.3, 1=0, ETC. CAUSE ST2 INSTRUCTIONS 



POSSIBLE. I.E. 
IS DIAGNOSED. 



FT005870 

FTOosaao 

FT0C589G 
FT005900 
FT00591G 
FT005920 
FT005930 
FJ005940 
FT005950 
JFJ005960 
FT005970 
FT005980 
"FT005990 
FT006000 
FT006010 
FT006020 
FT006030 
FJ006040 
FT0G6Q50 
FT006060 



* 



* 
* 
* 



** 



fttt 

ma 
# 

* 
# 

* 
* 



* 
* 

* 

* 

* 

»* 
* 

* 

* 
* 



TO BE GENERATED, 
REH 



*** SOURCE PROGRAM DOUBLE PRECISION FLOATING POINT CONSTANTS MAY BE 
* MORE ACCURATE THAN IN FORTRAN II (BY ONE BINARY BIT), DUE TO 



JUDICIOUS ROUNDING IN THE FASTRAN COMPILER NUMBER PROCESSOR. 
RFM 

THinrOUJECTION OF"~ASSIGN AND~ASSIGNED~GO TO STATEMENTS ''TfTTHE" 
SOURCE PROGRAM IS CHECKED FOR CONSISTENCY* ASSIGN STATEMENT 



FT006070 
FT006080 
FT006090 
FT006100 
FTOG6110 
FT006120 
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FT006130 
FT0O614O 



VARIABLES MUST APPEAR IN AN ASSIGNED GO TO STATEMENT, AND 
VICE VERSA. THE STATEMENT LABEL IN EACH ASSIGN STATEMENT 



MUST APPEAR IN THE LABEL LIST OF AN ASSIGNED GO TO FOR THE 

SAME ASSIGN VARIABLE. 

REM 

THE VALUE OF A VARIABLE SUBSCRIPT, EXCLUSIVE OF ITS ADDEND, 



FT006150 
FT006160 
"FTOQbiiO 
FT006180 



FT006190 
FT006200 



NEED NOT BE LESS THAN OR EQUAL TO THE CORRESPONDING ARRAY 
DIMENSION, AS IS REQUIR ED IN FORTRAN II FOR CORRECT C ODE. 

REM "" " " '" ~ 

F-CARDS MUST PRECEDE IN THE SOURCE PROGRAM THE USAGES OF THEIR 



FT0C6210 
FT006220 
FT00623Q 
FT006240 



EXTERNAL NAMES. 
REM 



** THE STANDARD ERROR OPTION IS NOT AVAILABLE IN FASTRAN COMPILED 
* PROGRAMS. 



REM 

NO CHECKING FOR VALIDITY OF FORMAT STATEMENTS IS DONE IN FASTRAN 



REM 

SINCE HPR MAY NOT SAFELY BE USED TO HALT THE COMPUTER WHEN 



THE DATA CHANNEL TRAP IS BEING USED, HTR MUST BE USED INSTEAD IN 
OBJECT PROGRAM CODE FOR THE 'STOP N» AND 'PAUSE N» STATEMENTS. 
THUS" THE STORAGE REGISTER ADDRESS IS UNAVAILABLE FOR THE 

CONSTANT N^. THEREFORE, FASTRAN PLAC ES THE CONSTANT N ( OR ZERO) 

IN THE ADDRESS OF BOTH THE ACCUMULATOR AND THE Mvl. 
REM 



THE COMPILER USES THE FACT THAT THE DOUBLE PRECISION ADD, 
SUBTRACT, MULTIPLY^ AND DIVIDE LIBRARY R OUTINES LEAVE THE 
RESULT IN "BOTHTThE PSEUDO ACCUMULATOR (OR PSEUDO MQ) AND 
ALSO IN THE ACTUAL AC+MQ. (THIS IS EASILY ALTERED, IF AN 



FT006250 
FT006260 
FT006270 
FT006280 
FTO0629O 
FJ006300 
FT006310 
FTO0632O 
FT006330 
FT006340 
FT006350 
FT006360 
FT006370 
FT0O6 380 
FT006390 
FTOG6400 
TT006410 
FT006420 



INSTALLATION CANNOT ACCEPT THIS OBJECT PROGRAM CODE SHORTCUT.) 
REM 



FT006430 



SUCH INCONSISTENCIES AS «5 GO TO 5« OR «5 IF (A) 5,6, 7» 
ARE CAUGHT AS ERRORS IN FASTRAN. IN OTHER WORDS, A STATE ME NT 
MAY NOT ~R"EFE"R "TO" ITSELF. 

UNDTr "FA'STRAN ," THERE FS~W SCAN FOR " MONITOR""* CONTROL CARDS 
WITHIN A FORTRAN PROGRAM, AND THUS THEY ARE NOT LISTED 
ON-LINE OR INTERPRETED. (* CARDS ARE LEGAL IN A FASTRAN 

PROGRAM... THEY ARE TREAT ED AS COMMENTS). 

REM ~~ " ~ 

COMMENT AND ASTERISK CARDS MAY NOT IMMEDIATELY PRECEDE A 

STATEMENT CONTrNUAI ION CARD. BLANK CARDS ARE ACCEPTABLE 

ANYWHERE. 

REM 

THE DOUBLE PRECISION AND COMPLEX BUILT-IN FUNCTION 'FIXF' 

IS TNOT ALLOWED ""(ERROR MESSAGE TF "USE DY.""'Th IS IS BECAUSE THE 

IBM FORTRAN II COMPILER GENERATES INCORR.ECT COD E FOR T HIS 

FUNCTION. 

REM 



THE LIBRARY FUNCTION 'XLOC' IS BUILT-IN IN FASTRAN. 
REM 



THE USE OF A PHYSICAL TAPE DESIGNATION SUCH AS A4 IN 
•CALL CHAIN (3,A4) IS NOT ALLOWED. (HOWEVER, THE MONITOR 



FT006450 
FT006460 
~Ff006470" 
F. 100648.0 
FT0G6490 
FT006500 
FTC06510 
FT006520 
FT006530 
FTQG6540 
FT006550 
FT006560 
FT006570 
FT006580 
FT0Q6590 
FT006600 
FT006610 
FT006620 
FT 0066 30 
FT006640 
FT006650 
FT006660 



CONTROL CARD «* CHAIN (3,A4)» IS PROCESSED BY THE MONITOR, 

A ND T HUS WOULD BE ACC EPTABLE* 

REM 

THE MONITOR E ND CARD OPTIONS MAY A PPEAR ON THE END CARD, BUT 

THEY ARE IGNORED BY FASTRAN. 

REM ..__ _._ 



FREQUENCY STATEMENTS ARE IGNORED. 

REM 



A FUNCTION STATEMENT MUST HAVE ARGUMENTS, AND THE FUNCTION 
NAME MUST BE DEFINED WITHIN THE FUNCTION SUBPROGRAM. 



REM 

FASTRAN ALLOWS STA TEMENT LA BELS FROM 1 THRO UGH 99999. 

REM 

THE READ DRUM AND WRITE DRUM STATEM E NTS AR E NOT ACTIVATED 



FT006670 
FT006680 
FT006690 
JT006700 
FT0067I6 
FT006720 
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FT006730 
FTOC6740 
FT006750 
FT006760 
FT 006770 
FT0G6780 
FT006790 
FT006800 



IN THIS VERSION OF FASTRAN. 



FT006810 



— ~~ Ff006820 PAGE 26 

EJECT 



TTL IN TRODUCTION — ADDITIONAL FASTRAN FEATURES 
*********** * * * * * 



ADDITIONAL STATEMENTS ALLOWED IN FASTRAN 
* * * * * » ***** * 



#*** 
* 
* 
* 

**** 
* 
* 
* 



SPACE 3 

Ui_AOpiTION TO TH E INCOMPATIBILITIES, T HERE ARE SOME EXTEN T1QNS 

TO THE LANGUAGE AVAILABLE FOR USE. 

SPACE 2 



**** 

* 

* 

* 

* 

**** 

* 



THE FASTRAN STATEMENT 'FLOATING ROUND* WILL CAUSE ROUNDING 
OF ALL SUBSEQUENT FASTRAN-COMP I LED FLOATING POINT ARIT HMETIC, 
THIS IMPROVES ACCURACY, AND INCREASES THE LENGTH OF 
PROGRAM. THE FEATURE MAY BE TURNED OFF BY ISSUING 



NOTE THAT 
THE OBJECT 
A •FLOATING 
REM 



ROUND OFF* STATEMENT. 



A PAGE SUBTITLING OPTION IS ALLOWED. A CARD WITH A $-SIGN 

IN COLUMN 1 INDICATES^ PAGE SUBTITLE. THI S CARD CAUSES 

"' AND SUBTITLING COMMENCES ON THE NEXT PAGE, COLUMNS 
AS THE SUBTITLE. THIS SUBTITLE IS IN EFFECT 



FT006830 
FT0G684G 
FT0Q6850 
FT006860 
FTO0687O 
FT006880 
FTG06890 
FT006900 
FT 0069 10 
FT00692Q 
FT006930 
FT006940 
FT006950 
_FT00696G 
FT00697Q 
FT006980 
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A PAGE EJECT, 
2-72 BEING USED 



UNTIL 
USE A 



SUPERSEDED BY 
BLANK $-CARD. 



ANOTHER $-CARD. 
I NOTE THAT THE 



TO SUSPEND SUBTITLING, 
MAIN PAGE TITLE MAY NOT 



BE ALTERED). 
REM 



1-5 



THE CHARACTER E IN COLUMN 1 OR THE WORD EJECT IN COLUMNS 

CAUSES A PAGE EJECT BEFORE PRINTI NG THE NEXT_L_I_NE_ OF THE 

SOURCE PROGRAM LISTING. CONSECUTIVE E OR EJECT CARDS GIVE ONLY 

ONE EJECT ._ _. __ 

REM 

SPACING IN THE SOURCE PROGRAM LISTING MAY BE EFFECTED BY A 
CARD HAVING AN S IN COLUMN 1 OR THE WORD SPACE IN COLUMNS 1-5. 
AN INTEGER MUST APPEAR BEGINNING IN COLUMN 7» DENOTING THE 
NUMBER OF LINES TO BE SKIPPED. IF THE SPACING CAUSES A PAGE 



FT006990 
FT007000_ 
FT007010 
FT 007020 
FT007030 
FJ007040 
Ff007050 
FT007060 
FT007070 
FT007080 
FT007090 
FT007100 
FT0d71l6 
FT007120 
FT007130 



***# 



* 



EJECT, SPACING IS NOT CONTINUED ON THE NEW PAGE. TO SKIP ONE 
LINE, USE A COM PLETELY BLANK CARD, „ _____________„^. _ 

SPACE CARDS IMMEDIATELY FOLLOWING AN EJECT CARD OR A SUBTITLE 

CARD ARE IGNOREO. __ 

REM — "~ " 

AN OBJECT PROGRAM SYMBOL TABLE MAY 



BE REQUESTED BY INCLUDING A 



FT007140 
F1007150 
FT 00 71 60 
FJ007170 
FT607180 
FT007190 



FASTRAN STATEMENT 'SYMBOL TABLE' ANYWHERE IN 
THIS STATEMENT TURNS ON THE SYMBOL TABLE BIT 



THE SOURCE DECK, 
IBIT 31) IN THE 



FMS MONITOR FLAG BOX AT LOCATION 18. FASTRAN LATER INTERROGATES 
THIS BIT TO DETERMINE IF A SYMBOL TABLE SHOULD BE OUTPUT. NO TE 
fHAffHIS IS ALSO AN FMS MONITOR FUNCTION (* SYMBOL TABLE). 

REM 



FT007200 
FT007210 
FT 007220 
FJG07230 
FT607240 
FT007250 



AN ON-LINE 

•ONLINE*. 

AND 



LISTING MAY 
OUTPUT WILL 



BE OBTAINED BY ISSUING A FASTRAN STATEMENTFT007260 
THEN COMMENCE BOTH ON-LINE AND OFF-LINE FT007270 



CONTINUE UNTIL THE END OF THE COMPILATION OR UNTIL THE 
ON-LINE FEATURE IS TERMINATED BY AN • OFF LINE* FASTR AN STATEMENT 
NOTE THAT ANY "NORMAl" ON-LINE" COMMENTARY (SUCH AS 
ERROR*) WILL APPEAR INTERSPERSED AMONG THE LINES 



•SOURCE PROGRAM 
OF THE SOURCE 



FT007280 
FT007290 
Ft 007 300" 
FT007310 



PROGRAM LISTING, 



FT007320 
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EJECT 



FT007330 
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TTL I N 

* * 



T R U C T I H ~ OBJECT PROGRAM STORAGE LAYOUT 



OBJECT PROGRAM STORAGE LAYOUT 
* * * # * * * » * 



SPACE 3 
THE DETAILED 



OF THE VARIOUS SECTIONS OF THE OBJECT PROGRAM 



RESULTING FROM 
LOC ATION ZERO). . .__ 
REM 

TRANSFER VECTOR 



ORDE R 

A FASTRAN COMPILATION IS AS FOLLOWS (BEGINNING AT 



FT0C7340 
PX007350 
FT007360 
FJ 007 370 
FTGG7380 
FT007390 
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LIBRARY REFERENCES 
NON-LIBRARY REFERENCES 



PROLOGUE (FOR SUBPROGRAMS ONLY ) 

INDEX REGISTER RESTORING INSTRUCTIONS 



SUBPROGRAM EXIT 

REGISTER SAVIN G INSTRUCTIONS _ „„ 
(THIS IS THE SUBPROGRAM'S ENTRY POINT) 
BODY OF PROLOGUE (SETTING OF ADD RESS IN TEXT) 



FINAL 
INDEX 



TRANSFER AROUND ARITH. STMNT 
ARITHMETIC STATEMENT FUNCTIONS 



FCNS. IF THERE ARE ANY 



# 
# 
* 
« 

* 

* 



(IN ORDER OF THEIR APPEARANCE IN THE SOURCE PROGRAM) 
FLOATING POINT TRAP INITIALIZATION (FOR MAIN PROGRAM ONLY) 
(FPT) 

8 __ 
77462 



SLW 



STZ 
TEXT (CODE 



GENERATED FOR EXECUTABLE ST ATEMENTS) 



CONSTANT STORAGE 
STRING (FORMAT) STORAGE 
"WORKING HsfORAGE 
LOW-CORE (NON-COMMON) VARIABLE 



R£M 

lUEM 

REM 



NON-DIMENSIONED 
* 



STORAGE _ 

AND "DIMENSIONED VARIABLES 



INTERMIXED 



V A ST "E H P f I N ESS 



REM 
REM 



COMMON STORAGE 



FT007400 
FT0G7410 



FT007420 
FT007430 
FTO 07440 
JFT007450 
FT007460 
FT007470 
FT067480 
FT007490 m 
FT 007 5 00 
FT007510 
FT00752Q 
FT007530 



FT007540 
FT007550 
>t007560 
FT007570 
FT007580 
FT007590 
FfOG7600 
FT007610 
FT007620 
FT0G7630 
FT007640 
FTQ0765O 
FT007660 
FT007670 



FT007680 
FT007690 



FT007700 



FT007720 



EJECT FT007730 PAGE 31 



jYl FT007740 PAGE 32 



EJECT FT007750 PAGE 33 



TTL FMSII EDITOR CONTRO 
THE FOLLOWING » INSTRUCTIONS' WILL CAUSE 



L CARD HO, 
GENERATION OF THE 



CARD REQUIRED 8Y THE FMS-II 

IQS/F MS-II SYSTEM. 

REM 

FASTRAN 



EDITOR TO EDIT FASTRAN INTO THE 



IS TOO 8IG TO 8E ACCEPTED AS ONE RECORD BY THE 



EDITOR. THEREFORE THERE IS ANOTHER CONTROL CARD GENERATED 
SOMEWHERE BEFORE LOCATION 30000. 



1 FT007760 
PRQGRAM FTQQ777Q 
FT0G778O 
FT0G7790 
FT0d7806 
FT007810 
Ff007820 
FT007830 



REM 

THESJL TWO 
RUN UNDER 
SPACE 3 



CARDS MUST BE PULLED OFF IF F ASTRAN IS NOT BEIN G 
THIS MONITOR SYSTEM. ~ 



ABS 
9LP 



IORT 
TXI 

ABS 



PRGORG, , BEGRC2-PRG0RG 



BE6INY,,30 



ENTRY PT.,, PROGRAM NUMBER 



FT007840 
FT007850 
FT007860 
FT007870 



FT007880 
FJ007890 
FT60796o 
FJ 007 9 10 
Ff6b7920" 
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* 


TTL MACRO € F I N I 


T I N S 


FT007930 
FT007940 




REH 
SPACE 9 




FT007950 
FT007960 


* 


******* 
REH 


* * * * 


FT007970 
FT007980 


* 


F A S f R A N C M P 

REM 

RESEARCH C M P U T I 

REM 


I L E R 


FT007990 
FT008000 


* 


NG CENTER 


FTOOSOIO 
FT00802Q 


s 


INDIANA UMIVE 
REH _. 


R S I T Y 


FT008030 
FT008040 


* 


BLOOMINGTQNt I 
SPACE 3 


N I A N A 


FT008O50 
FT008060 


* 


******* 

REH 


* » * * 


FTO08070 
FT008080 


* 


MACRO £ F I N I 
REM 


T I N S 


FT008090 
FT008100 


* 


* * * * * * * 


* * * * 


FT008110 
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eject"" " "" " "" 

macros used to form and communicate object-time instruction 
information to ci tbld. ~ ~ 

REM 



CI TBLD MACRO 
TSX 

CI TBLD END 

SPACE 
CO0EN MACRO 

" TSX 

C^'OEH EHD 

SPACE 
CODEP MACRO 
CAL 
ACL 



CITBLD,4,A 



2 

A 
A 
ClfBLD,4 f N 



2 
A 

A " 

PCOUNT 



MACRO FOR OUTPUTTING TYPE N INSTRUCTIONS 



MA CR O FOR OUTPUTTING TYPE P INSTRUCTIONS 



TSX 

C006P END 



CITBLD»4,P 



SPACE 

CODETV MACRO 

■-TSX 
PZE 



CODETV END 

SPACE 

CODEC MACRO 
_ CAL 
IFF 

~ _ _ QR S 

TSX 

CODEC END 



2 
A 
0UTPTVV4 

A 

2 

A.B.C 

A 



MACRO TO OUTPUT A CALL TO AN EXTERNAL 
SUBROUTINE NAME. 



1»C, XRFLAG 
XRFLAG 



CITBLD,4,8 



SPACE 
CODEO MACRO 

ORA 

IFF 
"ORS"""' 

TSX 
CUUEO END 

SPACE 



2 

A f B,C 

A 

1,C, XRFLAG 

XRFLAG 

CITBLD,4,8 



CODECO MACRO 

__ _ _ _CAL _ 

ORA 

IFF 

"ORS 

TSX 

CGDECQ END" 

SPACE 

* 



2 

a,b,cVd 

A _____ _ 

B " " _ ~"~" 

1 ,D, XRFL AG 

XRFLAG 

CITBLD,4,C 



MACRO FOR COMMUNICATING' hTth"THE GENERAL CODE ROUT THE. 
REM 



CUDL 



MACRO 
TSX 



OP, A 
CODE, 4 



CODE 



PZE OP, , A 
JEND _ 

SPACE "' 2 " ™~ -_-.--—.-. , __ 

SPECIAL PURPO SE MACROS TO COMMUNICATE WITH ROUTINES 

WHICH WILL USE "THE GENERAL CODE ROUTINE^ 

THESE MACROS CAUSE ^HE GENERATION OF TWO OBJECT-TIME 



REM 
CODLD MACRO 



INSTRUCTIONS. THEY MOUSED BY THE DOUBLE PRECISlWAND 
COMPLEX ARITHMETIC SECTIGW&J3F THE COMPILER. 



A 



MACRO TO Ldflg-JH E AC AND MQ yiTH O PERAND 



FT008120 
FT003130 
FT008140 
FT008150 
FT008160 
FT008170 



FT0C8180 
FT008190 



FT008200 
FT008210 
FT0C822G 
FTO08230 



FT008240 
FT0G825G 
FT008260 
f JJ>98210 
FT008280 
FT008290 
FT OC 8300 
FT008310 
FT008320 
FT008330 
FT0C834G 
.fIPP_8350. 

r I UUOJOU 

FIQ08_370 
FT008380 
FT0O8390 



FT008400 
FT008410 
F TOO 8420 
FT008430 
FT008440 
FT008450 



FT008460 
FT008470 
FT008480 
FT008490 
FT008500 
FT008510 



FT008520 
FJ0G8530 
FT0G8540 
FT008550 
Ff008560 
FT008570 
FT008580 
FT008 590 
FT008600 
FT008610 



FT008620 
FT008630 



FT008640 
ET008650 
FT008660 
FT008670 
FT008680 
FT008690 
F TOO 8 700 
FT008710 
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TSX 


C0DLD,4 


FT008720 






PZE 


CLA,,A 


FT008730 




CUDLD 


ENO 




FT008740 






SPACE 


2 


FT008750 




CODLAC 


MACRO 


A fO LOAD THE PSEUDO-AC (AND AC+MQ) 


FT008760 






TSX 


CODLAC, 4 


FT008770 






PZE 


CLA, » A 


FT008780 




CODLAC 


END 
SPACE 




FT008790 
FT008800 






2 




CliOSTO 


MACRO 
TSX 


A TO STORE THE AC+MQ 


FT008810 
FT008820 






C0DST0,4 






PZE 

END 


STO,,A 


FTO08830 




CODSTO 




FT008840 






SPACE 
MACRO 


2 


FT008850 
FT008860 




CODSTR 


A DP AND CA LIBRARY ROUIlNE LALLING SEyUENCE 






TSX 


CODSTR, 4 


FT008870 
FT008880 






PZE 


STR,,A 




CODSTR 


END 




FT008890 






SPACE 


2 


FT008900 




COOSTZ 


MACRO 


A TO ZERO OUT A DP OR CA OPERAND 


FT008910 
FT008920 






TSX 


COOSTZ, 4 






PIE 


STZ,,A 


FT008930 
FT008940 




CDDSTZ 


END 








SPACE 
MACRO 


2 


FT008950 
FT008960 




SlTUP 


A TO INITIALIZE A DP OR CA LIBRARY ROUTINE 






TSX 
PZE 


SETUP, 4 _ . 


FT008970 
FT008980 






<«A«) 




SETUP 


END 




FT008990 
FT0O9O~06 






SPACE 


2 




COOSUB 


MACRO 


A TO LOAD AC+MQ WITH NEGATIVE OF OPERAND 


FT009010 






TSX 


CODSUB, 4 


FT009020 






PZE 


CLS,,A 


FT009030 




CODSUB 


END 




FT 009040 






SPACE 


2 


FT009050 
FT009060 




CODLMQ 


MACRO 


A TO LOAD THE PSEUDO-MQ (AND AC+MQ) 






TSX 


CODLMQ, 4 


FT009070 
FT009080 






PZE 


CLA,,A 




r-t-ttst Mr* 






FT009090 






SPACE 


2 


FT009100 




» 


MACRO 


TO RECORD THE MODE AND REGISTER LOCATION OF A TEMPORARY 


FT009I10 




» 


RESULT 


"DURING GENERATION OF ARITHMETIC CODE. 


FT009120 




* 


FIRST j 


ARGUMENT IS THE MODE {REAL, INTEGR). SECOND ARGUMENT 


FT009130 




■a- 


IS THE 


LOCATION {AC, MC, PAC, PMQJ. IF THIRD ARGUMENT IS 


FT009140 




» 


PRESENT, FLOATING ROUNDING IS PERFORMED BY ENTERING THE 


FT009150 




* 


ROUNDX 


ROUTINE PRIOR TO ENTERING THE RESULT ROUTINE. 


FT009160 






REM 




FT009170 




'RESULT 


MACRO 


A,B,C 


FT009180 






IFF 
TSX 


l.C 


FT009190 
FT009200 






RESULT, 4, A*8+B 






IFF 
TSX 


0,C 

ROUNDX, 4, A*8+B 


FT009210 
FT009220 








R SULf 


END 
SPACE 




FT009230 
FT009240 






2 




* 


DEBUGGING MACRO. PRINTS TYPE OF STATEMENT PROCESSOR IDENTIFIED. 


FT009250 






REM 




FT009260 




XRcMK 


MACRO 


A 


FT009270 






TRA 


*+ll 


FT009280 






BCI , 
TSX 


»A» 


FT009290 






LIST, 4 


FT009300 






PZE 


*-u»,io 


FT009310 
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XHEMK 



END 
SPACE 



REMARK 
ftr ; MARK 



DEBUGGING MACRO. DISABLED IN THIS VERSION, TO MAKE THIS 
MACRO FUNCTIONAL, REPLACE IT WITH A 'REMARK OPSYN XREMK* CARD, 
REM 

MACRO _ A 

EQU * 

END 



FT009320 
FT009330 
FTO0934O 
FT009350 
FT009360 
FT009370 
FTGQ9380 
FT009390 
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SPACE 2 

MACRO TO FORM THE PROCESSOR KEY WORD. 



GENERATED IN THE 



RESERVED WORD TEST. 8, C, AND D ARE ONE-BIT FLAGS. 
A GIVES THE ENTRY POINT TO THE PROCESSOR. 



FT009400 
FJ009410 
Ft609420 
FT009430 



SPRSW 



REM 
MACRO 



A t B»C ,0 1 E 



CAL 
TRA 



SPRSW 



VFO 

END 



*+2 

PROCX1 

l/B»r/C,l/D f 015/E,3/ f 15/A 



SPACE 2 

MACRO TO RECORD A SOURCE PROGRAM ERROR._ 



COMMUNICATION WITH THE 



"ERROR ROUTINE IS VIA AN STR TRAP. ADDRESS OF THE STR HAS NAME 
OF THE ERROR MESSAGE, AND DECREMENT HAS THE POINT TO WHICH 



ERROR 



ERROR 



MACER 



CONTROL IS TO BE RETURNED WHEN THE ERROR ROUTINE IS FINISHED. 

REM . . 

A,B 

FORM * A • , , B _ 



MACRO 

STR 

END 

SPACE 2 

MACRO TO RECORD A MACHINE ERROR. 

REM 



USES THE ERROR ROUTINE. 



MACER 



MACRO 

$ TR MC R . 

END 

SPACE 2. ______ 

MACRO TO TElTf ~^ TURNED ON BY THE 

ERROR ROUTINE TO INDICATE A SOURCE PROGRAM ERROR. IF AN ERROR 



HAS BEEN ENCOUNTERED, CONTROL LEAVES THE CURRENT PROCESSOR 
AND GOES TO SKEND. 



NOCODE 



REM 
MACRO 
IE t 
TRA 



NOCODE 
SKE&D 



MOCODE END 

SPACE 2 _____ 

* POST PASS 1 ERROR MACRO USED TO ACCUMULATE SYMBOLS IN ERROR 

» F OR LATER PRINT ING. _ „ _„_„ _„_- — - 

REM 
E RRORY MACRO FLAG 

TSX £ RRORY, 4, FLAG 
CRRORY END _ 

SPACE 2 

* MACRO TO SAVE INDEX REGISTERS. 

._ _„..£™_. - 

SAVE MACRO Q 

SXA Q,4 

SXA Q+1,2 

SXA ~"Q+2,"i 
SAVE END 

SPACE 2 

* MACRO TO RESTORE INDEX REGISTERS 



FT009440 
FT009450 
FT009460 
FT009470 
FT0G94S0 
FT009490 
FT009500 
FT 0095 10 
FTO0952O 
FT009530 
FT009540 
FT009550 
FT009560 
FT009570 
FT009580 
FT0C9590 
FT0G9600 
FT009610 
Ff009620 
FJ009630 
FT009640 
FT009650 



FT009660 
FT009670 



FT009680 



FT009700 
FT009710 
FT009720 
FT009730 
FT009740 
FT009750 
FT0d9760 
FT009770 
Ff009780 
FT009790 



FT009800 
FT009810 
FT009820 
FT009830 
FT009840 
FT009850 
FT009860 
FT009870 
FT009880 
FT009890 
FT009900 
FT009910 



RiSTOR 


REM 
MACRO 


FT009920 
FT009930 
FT009940 
FT009950 
F TO 09960 
FT009970 
FT009980 
FT009990 
FTOIOOOO 
FTOIOOIO 
FT010020 
FT010030 
FT010040 
FT010050 
FT010060 
FT010070 


PA< 




AXT **,4 

AXT **»2 „ „. 




RlSTOR 


END 




* 


SPACE 2 

MACRO TO COMMUNICATE WITH THE SKIP ROUTINE. ARGUMENT IS A 




* 

* 


SYMBOL REPRESENTING ONE BCD CHARACTER (SIX BITS). RETURN FROM 
SKIP IS TO 1,4 IF NEXT CHARACTER IN COLUMN IS NOT EQUAL TO 
THE ARGUMENfT AND TO 2,4 IF THE NEXT CHARACTER IS EQUAL TO 
THE ARGUMENT. _ . _ _ . _ . 




SKIP 


REM 

MACRO A _ __ 




SKIP 


TSX SKIP, 4, A 

END 




# 


SPACE 2 

MACRO TO COMMUNICATE WITH THE SKIPI ROUTINE. SAME AS SKIP 


FT010080 
FT010090 
FT010100 
FT010110 
FT010120 
FT010130 
FT010140 
FT010150 
FT010160 
FT010170 
FT010180 
FT010190 
FT010200 
FT010210 
FT010220 
FT010230 
FT010240 
FT010250 
FT010260 
FT010270 




* 


MACRO EXCEPT RETURNS ARE REVERSED. 
REM 




SKIPI 


MACRO A 

TSX SKIPI, 4, A 




SKIPI 


END 

SPACE 2 _ 




» 


MACRO USED TO BUILD THE OPERATOR RANK TABLE. 
REM 




"rank" 

OP 


MACRO OP, RANK, OPKEY, TYPE, ENTRY 
EQU «-RANKTB+l 




OPKEY 

KfcY 


VFD 7/0P,7/RANK,l/TYPE f 2/l,4/ f 15/ENfRY 

END 

SPACE 2 

MACROS USED TO 8UILD THE GENERATOR KEY TABLES. 

REM 

MACRO A t B f OP.D.E.F 




KEY 


VFD 7/6P,3/A,2/B,3/D,2/E,4/, 15/F 

END 




KEY I 


SPACE 2 

MACRO QPfMtSUS 


FT010280 
CTrti A?on 

FT010300 
FT010310 
FT010320 
FT010330 




KfcYl 


KEY 0,0,OP,M,VS,SUBU 
KEY 0,0,0P,M,AC,SUB«2 
KEY 0,0,OP,M,MQ,SUB«3 

Em 

SPACE 2 

MACRO Ml,OP,M2,SUB 


- 


Kt;Y2 


FT010340 
FT010350 






KEY M1,VS,0P,M2,VS,SUB»1 

KEY Ml , VS , OP , M2 , AC, SUB » 2 . _ 


FT010360 
FT010370 
F TO 10380 
FT010390 
FT010400 
FT010410 
FT010420 
FT010430 
FT010440 
FT010450 
FT010460 
FT010470 
FT010480 
FT01049G 
FT010500 
FT010510 






KEY Ml,VS,OP,M2,MQ,SUB , 3 
KEY Ml , AC , OP , M2 , V S , SUB « 4 




KEY2 


KEY Ml,MQ,OP,M2,VS,SUB , 5 
END 




KtY3 


SPACE 2 

MACRO M1,0P,M2,SU8 




K _Y3 


KEY M1,VS,0P,M2,VS,SUBU 
KEY Ml,VS,OP,M2,AC,SUB , 2 
KEY M1,AC,0P,M2,VS,SUB»4 

END ... 




K£Y4 


SPACE 2 

MACRO OP, M, SUB 






KEY 0,0,OP,M,VS,SUB»1 
KEY 0,0,OP,M,AC,SUB'2 
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K~ ¥4 


END 
SPACE 


2 


FT010520 
FT010530 


* 


MACRO 
REM 


USED TO 8UILD THE OPEN FUNCTION KEY TABLE* 


FT010540 
FT010550 


TAB3 

A 


MACRO 

EQU 


A 
♦-LIBTAB+64 


FT010560 
FT010570 




VFD 
8CI 
END 
SPACE 


7/A*Gll/8INTF-t-B0PNF 
It A 


FT010530 
FT010590 


TAB3 


2 


FT010600 
FT010610 
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TriT I S R UTINE LOCATIONS, ETC. 
THE FOL LOWING MATER IAL IS NEEDED TO IMPLEMENT TH IS VERSION OF 



FASTRAN, WHICH DOES NOT DEPEND ON INDIANA UNIVERSITY'S VERSION 
OF THE FAP ASSEMBLER FOR T HE MEANI NG O F T HE IPS CALLS. 



FT010620 
FT010630 
F TO 10640 
FT010650 
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10 BASEL 
"READ 
WRITE 



S£E~THE INTRODUCTION FOR MORE DETAILS ON THE If4PUT/0UTPUT 

SCHE ME IN FASTRAN. _ 

SPACE 3 

DECLARE ALL IU-FAP IOS OPERATIONS TO BE NULL 

REM 
_OPSYN 
OPSYN 
OPSYN 



NULL 



Re Hi NO 
WEOF __ 
BACKR 
PRINT 
ft CLOCK 
XEOF 



OPSYN 
OPSYN 



NULL 
NULL 
NULL 
NULL 



OPSYN 
OPSYN 
OPSYN 
OPSYN 



NULL 
NULL 
NULL 
NULL 



XRDN 
XMODER 



OPSYN 
OPSYN 



NULL 
NULL 



BUFFER 
CLO S E 
LOAD 
LREAD 



1QE X 
<v AD 

WRITE 

,MWIND 

WEOF 

BACKR 

PRINT 
1 CLOCK 
XEOF 



OPSYN 
OPSYN 
OPSYN 
OPSYN 



NULL 
NULL 
NULL 
NULL 
3 



SPACE 

DEFINE THE LOCAT IONS_ OF ]THE ROUTINES IN I OS 
REM 

241 _ _ 

242 

243 

244 

246 

247 

253 



BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
JOOL 
BOOL 
BOOL 



256 
257 



XRDN 

aMODER. 

BUFFER 

CLOSE 

LOAD 

LREAO 



BOOL 

DUOl. 

BOOL 
BOOL 
BOOL 
BOOL 
SPACE 



260 

£.&£. 

263 
264 
266 
303 
3 



THE FOLLOWING IOS CALL IS NEEDED IN THE IU VERSIQN_OF FASTRA N 

TO LOCATE THE ORIGIN OF IOS MACROS FOR FAP. 

REM ___ __ _. . 

IOBASE ~ 161 



FT010660 
FT010670 
FT01068d 
FT010690 
FT010700 
FT010J10 
F TO 10720 
FT010730 
FT010740 
FTQ 10750 
FT0lor60 
FT010770 



FT010780 
FT010790 



FT010800 
FT010810 
FT010820 
F TO 10830 
FT010840 
_FT0J0850 
FT01C860 
_FJ010870 
FT0i0880 
FT010890 
FTO1O9O0 
FT01091C 
FT010920 
FT010930 
FT010940 
FT01 Q9 50 
FT010960 
FT010970 



FT010980 



FT011000 
FT01I010 
FT011020 
FT011030 



BASE FOR ALL IOS MACROS 



FT011040 
^T011050 
FT011060 
FT011070 
FT011080 
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.PRGORG_BOOL__ 10000 ^ABSOLUTE OR IGI N OF FASTRAN COMPILER FTOlliOO 

ORG PRGORG "" HFTOUUb 

^-_-----M!L_„_________,.. __________.,_.. „ _____ __ _ _ FT0J1120 

REM FTO 11130 

_* DEFIN E TSX INSTRUCTION TO ALLOW A D ECREMENT FT011140 

TSX OPD 0074X5160002 " FTOiTlSO 



* 


TTL MANUAL EM TRY FOR ERROR STOP 

IN CASE OF AN UNEXPECTED STOP DURING DEBUGGING OF THE COMPILER, 


FT011160 
FT011170 


* 

* 


THE OPERATOR MAY TRANSFER MANUALLY TO LOCATION 1OOO0 OCTAL. 
THE SYMBOL TABLE WILL BE DUMPED ONTO THE OUTPUT TAPE, IF A 


FT011180 
FT011190 


# 
* 


SYMBOL TABLE LIST WAS REQUESTED (IF LSTSYM IS ON). THEN AN 
ON-LINE MESSAGE WILL TELL THE OPERATOR TO TAKE A CORE DUMP, 


FT011200 
FT01121Q 


WHAMMY 

IOS01 


SPACE 3 

LET LSTSYM LIST SYMBOL TABLE ONLY IF REQUESTED 

TSX STDUMP»4 

EQU * 


FT011220 
FT011230 
F TO 11 240 
FT011250 




WEOF »MLSTAP ENTRY IN CASE OF EXECUTION HALT TO 
STL IOEX 


FT011260 
FT011270 




BRA WEGF,,*+2 
MTW MLSTAP 


FT011280 
FT011290 


I; WuOl 
I DS02 


REM 

EQU * 


FT011300 
FT011310 




BACKR »MLSTAP,1 BACK OVER THE E-O-F 
STL IOEX 


FT011320 
FT011330 




BRA BACKR,, *+2 
MTW MLSTAP, ,1 


FT011340 
FT011350 


£ND02 
1US03 


REM 

EQU * 


FT011360 
FT011370 




PRINT DUMPRQ,4,DUMPRQ+4,l,DUMPRQ+4,l,DUMPRQ+4,l 
STL IOEX 


FT011380 
FT011390 




BRA PRINT,, *+5 
PZE DUMPRQ,, 4 


FT011400 
FT011410 




PZE DUMPRQ+4,,1 
PZE DUMPRQ+4,,1 


FT011420 
FT011430 


eM)03 


MZE DUMPRQ+4,,1 
REM 


FT011440 
FT011450 


DUMPRQ 


HTR * 

8CI 4,0N0W TAKE CORE DUMP 


FT011460 
FT011470 




BCI 1,0 


FT011480 
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TTL 



INITIALIZATION 



REM 
SPACE 

REM 

REM 



FAST RAN COMPILER 



RESEARCH COMPUTING C £ r H T £ 
REM 

"" I N D IAN A U M I V T¥l 1 T Y 
REM 



BLOOMINGTON, I 

SPACE 3 

* * * # * * * 
REM 



DIANA 



REM 



INITIALIZATIO H 



FTO 11490 
FT011500 
FT011510 
FT011520 
FTO 11530 
F JG1154p 
FT011550 
FT011560 



FT011570 
FT011580 
FT011590 
FT0_11600 
FTO 1161 6 
FT01 1620 
FT011630 
FT011640 
FTO 11650 
FTO 11660 
FT011670 
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TTL INITIALIZATION 

THE .FOLLOWING ARE T HE FIRST INSTRUCTIONS EXE CUTED AFTER FAST RAN 

IS LOADED AND ARE EXECUTED ONE TIME ONLY. THEY HAVE THE 

fOLLOWING FOUR^FUNCTJONS^ 

SPACE 2 

1, SORT GENERATOR KEY TABLES FOR, 



A. REAL AND INTEGER 

8. B OOL EAN _ _ _ 

C. DOUBLE PRECISION 

D. COMPLEX 



REM 



2. DEFINE BUFFERS FOR, 



A. MINTAP * SYSTEM INPUT TAPE 

B. MLSTAP = SYSTEM OUTPUT TAPE 



FT01168G 
FT0J.1690 
FT011700 
JlTOIIJIO 
FTO 11720 
JF TO 11730 
FT0H740 
FT011750 
FT011760 
F TO 11 770 
FT011780 
FTO 11 790 
F T011 800 
FT011810 
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REM 



REM 



C. SYSBIN = SYSTEM (BINARY) LOAD TAPE 

D. SYSUT1 = SYSTEM SCRATCH, TAPE NO, 1 

3 . DEFI NE MODE E RRO R AND END-OF-FILE RET UR NS 

... 

4. SET LOCATIO 2 = TRA ERROR AND SET LOCATION 8 F OR 



SPACE 



FLOATING 
2 



POINT TRAP, 



FT011820 


FT011330 


FT011840 


FT011850 


FT011860 


FT011870 


FT011880 


FT011890 



1LS04 

bi.GINY 
BIGINY 



ON COMPLETION OF THIS PRE-INIT IAL 12 ATION SECTION, CONTROL IS 

GIVEN TO THE MAIN INITIALISATION SECTION TO INITIALIZE FOR 

THIS COMPILATION, 

SPACE 3 _ 

REM 

REM _ „.._ 

REM 

REM 

EQU * 

LOAD ,,31 LOAD NEXT SYSTEM RECORD < PAR T 2) 

STL IOEX 

BRA L0AD,,*+3 __ _ 

flB 

MZE 31 



FT011900 
FT011910 
FT01192G 
FT01193G 
FT011940 
FT011950 
F TOil 960 
FT011970 
FT011980 
F TO 11990 
FT0120G0 
FT012010 



END04 
8EGINZ 



REM 
CAL 
SLH 
CAL 



FT012020 
FT 012030 
FT012G40 



MLSTAP 
=7 



■ **■•*■ in 



dCi ni-D i f\r i u «:> 



SYSBIN TO B4 
IF THIS IS MONITORED RUN 





SLW 


SYSBIN 


- ■ -l-O-SO-S 


EOU 


.-* - 




REWIND 


SYSTP1 




STL 


IOEX 




BRA 


REWIND,, *+2 




MZE 


SYSTP1 


EN DO 5 


REM 






STL 


MONTOR 


bi.GINX 


EQU 


* 




AXT 


4,1 


0MCE1 


CAL 


S0RTK0,1 




STA 


ONCE+1 




ARS 


18 




STA 


ONCE+2 




REM 




ONCE 


CALL 
REM 


SUK ■ ,,,,*• 




CAL 


GENDES+1,1 




ARS 


6 




ORA 


=0217000000 



START Al REWINDING 



INDICATE MONITORED RUN 

INITIAL "ENTRY POINT FOR COMPILER 

SORT THE GENERATOR KEY TABLES 

GET AN INFORMATION WORD 



GET LENGTH OF ONE OF THE KEY TABLES 
AND DETERMINE "THE PQWER-QF-TWQ LENGTH 
) OF THIS TABLE. THIS INFORMATION 



FT012060 
FTO 120 70 
FT012080 
FJOJU209O 
FT012100 
FT012110 
FTO 12120 
FT012130 
FT012140 
FT012150 
FT012160 
FT012170 
FT012180 
FT012190 
FTO 12200 
FT012210 
FT012220 
FTC12230 
FT612240 
FT012250 
FTO 12 260 
FT012270 



FAD 
SU8 



ARS 
STA 
PAX 
CAk 

STO 
REM 



=0217000000000 

=0200000000000 

9+18 

GENBIN+1, 1 

,4 

BL0WERt_4_ 

GENBIN+iti 



TS'USED BY THE GEN ROUTINE'S 
BINARY SEARCH S ECTION* 



SHIFT COUNT INTO ADDRESS 

SAVE IN ADDRESS OF BINSER CELL 



GET POINTER TO THE BINSER TABLE 
DECREMENT OF THIS TABLE WORD HAS THE 



NOfTOWER POWER OF TWO THAN THE TABLE 
LENGTH. SET INTO T HE BINSfcR CELL* 



I0S06 



REM 
TIX 
REM 
EQU 



0NCE1,1,1 



BUFFER BUFBIN,2,246»*SYSBIN 



QE 



cv 



BRA 
PZE 



END 06 

iosot" 



HON 
REM 



BUFFER,, *+3 
BUFBIN,,2 
246 1 1 SY5BI N 



EQU 
BUFFER 



BUFUT 1,2, 179»S YSUI1. 



STL 
BRA 
PZE 

NZE 



IOEX 

BUFFER,, *+3 
8UFUT1,,2 
179,,SYSUT1 



fcHOO? 

losoa 



REM 

BUFFER 
STL 



fc*D08_ 
"Id S09 



BRA 
PZE 

MZE 
REM 



BUFMIT,2,302,MINTAP 
IOEX „ _._. 

BUFFER »,*+3 
BUFMIT,,2 
302,,MINTAP 



EQU 
BUFFER 



STL 
BRA 



BUF MLT , 2t302f*HLSTAP_ 

IOEX 

BUFFER, »*+3 



PZE 
MON 



BUFMLT, ,2 
302,,MLSTAP 



EMD09 


REM 




I0S10 


EQU 


* 




XMODER 


GETMER 




STL 


IOEX 




BRA 


XMODER,, »+2 




MZE 


GETMER 


F^DIQ 


REM 




IGSil 


EQU 


* 




XEOF 


GETEOF 




STL 


IOEX 




BRA 


XE0F,,*+2 




MZE 


GETEOF 


i:.uil 


REM 






REM 






LDQ 


ERROR 




STQ 


2 




REM 






CAL 


(FPU. 



FT012280 
FJ01229G 
FT01230G 
FT 012 310 
FT012320 
FTQ1233G 
FTO 12 340 
FT012350 
FTO 12 360 
FT012370 
FT 012380 
FT012390 
FT012400 
FT012410 
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FT012420 
FT012430 
F f 012440 
FT012 450 
FT012460 
FT012470 



FT012480 
FJ0JL2490 
F 1012500 
FT012510 



FT012520 
FT012530 
FTG12540 
FT012550 
FT012560 
FT012570 
FT012580 
FT012590 
Ff012600 
FT012610 
FTO 12620 
FT012630 



INITTAlTZE EXECUTION ERROR SUBROUTINE 



INITIALIZE THE FLOATING TRA P CEL L 



SLW 
REM 
STZ 
SLF 



TO RESET POSSIBLE TAG IN CELL 
TURN OFF THE LIGHTS 



FT012640 

FT012660 
FT012670 
FTO 12680 
FT012690 
FT012700 
FT012710 
FT012720 
FT012730 
FT012740 
FT0JL2750 
F TO 12 760 
FT012J70 
FT012780 
FT012790 
Tfbl2800 
FT012810 
FTO 12820 
FTO 12830 
FTO 12 840 
FT012850 
FT012860 
FT012870 



REM 
AXT 


POOL-COLUMN-665,4 LENGTH OF THE POOL REGION 


FTQ12880 
FT012890 


ST2 
TIX 


POQL+1,4 ZERO OUT THE POOL AREA THE FIRST TIME 
*-l,4,l 


FT012900 
FT012910 


Ken 
TRA 


START 


F TO i 2920 
FT012930 


SPACE 

REM 


2 

IMFORMATION WORDS FOR TABLE SORTS 


FTQ1294G 
FT0I2950 


PIE 

PZE 

"PIE 

PZE 


KEYTB0,,KEYTBG+LKYT80-1 

KEYTB1,,KEYTB1+LKYTB1-1 _ 

KEYr82»,KEYTB2+LKYTB2-l 
KEYTB3,»KEYTB3+LKYTB3-1 


FT012960 
FT012970 
FT012980 
FT012990 


SORTKO EQU 


* 


FT013000 
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EJECT 

THE FOLLOWING INST RUCTI ONS 
SECflON OF THE FASTRAN COMPILER. 
TO THE COMPILATION OF A PROGRAM . 

space" ~T ~ 

REM 



MA KE UP THE NORMAL INITIALIZAT ION 

THIS SECTION IS EXECUTED PRIOR 



START 



EQU 
SWT 



IUS12 



TRA 
EQU 
RCLOCK 
STL 



* 
6 

# 
IOEX 



NO TIME IF SSW 6 UP 



GET TIME IF SSW 6 DOWN 



FT013010 
J= T013020 
FT013630 
QP 13040 
FT013050 
FT013060 
FT013070 
FT013080 
FT013090 
FT013100 
FT013110 
FT013120 
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END12 



BRA 
REM 



RCLOCK,, *+l 



FT013130 
FT013140 



REM 
SLN 



TURN ON CONSOLE WATCHER'S LIGHT 



REM 
INITIALIZE 



THE SYMBOL TABLE 



AXT LSYMTB+1,4 
STZ SYMTAB+1,4 



TIX 

REM 



*~1,4,1 



FT013150 
FT013160 
FT013170 
F TO 13 180 
FT013190 
FT013200 
FTO 132 10 
FT013220 



I0S13 



INITIALIZE THE 
STL GETR1 
NOP GET1 

REM 

# 

SYSUT1 



GETCH ROUTINE 

JSEOUENCE 
THIS CELL 



INVOLVED I N ONE-TIME TITLING SECT 
IS USED IN A »TRA*» 




REWIND THE SCRATCH TAPE 



FT013230 
FTO 13240 
FT013250 
FT013260 
FTQ13270 
FT013280 



IOEX 

REWIND, ,»+2 
SYSUT1 



NXTL0C4 



INITIALIZE THE POOL 



*+3,4,0 
PQ0L*1*4 



SKIP OUT IF NO POOL 



A REA TO ZERO 
WAS USED 



FT013290 
FT013300 
FT013310 
FT013320 
FTO 13330 
1T013340_ 
FT013350 
FT013360 



*-lt4,l 



FT013370 



INlflALrZE ALL COMPILER FLAG CELLS TO ZERO. 



AXT 
"STZ 
TIX 
REM 
CAL 
SLW 
REM 



TRIGR2-TRIGR1.4 
TrTGR2~74 
♦-1*4, 1 



ZERO OUT BLOCK OF SWITCHES 



ALLSVN 



INITIALIZE ASTACK+1 TO ALL_ONES 



ASTACK+1 



CAL 

SLW_ 

REM 

ZSD 

ZSD 

ZSD 

REM 

CAL 

SLW 

AXT 

SXA 

SXA 

AXT 

SXA 



=0200500000000 
9 LEFT 

WORKS 

GETWR1 

FREWR1 

CITBL9 

CITBLH" 

CITl-1,4 

CTL0CA,4 

GETLCC4 

CTFLGi-1,4 

CTL0CB,4 



INITIALIZE THE «7/9» PUNCH. 
AFTER ZEROING OUT THE CELL. 



INITIALIZE CITBLD ROUTINE FOR CIT1 



FT013390 
FTG13400 
FT013410 
FT013420 
FT013430 
FT013440 
FTO 13450 
FT013460 
FT013470 
FT013480 
FTO 13490 
FT 013500 
FT013510 
FTO 13520 
"FT0I3530 
FT013540 
FT013550 
FT013560 
FTO 13570 
FT013580 
FT013590 
FT013600 



SXA 


CTLOCC4 


FT013610 
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SXA 


CTLOCD,4 


FT013620 




SXA 


CTL0CE,4 


FT013630 




SXA 


GETLCA,4 


FTO 13640 
FT013650 




SXA 


GETLCB,4 




2SA 


STSH1 


FT013660 
FT013670 




ZSO 


T8UND-3 




ZSO 


TBUND-2 


FT013680 
FT013690 




ZSO 


TBUND-1 




ZSO 


TBUNO 


FT013700 
FT013710 




REM 






AXT 


1,1 X 


FT013720 
FT013730 




SXA 


GETFG1,1 X 




SXA 


G£TFG2,1 X 


FT013740 
FT013750 




SXA 


PRGLOG+2,1 




SXA 


CTBL1,1 


FT013760 
FT013770 




SXA 


CT8L2,1 




SXA 


NXTLOC1 


FT013780 
FTO 13790 




REM 






AXT 


6,1 X 


FTG13800 




SXA 


GETFG2+1,1 X 


FT013810 




REM 




FT013820 




AXT 


20,1 


FT013830 




SXA 


STSHl-1,1 


FT013840 
FT013850 




REM 






AXT 


36,1 


FT013860 




SXA 


CTBL2+i,l 


FT013870 




REM 




FT013880 




AXT 


EQUTBL-INITFG,4 EQUIVALENCE MASTER DIRECTOR CELL 


FT013890 




PXA 


,4 


FT013900 




SLW 


INITFG 


FT013910 




REM 




FT013920 
FT013930 




REM 


INITIALIZE FLAG CELLS PERTAINING TO 




REM 


CLOSED AND RESERVED LIBRARY NAMES 


FT013940 




AXT 


LSLNTB,4 


FT013950 




STZ 


SLNTAB+LSLNTB,4 


FT013960 




TIX 


*-l»4,2 


FT013970 




REM 




FT013980 
FT013990 




SXA 


MAP22,4 SET MAP22 ADDRESS TO 2. 




REM 




FTO 14000 
F TO i 40 10 




TRA 


STARTT 







TTL 


PASS 1 - DESCRIPTION 


FT01402G 




* 






FT014030 
F T 014040 






REM 








SPACE 


9 


FT014050 




* 


* 
REM 


********** 


FT014060 
FT014070 
FT014080 




* 




FAS FRAN COMPILER 






REM 




FT014090 




* 


RES 


EARCH COMPUTING CENTER 


FT014100 






REM 




FT014110 
FT014120 




% 


INDIANA UNIVERSITY 






REM 




FT014130 




* 


8 


LOOMINGTON, INDIANA 


FT014140 






SPACE 

* 


3 


FT014150 




* 


********** 


FT014160 






REM 




FT014170 




* 


REM 


PASS 1 


FT014180 
FT014190 




* 


• 


********** 


FT014200 
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* 

* 

* 

ft 

* 
* 
ft 

* 

* 
ft 

ft 
* 
ft 

ft 
* 
ft 
ft 
le- 
ft 
ft 
ft 
a 



EJECT 

BRIEF DESCRIPTION OF PASS 1 



STRUCTURE. 



SPACE 3 

PASS 1 PERFORMS THE PRIMARY PASS, .OVER THE SOURCE DECK, 



FT014210 
FTO 14220 
FTO 14230 
FT014240 
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THE SECTIONS OF PASS 1 ARE LISTED BELOW WITH A BRIEF STATEMENT 

OF THEIR FUNCTIO NS. MO ST ROUTINES HAVE TH EIR OWN DETAILED 

'DESCRIPTIONS" GIVEN IN THE BODY OF THE LISTING. 

tjru 

GET CH. . . READS AND LISTS SOURCE FCAR ^ . " Eo^MEW^C A^sT^^R *Y 
ARE DETECTED HERE AND INGORED AFTER LISTING . OTHER CARDS AR E 



FT014250 
FT014260 



BURST WITH BLANKS DELETED FOR EASIER SCANNING. THIS ROUTINE 
CONTROLS, pag E TITU_NG_ AND SUBTITLING FORMATS, AND DETECTS A 
POSSIBLE BINARY DECK CARD LABEL. 
REM 



GETLBL... SCANS THE LABEL FIELD OF A CARD, DETECTING ANY 

COLUMN 1 CHARACTER AND AN Y ST ATE MENT LABEL. 

REM"" 

PROCXX... RESERVED WORD TEST AND DETERMINATIO N OF STATEMENT TYPE 



FT01427C 
FT014280 
FT014290 
FTO 14300 
FTO 143 10 
FT014320 
FTO 14330 
FT014340 
FT014350 
FT014360 



IAN ARITHMETIC STATEMENT IS DETECTED BY DEFAULT, I.E. IT DOES 
NOT CONFORM TO A RESERVED TYPE.) 



REM 

PR 0CX1... TRANSACTS MISCELLANEOUS BUSINESS PRIOR TO EN TERING 

THE STATEMENT PROCESSOR DETERMINED IN PROCXX. SEVERAL ERRORS 

ARE DETECTED HERE. IF OBJECT CODE ON A PREVIOUS STATEME NT WAS 

DELAYED IN ORDER TO SEE THE CURRENT CARD LABEL, IT IS NOW PUT 

OUT. THE STATEMENT LAB£L_ (IF ANYL_IS ENTERED I NTO SY MTA8. 

REM 

SKEND... ENTERED FROM ALL STATEMENT PROCESSORS AT THE JND OF 

THEIR PROCESSING. ~ AMONG OTHER MATTERS, ANY DO-STATEMENTS WHICH 

TERMINATE AT THE CURRENT STATEMENT WILL HAV_E THEIR APPROPRI ATE 

OBJECT CODE PRODUCED" NOW • 

REM 

(STATEMENT PROCESSORS FOR ALL RESERVED WORD STATEMENTS). 

REM 



FT01437G 
FT014380 
FT014390 
FTO 14400 
FT014410 
FT014420 
FT014430 
FT0JL4440 
FT014450 
FJ0J4460 
FTO 14470 
FT014480 
FT014490 
FT014500 
FT0145I0 
FT014520 
FT014530 
FT014540 



1ARITH... ARITHMETIC STATEMENT PROCESSING. THIS PROCESSOR 
UTILIZES A LARGE NUMBER OF AUXILIARY SUBROUTINES. SEE THEIR 



DESCRIPTIONS IN LATER PAGES. 



(PASS 1 UTLILTY PROGRAMS) 
REM 



FT014550 
FJ014560 
FT014570 

CTA1 4KAA 

FT014590 
FT014600 



TTL PASS 

GETCH ROUTINE.. 



\ "'- ~i H ""i t 1 AL CARD PROCESSING 



REM 

THIS ROUTINE READS SOURCE CARDS O FF THE MONITOR INPUT TAP E, 

TlsfS THEM ON THE" OUTPUT TAPE, AND FOR NON-COMMENTS, NQN-*, 

OR NON-$ CARDS, BURSTS EACH STATEMENT ONE C HARACTER PER WORD 



W A STATEMENT CONSISTS OF~ MORE THAN ONE CARD, THE ENTIRE 
STATEMENT WILL 8E BURST A T ONCE. COLUMNS 73-80 OF TH E FIRST 



~CARD~AND COLUMNS 1-6 AND 73-80 OF ALL SUCCEEDING CARDS WILL 

BE IGNORED. NOTE THAT COLUMNS 1-6 ( WITH COLUMN 6 BLANKED 

oOTr^FTHFTlRSt CARD" OF A STATEMENT ARE CONSIDERED TO BE 
A PART OF THE STATEMENT . TRAIL ING BLA NKS WILL BE DELETED 



Before the card is burst, the burst card is stored starting 

WITH 'COLUMN 1 AND GOING TOWARD HIGH CORE. EACH CHARACTER 



~Q~C^PTES~BITS P,T-5 OF A SEPARATE WORD IN COLUMN, WITH THE 
NEXT FIVE CHARACTERS OF XHE STATEMENT FILLI NG OUT THE WORD. 

TllAXIMUM OF 666 CHARACGERS" (10 CARDS + 6 LABEL CHARACTERS) 
ALLOWED. AN OCTAL 77 IS ENTERED AS THE LAST CHARACTER ON 



IS 



THE CARD FOR USE BY THE SCANNER. 
REM 



FT014610 
FT014620 
FT014630 

FT 014640. 
FT014650 
FT014660 
FT014670 

^T0JL4680 
FT 014690 
FT014700 
FT014710 

_FTQ14720 
FT014730 
FT014740 
FT01475G 
FT0147 60 
FT014770 
FT0 14780 
FTO 14790 
FT014800 
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UPm^WfERTNG^rHE ROUTINE FOR THE FIRST TIME, THE TITLE FOR EACH 
PAGE OF THE OUTPUT LISTING WILL BE S ET UP IN THE REGION 



TFfLE~TALSO DATE AND PAGE COUNT). IF THE TITLE CARD HAS 
$, *i_ OR C_IN COLUMN 1, THE CAR D IS NOT LISTED ON THE OUTPUT 
TAPE. SUBTITLING ^PERMITTED BY MEANS OF A 
CARD CONTAINING A $-SIGN_IN COLUMN 1. 



IN THIS CASE, COLUMNS 



j^jYW $ -$im CkRDS IdllL BE LISTEDTn WORDS 4-15 OF THE 
SECOND LINE OF EACH PAGE. $-SIGN CARDS CAUSE A PAGE EJECT 



„____ r-^ E SE c6nD CARD OF THE SOURCE DECK. ALSO $-SIGN 
CARDS WILL NOT B^ LISTED ON THE OUTPUT T_APE._ _ TO. TURN 1 OFF 
SUB-TITLINGT USE A BLANK $-SIGN CARD. 

REM 



^tNAR^DECK LABELING IS EFFECTED BY THE USUAL FORTRAN RULES, 
I.E. IF THE FIRST NON-* CARD (OR NON- $ CARD IN FASTRAN) IS A 



FT014810 
FT014820 

TT014830 
FTO 14840 
FT014850 
FTO 14860 
FT014870 
FT014880 

1=T014890 
FT014900 
FT014910 
FT014920 
FT014930 
FT014940 



TOfP=»lWS^CMF~wTtH AT r LEAST ONE NON-BLANK CHARACTER IN COLUMNS FT014950 
2-7, THESE SIX CHARACTER S ARE USED AS THE BINARY DECK LABEL. IF FT014960 



This" condition is not met, the subroutine or function name 

IS USfcD, OK t\JH A BAlr < pKUi jRwMt < ne unw\At,ki\j inA^n i 



Ttartt 



G~TCH 



bh'TR 



ARE USE 

SPACE 

NZT 

TR A 

SfZ 

TSX 

R£M^ 

ZET 

ERROR 

REM 
REM 
ZET 



D (THIS 
3 

ERHERE 
GETCH 



LAST IS DIFFERENT FROM FORTRAN). 



IGS14 

bCTR5 



TRA 

REM 

£QU 

READ 

STL 

BRA 

PZE 

MZE 



ERHERE 
LIST, 4 
BLANKS »,1 

enfiTf 

37, FINISH 
GETR4 



GETRFL 
GETR3 



"DID ERROR OCCUR IN LAST STATEMENT 

MiX . .. . . . . . 

YES. 
SKIP 



FT014970 
CTQ14930 

FT0T4990 
FTO 15000 
FT0T5010 
FT015020 



RESET 
A LINE 



FLAG CELL 

ON THE OUTPUT 



TAPE 



HAS AN~END-OFHFILE BEEN ENCOUNTERED 
NO END CARD FOUND. ERROR 



TURN OFF" FLAG INDICATING NON-VOID STATE 
UN CASE EOF I^S ENCOUN TE RED B EFORE NEXT 
EXECUTABLE STATEMENT. 



FT015030 
FT015040 
FT015050 
FT015060 
FTO 15070 

FT 0150 80 

MENTFT015690 
FT015100 
FT015110 
FT015120 



MO READ 



MINTAP,D£C,CARD jL 14 
TOEX 

READ,,»+3 
MINT AP,, DEC 
CARD, ,14 



FT015130 
FT015140 
FTO 15 150 
FT015160 
FTO 151 70 
FT015180 
FT015190 
FT015200 



s014 



REM 
STL 



GETR3 



TRA 

STA 
AXT 



GETRFL 
GETRi 
JGETR2__ 
*+3 
0*4 



FT015210 
F TO 15220 
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FT015230 
FT015240 



FT015250 
FT015260 



AXT 
CAL 
SLW 
TXI 



bill R 1 



TIX 
TRA* 



14,1 

* * ,4^ 

CARD+14, 1 

* + l,4»^iL 
♦-3,1,1 

*• 



1 TIME TITLING SW ITCH 



FT015270 
FT015280 
FT015290 
FJ015300 
FT6l53ld 
FT015320 



REM 



THIS SECTION SETS UP PAGE TITLING. 1ST 
CARD OF THE SOURSE DECK WILL BE U SED AS A 



REM 

REM 



TITLE. IF IT ALSO HAPPENS TO BE A COMMENTS 
OR * CARD, IT W ILL NOT GET LISTED. 



GlTI 



STL 
STZ 



u 1 ^ t 

LIS8 



INITIALIZE FOR PAGE EJECT {LINE COUNT 
I N I T I AL I Z E PAGE COUNT TO ZERO 



STZ 
CAL 




GET1B 

_CARD 

30 
=H00000C 



8LANK OUT COL UMN 1 IF C. *, OR $ 

00 NOT LIST THESE" CARDS IF TITLES. 



*+2 

GET6+2,4 
^HOODOO* 
*+2_ 
GETIC 

=H00000S 

*+2 ~~~" 

GETR5 

=H00000E 

*+2 

GETR5 

=H00000$ 



COMMENTS CARD. GO CHECK FOR LABELLING 



* CARD 
IS JT A SPACE STATEMENT. 
NO 

YES. IGNORE IT ON FIRST CARD, 
IS IT EJECT. 
NO __. 



YES. IGNORE IT ON FIRST CARD 
IS IT A SUB-TITLE CARD. 



GET1C 
GET1B 



STL 

REM 



LABFLG 



Tes. Ignore sub-titling and use as title 

not a_cqmments# * or $ card 

deck labeling no longer possible 



GcTIA 



AXT 
CAL 
SLW 
TIX 
REM 
CAL 
PAI 

ANA 
PAX 
LFT 

TXI 
CAL 
SLW 
REM 
ZAC 

LGL 
TNZ 



12,4 
CARD+12,4 



MOVE FIRST CARD INTO TITLE BUFFER 



TITLE+13,4 
»-2»4yi 

DATE8X 

24 __ _ _ 

=077 ~ 

,4 

10000 

*+l f 4, 10 

MO NTH, 4 

TITLE+15 



GET THE MONITOR DATE CELL 

SHIFT OU T ALL BUT THE MONTH 

KILL ALL BUT THE LAST CHARACTER 

WAS THERE A TENS DIGIT. 

YES 

GET THE NAME OF THE MONTH 

PUT INTO THE TITLE LINE 



CAL 

LGL 

"ALS 

ORA 



6 
*+2 

BLANKS 
6 

6 ~ 

=H 00 



SHIFT IN THE TENS DIGIT OF THE DAY 

IS H ZERO. 

YES 

OTHER DIGIT _... . 

INSERT TRAILING BLANK_ 



FT015330 
FT0_15_340 
FT015350 
FT015360 
) Ft 6 153 70 
FJ015380 
FT015390 

J= TO 1 54.09 
FT01541G 
FT015420 
FT015430 
FT015440 



FT015450 
FJ015460 
FT015470 
FT015480 
FTO 15490 
FT015500 
FT015510 
FT01552Q 
FTO 15530 
FT015540 



FT015550 
FT015560 



FT015570 

r--rrt i ccort 

r i \ji?z>o\j 

FT015590 

FTOJ5600 

Ft6l5610 

FT015620 

FT015630 

FT015640 

FT015650 

FTO 15660 

FT015670 

FT015680 

FTO 15690 

FT015700 

FTO 15 7 10 

FT01572G 

FT015730 

FT015740 

FT015750 

FT015760 

FTO 15770 

FT015780 

FTO 15 790 

FT01580G 





SLW 


TITLE+14 


FT015810 
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REM 




FT015820 
FTO 15 830 






XCL 


BRING IN THE YEAR 






ANA 


=0777700000000 


FT015840 
FT015850 






ORA 


=H00 






SLW 


TITLE+16 PUT YEAR INTO TITLE LINE 


FTO15860 
FT015870 






REM 




~ _ ~ 


GtllE 


STL 


GETR1 NO SUBTITLE. RESET 1 TIME TITLING SWITCH 


1 FT015880 






NOP 


GET2 


FT015890 






ZET 


GET1B 


FT015900 
FT 0159 10 






TRA 


GET2 LIST TITLING CARD 






TRA 


GETR5 DO NOT LIST. RETURN FOR NEW CARO 


FT015920 
FTO 15930 






REM 


COMMENT, * OR $ CAROS 


""" ""' : ~~ " " 


b L J 1 C 


STZ 


GET18 TURN OFF LISTING OF THESE CAROS 


FT015940 
FT015950 






LAL 


CARD BLANK OUT COLUMN 1 






ANA 


=07777777777 


FT015960 
FTO 15 970 






ORA 


=H 00000 






SLW 
TRA 


CARD 


FT015980 






GET1A 


FT015990 






REM 




FT016000 




G£T2 


CAL 


CARD CHECK FOR SUB-TITLING CARD 


FT016010 






LGR 


30 


FT016020 
FT016030 






LAS 


=H00d00S IS IT SPACE. 






TRA 


*+2 NO 


FT016040 






TRA 


GETSPC YES. GO PROCESS THE SPACING 


FT016050 






LAS 
TRA 


=HO0OOQE IS IT EJECT. 


FT016060 
FT016070 






*+2 NO 






TRA 


GETT2 YES. GO SET FOR EJECT 


FT016080 






ERA 


=H00000$ 


FT016090 






TZE 


GETTTL SUB-TITLE. GO FIX UP THE TITLING 


FT016100 






REM 




FT016110 






CAL 


CARD+13 SAVE LOOK-AHEAD AND BLANK »£M OUT 


FT016120 






SLW 


LASTLA X 


FT016130 






ANA 


=0777700000000 X 


FT016140 






ORA 


=HO0 X 


FT016150 






SLW 


CARD+13 X 


FT016160 
FT016170 






TSX 


LIST, 4 LIST THIS SOURCE CARD 








r Aon ..a 










\J t-ti^.1^ J J i.T 


r i uioiou 






CAL 


CARD 


FT016190 






LGR 
LAS 


30 


FT016200 






=H00000C IS IT COMMENTS 


FT016210 






TRA 


*+2 NO 

GET6"»4 YES. GO CHECK FOR DECK LABELING 


FT0X622O 
FT016230 






TSX 






LAS 
TRA 


=HO0O00* IS IT * 


FT016240 
FTO 16250 






*+2 NO 






TRA 


GETR5 YES 


FT016260 
FT016270 






STL 


GETR4 






STL 


LABFLG DECK LABELING NO LONGER POSSIBLE 


FT016280 






AXT 


CARD+12,1 


FT016290 






SXA 

REM 


CARD1,1 


FT016300 
FT016310 






CHECK IS IT A CONTINUATION CARD 






REM 




FT016320 
FTO 163 30 




IUS15 


EQU 


* 




G^T2A 


LREAO 


MINTAP»DEC,£RASE,GEIRFL LOCATE NEXT SOURCE CARD 


FT016340 




&lr TkA 


STL 


IOEX 


FT016350 






BRA 
PZE 


LREAO,, *+3 


FT016360 
FT016370 






MI NT AP,, DEC 






MZE 

REM 


ERASE,, GETRFL 


FT016380 
FT 01 6 390 




'c^Dl5 








REM 




FT016400 





LXO 
SXA 



AXT 
CAL* 



LGR 
LAS 
TRA 
TRA 
LAS 
TRA 



TRA 
LAS 



TRA 
TRA 



LAS 
TRA 



TRA 

w f% w 



ERASE»4 

G£TR2,4 

0,4 

GETR2 

30 

_ = H000p_0C_ 
*+2 
GET3 

=hooo6o* 

GET3 

_ ss _HP_P00p$_ 
*+2 
GET3 

"ilVWWVV J 

_*+jl 

GET3 
=HOOOO0E 



IS COL. 6 NON-ZERO 



IS THIS A SUBTI TLE CARD 



NO 
YES 



ST ATEMENT IS N OW COMPLETE 



NO 



YES. TERMINATE THIS STATEMENT HERE. 
IS IT EJECT. 



PT016410 
FJ016420 
FT016430 
FT016440 
FTO 164 50 
FT016460 
FT016470 
FT016480 
FT01649G 
FT016500 
FTO 165 10 
FT016520 
FTO 16530 
FT01654G 
FTO 16550 
FT016560 
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TRA 
TRA 



LGL 
ANA 

LAS 



&r FR2 
CARD1 



TRA 
TRA 
REM 
CAL 
ADO 
STA 
AXT 
TXI 
CAL 
SLW 

fix 

AXC 

CAL* 

SLW 

ANA 

OR A 

SLW* 

CAL 



&£T4 



bv T6 



STA 
TSX 

TRA 
REM 
CAL* 
ERA 
TNZ 
TXI 
TXH 
TRA 
SPACE 
REM 
ZET 
TRA* 
CAL 
"LDQ~" 
LGL 



*+2 
GET3 



30 

=077 

GEf™3 
=HO0Q00 
*+2 
GET4 



YM_.__ TERMIN ATE T HIS STATEMENT HERE 



NO. THEREFORE NOT A CONTINUATION CARD. 



_CQL_6_IS_ BLANK. GO TEST F OR BLANK CARD 
CONTINUATION CARD 




*+l,4 ,-l 

**»4 

**tl 

•~3fltl 

13,4 

GETR2 

LASTLA 

=0777700000000 

=H00 

GETR2 
GETR2 

*+2 r 

LIST.4 



FT016570 
_FT016580 
FT016590 
FT016600 
FT016610 
FT016620 
FT016630 
FTO 16640 
FTO 1665 6 
FT016660 
FT016670 
FT016680 
FTO 16690 
FT016700 
FT016710 
FT016720 
FT016730 
FT016740 



SAVE LOOK-AH EAD AND BLANK 81- 84 
X 

X 

X 
X 



FT016750 
FT016760 



**t»14 
GE J2A 

GETR2 

BLANKS 

GET3 

* + If 4,-1 

*-4,4,-12 

CARD 1+2 " 

2 

LABFLG 

3,4 

CARD 



LIST CARD JUST READ 



TRY AGAIN FOR A CGNT. CARD 



TEST FOR COMPLETELY BLANK CARD 



SKIP OUT IF NON-BLANK WORD. 

QUIT WHEN OUT OF WORDS 



ALL BLANK. GO LIST AND CONTINUE 

CHECK IF WE CAN GET A "DECK LABEL 
IS LABELING STILL POSSIBLE. 
NO " 



CARD+1 

7 



COMPLETELY KILL THE »C 



FT016770 

CTA1 t70ft 
» t -y JL\J I WW 

FTO 16790 
FTO 16800 
FT016810 
FTJH6820 
FT016830 
„FTO 16840 
FT016850 
FT016860 
FT016870 
FT016880 
FTO 16890 
FT016900 
FT016910 
FT016920 
FT016930 
FT016940 
FT016950 
FTO 16960 
FT016970 
FT016980 
FT016990 
FT017000 





LGR 


1 






FT017010 




LAS 


=H 


ARE COLUMNS 2-7 BLANK, 




FT017020 




TRA 


*+2 


NO 




FT017030 




CAL' 


=0 
LABEL 


YES. SET LABEL TO ZERO 




FTO 17040 




SLW 


ESTABLISH A LABEL 




FT017050 


Gc r? 


STL 


LABFLG 


NO MORE LABELING IS POSSIBLE FROM « 


'C« CARDSFT017060 




TRA* 


3,4 


RETURN 




FT017070 




SPACE 

REM 


2 






FT017080 






SET UP SUB-TITLING OPTION 




FT017090 


G-TTTL 


STL 
AXT 


SBTTL 
12,4 


SET THE SUBTITLING FLAG ON 




FT017100 




WORDS ON THE CARD 




FT017110 




CAL 


BLANKS 


APPEND BLANK TO COLUMN 1 




FT017120 




LGL 


30 


RESTORE THE WORD 




FT017130 




REM 








FT017140 


GilTTl 


SLW 


SUBTTL+15,4 


MOVE CARD IMAGE INTO SUBTITLE BUFFER 


FT017150 




ERA 
""TIE 


BLANKS 

•T£~ 


AND NOTE ANY NON-BLANK WORD IN THE 


CARD 


FT017160 








FT017170 




SLM 


1 


SET LIGHT IF NON-BLANK WORD 




FT017180 




CAL 


CARD+13,4 


GET NEXT WORD 




FT017190 




TIX 


GETT1,4,1 






FT017200 




REM 








FT017210 




SLT 


1 


ANY NON-BLANK WORDS. 




FT017220 




ST2 


SBTTL 


NO. SET THE SUBTITLING FLAG OFF 




FT017230 


GcTT2 


STL 


LIS7 
GETR5 


SET THE LINE COUNT FOR PAGE EJECT 




FT017240 




TRA 


GO GET NEXT CARD. 


FT017250 




REM 
CAL 








FT017260 


GrISPC 


CARD+1 


PROCESS SPACING REQUIREMENTS 




FT017270 




TSX 


BCDFIX.4 


GO GET THE COUNT 




FT017280 




ARS 


18 


INTO ADDRESS (IGNORE ERRORS IN THE 


COUNT) 


FT017290 




PAX 
ADD 


,2 

LIS7 







FT017300 




PINES SO FAR ON THIS PAGE 


FT017310 




CAS 


LPERPG 
GETT2 


IS IT TOO MUCH. 




FT017320 




YES. EJECT 


FT017330 




TRA 

'"TSX 


GETT2 

'LTsT f "4 






FT017340 




SKIP LINES UNTIL THE COUNT IS EXHAUSTED 


FT017350 




PZE 


BLANKS,, 1 






FT017360 




rix 


*-2,2,l 






FT017370 




TRA 


GETR5 
2 


RETURN FOR ANOTHER CARD 




FT017380 




SPACE 






FT017390 




REM 
REM 


■■■ - — -- ■-■ 






FT017400 




EXECUTED ONLY IF MODE ERROR OR END- 


-OF-FILE 


FT017410 


GCTMER 


STL 


MOOERR 






FT017420 




TRA 


»+2 






FT017430 




REM 








FTO 17440 


ullTEOF 


STL 


ENF1LF 






FT017450 




HIT 


GETR4 






FT017460 




ERROR 


37, FINISH 


NO END CARD FOUND. ERROR 




FT017470 




REM 
LXA 


CARD 1,4 


CODE TO BURST STATEMENT 


- — - 


FT017480 


u^rs 


SCAN OFF TRAILING BLANKS 


FT017490 




TIX 


»+l,4,CARD 






FT017500 




PXA 


,4 






FT017510 




PAC 
CAL 


,4 

= H 






FT017520 








FT017530 


G.T3A 


LAS 


CARD-1,4 






FT017540 




TRA 


*+2 






FT017550 




TXI 
f XL 


*-2,4»l 
GETCH,4,0 






FT017560 




BLANK CARD. GO GET ANOTHER CARD 




FT017570 




TXH 
LDQ 


GET5,4,-2 
=07676767676 


LABEL ONLU. IS AN ERROR 




FT017580 




76 




FT017590 




STQ 


CARD, 4 






FT017600 
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PXA 
PAC 



,4 

,4 



TXI 
ACL 




AXT 

Gcl3B3 CRQ 

TXH 

ALS 



bf 


1384 


ORA 






TXI 
TIX 


GlT3B2 


AXT 
TIX 






TRA 
REM 



i3Bu 



U-f3B5 
SET3B6 

"SCANff 



TNO 
LDI 
STI 
TRA 
REM 
TRA 
SLH 
REM 
DUP 

.„____ 

***** « r* 

uvr 

REM 
>ZE~ 



*+l,4,l 
,4 



FT017610 
FTQ1762C 
FTO 17630 
FT017640 
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= 1 

CARD2 



GET3B 

0,2 

*+l 

GET3B5 

GE T3B4 

GET3B2»4 

*», 4 

6,4 

SCANTT,1,1 

GET3B2-1,1,62 

6 



SCAMTC1 

*» 9 t #* 



*+l,2,-l 
GET3B3,4 f 1 
»* f 4 

GET3B-1,4,J 
GETCHX 



RESERVED WORD TEST 



GET3B4+2 
GET3B6 
GET3B4 
GE13B4 

GET3B0 
COLUMN, 2 

T,48 "-•—" 
♦-SCANTT 
63 

» ■* cr 
LfXZf 



♦-SCANTT 

63" 
63 
62 

* 





DUP 


1,62 




EQU 


SCANTC- 


SCANTC 


»-l 




REM 




bET5 


ERROR 


83,GETR 


CARD2 


PZE 


CARD 


TITLE 


BCI 


1,1 




BSS 


12 


BLANK 


BCI 


1, 


BLANKS 


EQU 


BLANK 




BSS 


3 




BCI 


1, PAGE 




BSS 


1 




REM 




SuBTTL 


BCI 


3, 




BSS 


12 




REM 




GtTCHX 


EQU 


* 



FT017650 
FT017660 
FT017670 
FT017680 
FT017690 
FT017700 
FT017710 
FTG17720 
FT017730 
FJ017740 
FTO 17 750 
FT017760 
FT017770 
FT017780 
FT0i7790 
FTO 17 800 
FT017810 
FT017820 
FT017830 
FT017840 
FT017850 
_FT017860 
FTO 17870 
FT017880 
FT017890 
FT017900 
FT017910 
FT017920 
FT017930 
FT017940 



FT017950 
FT0179 60 
FT01797G 



FT017990 
FT018000 
FT018010 
FT018020 
FTO 18030 
FTO 18040 
FTO 18050 
FTO 18060 
FT018Q70 
FT018080 
FTO 18090 
FT018100 
FTO 181 10 
FI018120 
FT018130 
FT018140 
FT018150 
FT018160 
FTO 18 170 
FT018180 
FT018190 
FT018200 



TTL PASS 1 - 
GETLBL ROUTINE.., 



S T A T E~M E N T LABEL AMD NODE 



REM 

ROUTINE TO SCAN OFF THE LABEL IN COLUMNS 1-5. 



ROUTINE ALSO 



LOOKS AT COLUMN 1 FOR MODE DESIGNATIONS F» B» D, I. 
ROUTINE SETS CELL MOD FLG TO I t 2, 3, 4 ACC ORDING AS COLUMN 1_ 
Ts~~Bf D, I* FT RESPECTIVELY. IF COLUMN 1 IS NOT ANY OF THE 
ABOVE, MO DFLG IS Z EROED O UT. 

REM 

THE PROCESSED LABEL WILL APPEAR IN THE CELL 'CARD' AT TH E END 



SCAN. BLANKS^TnD LEADING ZEROES WILL 8E DROPPED. 
THE LABEL IS NOT PUT I NTO SYMTAB YET. 



SPACE 
.fcTLBL CAL 



3 

CARD 



ARS 
AXT 



30 
0,1 



LAS 
TRA 



=060 
*+2 



TRA 
LAS 



LABL1 
=012 



TRA 

2M 
TRA 

LAS 

TRA 

TXI 



»+3 
»+2 



LABL1 
=H00Q00F 

LABL4,1»4 



LAS 
TRA 

Txi" 

LAS 
TRA 
TXI 



LAS 
ERROR 



LABL4 



•LA&L1 



LABL8 



TXI 

ERROR 

CAL 

ANA 
"ORA 

SLW 
"REM 

CAt 

STZ 

ARS 

REM 

LAS 

TRA 

TRA 

REM 

LGR 

AXC 

AXT 

"REM 

ZAC 

LGL 

LAS 

TRA 

TRA 

REM 

LAS 



=H00000B 

*+2 

LABL47l,l 

=H0Q000D 

*+2 "" 

LABL4, 1,2 

=H00660I 

80,SKEND 

*+2,T,3 

80,SKEND 



=07777777777 
CARD 



=H 00000 
CARD 

CiARO 
CARD 
6 

_=HOL 

* + 2 
GETLBX-1 

30 

36,4 

5,2 



6 

«+4 
LABL2 

=012 



BLANK IN COL 1 



COL 1 IS NUMERIC 



COL 1 IS F 



COL 1 IS B 



COL 1 IS D 



invalidjcharaoneror^ letter jn col 1 
~""colT iTT 



GET LA&EL IMAGE 



ZERO OUT LABEL CELL 
KILL COLUMN 6 

IS LABEL BLANK. 

"NO. 
YES. 



NO. PUT IN MQ 

SET TERMINAL SHIFT 

NUMBER OF POSITIONS TO TEST 



SH I Ft I N CH AR AC T ER 
IS IT BLANK. 
NO. BAD CHARACTER 
YES. SKIP. 

IS IT NIN-NUMERIC. 



FT018210 
FT018220 
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FT01823G 
FT01 8240 
FT018250 
FT018260 
FTO 18270 
FTO 18280 
FT018296 
FJ018300 
FTG18310 
FT018320 



FT018330 
FT01834G 
FTO 18350 
FT018360 
FT018370 
FT018380 
FT018390 
_FJ018400 
FT018410 
FTgi8420 
FT018430 
FT018440 
FT018450 
FT018460 
FT018470 
FT018480 
TT018490 
FT018500 
FT018510 
FT018520 
FTO 18530 
FT018540 



FT018550 
FT018560 
FT018570 



FT018590 
FT018600 
FT018610 
FT01862P 
FT018630 
FTO 18640 
FT018650 
FT018660 
FTO 18670 
FJ018680 
FT018690 
FT018700 
FT018710 
FT018720 
FTO 18 7 30 
FT018740 
FTO 18750 
JFT018760 
FT018770 
FT018780 
FT018790 
FT018800 



TRA 

jLABL_3 ERROR, 

REM 

__J4ZT 

TIE 

REM 

ORA 

_ ALS 

SLW 

REM 

L4BUL TIX 
REM 
CAL 



TZE 
ARS 

LDQ 
LGL 



REM 
JiLW 

SXA 
GtfLBX EQU 



ltSKEND 

CARD 
LABL2~ 



CARD 

6 

CARD 

LA8L8 f 2,l 
CARD 



LABL3 
6 

=H 
0,4 



CARD 



M0DFLG,1 



YES. 
YES 



NO. NUMERIC. IS LABEL CELL STILL ZERO. 



YES. SKIP IF LEADING ZERO. 



MERGE OLD LABEL WITH NEW DIGIT 

ADJUST FOR NEXT DIGIT _ 

RESET LABEL CELL 

REDUCE TERMINAL SHIFT COUNT 



.REDUCE DIG LT QOUNT . 
GET LABEL 



ZERO LABEL NOT ALLOWED 

JUSTIFY 

TERMINAL BLANKS 

LEFT JUSTIFIED LABEL IN ACCUM. 



RESTORE LABEL 



SAVE MODE INDICATION 



FT018810 
FT018820 
FT01883G 
FT018840 
FT018850 
FT01886G 
Ff018370 
FT018880 
FT018890 
FT018900 
FTO 18910 
FT018920 
FT01893G 
FTO 18940 
FT018950 
FT018960 
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FT018970 
FJO 18980 
FTO 18990 
FT019Q00 
FTO 19010 
FT019020 



TERM i N E S 
DETERMINATION OF 



TATEMENT 
STATEMENT TYPE. 



TTLPASS 1 - DE 

RESERVED WORD TEST AND _._ __ _ 

REM 

CONT& OL PASSES TO T HIS ROUTINE AFTER ANY LABEL AND/OR COLUMN 

1 ""MQbE~~HAS~ BEEN SCANNED. 

REM 



TYPE 



"IF" THERE IS AN F IN COLUMN 1, AN IMMEDIATE EXIT IS TAKEN TO THE 
F-CARD PROCESSOR . IF NOT, THE FIRST CHARACTER IN THE FIRST 
WORD OF" ■COLUMN""' IS USED TO BRANCH ON A TABLE OF TRANSFERS. 
EACH INITIAL LETTER WHICH MAY BEGIN A RESERVED WORD HAS ITS 
OWN SUBSEQUENmST SECTION. THERE, IT IS DETERMINED IF 
THIS STATEMENT BEGINS WITH A RESERVED WO RD. IF IT DOES NOT, 



THEN 
REM 



THE STATEMENT IS AN ARITHMETIC SUBSTITUTION STATEMENT 



IN ANY EVENT, THE CELL PROCSW IS FORMED, TELLING THE 
ENTRY POINT TO THE CORRECT STATEMENT PROCESSOR, AND TELLIN G 
IF THIS IS AN EXECUTABLE, TRANSFER, DO, CALL, AND/OR END-TYPE 
STATEMENT. CONTROL THEN PASSES TO THE PA SS 1 DRIVER, WHERE 



PROCXX 



SOME INITIAL 
STATEMENT. 
SPACE 3 
LXA 



BUSINESS IS HANDLED PRIOR TO PROCESSING THE 



TXH 
REM 



AXT 
CAL 
ARS 
PAC 
"TRA" 
REM 
DUP 
STR 



M0DFLG,4_ __ 
P"R0CX2t"4 t 3 

0,2 

COLUMN 

30 

»4 

* + l,4 

1,17 
F0RM11,,SKEND 



G|L Tl tL MODE FL AG FOR THIS STATEMENT 
IS IT AN F-CARD, 



KEY WORD TEST 



KEY WORD FIRST LETTER TABLE 



TRA 
TRA 
TRA 
TRA 



TA1.Q 
TB2.Q 
TC3.0 
TD4.0 



21 
22 
23 
24 



TRA 
TRA 



TE5.0 
TF6.0 



25 
26 



TRA 

JM. 

TRA 

DUP 
STR 
TRA 
TRA 
TRA 



TG7.0 
PARITH 



TI8.0 

It 7 

F0RM11,,SKEND 

PARUH 
PARITH 
TL13.0 



TRA 
TRA 
TRA 
TRA 

TRA 
TRA 

bup 

STR 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 



PARITH 

PARITH 

TO 15.0 

TP9.0 

PARITH 

TR10.0 

178" " " 

F0RM11,,SK£ND 

T SI 1.0 

PARITH 

PARITH 

PARITH 

TW12.0 

PARITH 



k 

Jl 

M 
N 

U 
P 

Q 
R 



27 

30 
31 



41 
"42 

43 



44 
45 
46 
47 
50 
51 



62 
63 
64 
65 
66 
67 



FT019030 
FT019040 
FT019050 
FTO 19060 
F TO 19070 
FT019080 
FT019090 
FTO 19100 
FT0i9110 
FT019120 
FT019130 
FT019140 
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FT019150 
FT0 1916 
FT019170 
FT019180 
FT019190 
FT019200 



FT019210 
FT019220 
FT019230 
FT019240 
FT019250 
FT019260 
FTO 19270 
FTO 19280 
FT019290 
FT019300 
FT019310 
FT019320 
FTO 193 30 
FT019340 
FT 01 93 50 
FT019360 
FTO 19370 
FT019380 



FT019390 
_FJ019400 
FTO 194 10 
FT019420 
FTO 194 30 
FT0X944O 
FT019450 
FT019460 
FT019470 
FT019480 
FT019490 
FT019500 
FT019510 
FT019520 
FT019530 
FT019540 
Ff0i9550 
FT019560 
FTO 19570 
FT019580 
FT019590 
FT019600 
FT019610 
FT019620 



TRA PARITH Y 70 FT019630 PAG£ 62 

TRA PARITH __ J. 71 FJO 19640 

DUP T76 FT019650 

STR FORMlli t.SKE_NO_ . „ _. FTO 19660. ._ 



* 


EJECT 

ROUTINE TO CHECK 


IF A POSSIBLE IF, FORMAT, END, OR CALL 


FT019670 
FT019680 


* 


STATE^ 
VALID 
REM 
SXA 


IENT IS REALLY AN ARITHMETIC STATEMENT {I.E. HAS A 
EQUAL SIGN FOLLOWING A POSSIBLE SUBSCRIPT EXPRESSION). 


FTO 19690 
FT019700 


CHKSUB 


EXCKSB,4 

2 

CHKERR,4 

2,4 

SCNB5,4 




FT019710 
FT019720 




LDI 
AXT 
SXA 
SXA 


PREPARE TO LATER RESTORE THE ERROR TRAP 
ALTER THE ERROR TRAP CELL TO RETURN TO 


FT019730 
FT019740 




THIS ROUTINE INSTEAD OF THE ERROR ROUTINE. FT019750 
ALTER A CELL IN SCNBCD TO GIVE ERROR RETURNFT019760 




TSX 

REH 


SCNBCD, 4 


NOW SCAN OFF ANY VALID CONSTANT OR 
SYMBOL, TO AVOIDA POSSIBLE HOLLERITH 


FT019770 
FT019780 




REM 
SKIP 


RPCHAR 
*-2,2,-l 


LITERAL, WHICH WILL BE CAUGHT AS AN ERROR. 
IS THE BREAK CHARACTER A RIGHT PAREN. 


FT019790 
FT019800 




TXI 

REM 


NO. RETURN FOR ANOTHER SCAN 


FT019810 
FT019820 




AXC 
SKIP1 


PARITH-1, 
EQCHAR 


,1 GET A POSSIBLE TRANSFER POINT 

IS THE NEXT CHARACTER AN EQUAL SIGN. 


FT019830 
FT019S40 




SXA 

REM 


EXCKSB,! 


SET THE PROPER TRANSFER POINT 


FT019850 
FT019860 


CHKERR 


STI 
AXT 


2 

SCNB6,4 


RESTORE THE ERROR TRAP CELL FT019870 
RESTORE THE ORIGINAL ADDRESS IN SCNBCD CELLFT01988Q 




■aaM ^^ r% 

REM 
AXT 
TRA 


SCNB5»4 




FT019890 
FT019900 


hACKS8 


*«,4 
1,4 


NO. RESTORE XR4 AND RETURN 
PROCESSOR HAS BEEN FOUND 


FT01991C 
FT019920 
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PS0CX2 REMARK (F-CARP PROCESSOR) __ _._H_0_12|£Q 

SPRSW lFCARD,NOXEQ,NOTRA,NODO FIOIV^O 
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TA1.0 



EJECT 
CAL 
ERA 
JHL 
TSx" 
ERA 



TN2 
REMARK 



=HASSIGN 

C0LUMN,2 

PARITH 

BREAK ? 4 

=077 



IS NEXT BREAK END-OF-STATEMENT 



PARITH 
(ASSIGN 



NO 
STATEMENT 



PROCESSOR) 



SPRSW 1ASSNX,XEQ,N0TRA,N0D0 



FT01996C 
FT019970 
F TO 19980 
FT019990 
FT020000 
FT020010 
FTG2O02O 
FT020030 
FT02dd40 
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1 U jC * -J 


EJECT 
CAL 


^HBACKSP IS IT BACKSPACE 


FT02005G 
FT020060 


PAGE 


66 




ERA 
TNZ 


COLUMN, 2 

PARITH NO 


FT020070 
FT020080 






CAL 
ERA 
ANA 
TNZ 


=HAC£ 
COLUMN+6,2 


FT020090 
FT020100 






=0777777000000 

PARITH NO AGAIN _ _ _ ___ 


FT020110 
FT020120 






REMARK 
SPRSW 


(BACKSPACE STATEMENT PROCESSOR) 
18SRXX,XEQ»N0TRA,N0D0 _ _ _ __. 


FT020130 
FT020140 





1C3.Q 



EJECT 
CAL 



=HCALL 



13- 1 



13.2 



ERA 
ANA 



COLUMN* 2 
=0777777770000 



FT020150 
FT020160 
FT020170 
FT020180 
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TNZ 
TXI 


T3.1 
*+i,2,-4 




FT020190 
FT020200 




TSX 
LAS 


BREAK, 4 
=077 


IS THIS END OF STATEMENT. 


FT020210 
FT020220 




TRA 
TRA 


#+2 
T3.3 


NO 
YES 


FT020230 
FT020240 



ERA 
TNZ 



=H00000( 
PARITH 



IS IT LEFT PAREN. 

NO. ARITHMETIC STATEMENT 



REM 
TXL 



T3.3,2,-9 



IF NAME BIGGER THAN 7 CHAR, THIS IS CALL 



LXD 
TXL 



FIRSTF,4 
*+2,4,0 



TXL 
TSX 



T3.3,2,-8 
CHKSUB,4 



GET NUMBER OF EXECUTABLE 
SKIP IF NONE SO FAR 
IT 



STATEMENTS SO FAR 



NOW 
OH, 



IS 
DEAR. 



CALL IF NAME IS BIGGER THAN 6 CH 
CHECK IF THIS IS ARITHMETIC 



FT020250 
FT 020260 
FT020270 
FT020280 
FT020290 
FT020300 
, Ft 0203 10" 
FT020320 



T3,3 REMARK 
SPRSW 



(CALL STATEMENT PROCESSOR) 
1CALLX,XEQ,N0TRA,N0D0,8CALL 



CAL 
ERA 
TNZ 
TXI 
TSX 
LAS 



=HCOMMON 

COLUMN ,2 

T3.2 

*+l,2,-6 

BREAK,4 

=077 



MACER 

TRA 

ERA 

TNZ 

REMARK 

SPRSW 

CAL 

ERA 

CAL 



*+3 

=H6dooo, 

PARITH 



IS IT COMMON 



NO 



T EST FOR EOS 

MACHINE ERROR 



NO 



(COMMON STATEMENT PROCESSOR) 
1COMNX,NOXEQ,NOTRA,NODO 
=HCONTIN IS IT CONTINUE 
COLUMN, 2 

PARlTH'"" " "NO 

=HUE 



FT020330 
FT020340 
Ff62035d 

_FJ020360 
F TO 20 3 70 
FT020380 
FT020390 
FT020400 
FT02G410 
FT020420 
FT020430 
FT020440 
FT020450 
FT020460 
FT020470 
FJ020480 

"FT02049d" 
FT020500 



ERA CGLUMN+6,2 

ANA =0777700000000 

TNZ PARITH 

REMARK (CONTINUE STATEMENT PROCESSOR) 

"SPRSW rCONTX,TEQ,NOfRA,NObd 



FT020510 
FT020520 
FT Q2Q530 
FT020540 
"FT 0205 50 



TD4.Q 



EJECT 

CAL 



=HDIMENS 



IS IT DIMENSION 



T4. 1 



ERA 

CAL 

ERA 



COLUMN, 2 
T4» l 
=HION 
COLUMNS ,2 



ANA 
TNZ 

REMARK 
SPRSW 



CAL 
ERA 



=0777777000000 

PARITH 

{DIMENSION STATEMENT PROCESSOR 

IJPLMNX.tNOJ(jEQtNOJRA,NOOO__ 

=HDCT 

COLUMN, 2 



ANA 
TNZ 



=0777700000000 
PARITH 



TXI 
TSX 
ERA 
TNZ 



*+l,2,-2 
BREAK, 4 
=H0000Q= 
P ARITH 



TSX 

ERA 



BREAK, 4 
= H0Q0 00, 



TNZ 

REMARK 

SPRSW 



parith not a do 

jdo statement processing) 
pd6,x¥q,nctra,66 



FT020560 

FTQ20570 

FT 02 05 80 

FJ020590 

FT020600 

FT020610 

FT620620 

FT020630 

FT020640 

FT 020 650 

FT 02 0660 

FT020670 

FT020680 

FT020690 

FTG20700 

FT020710 

FT020720 

FT020730_ 

FT020740 

FT020750 

FT020760 

FT020770 

FT020780 
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Tii.l 


EJECT 
CAL 


=HEND 


IS IT END 


FT02079Q 
FT020300 




ERA 
ANA 


C0LUMN»2 
=0777777000000 


FT020810 
FT020820 




TM2 
AXC 


T5.2 
3,2 




FT020830 
FT020340 




SKIP 
TRA 


63 
T5.4 


USUALLY THIS IS END OF STATEMENT 
AHA. NOT SO THIS TIME... 


FT020850 
FT020860 


T£5.3 


REMARK 
SPRSW 


(END STATEMENT PROCESSOR) 
PEN0,N0X£Q,N0TRA,N0D0,8END 


FT020870 
FT020880 


15.4 


SKIP 
TRA 


LPCHAR 
PARITH 


IS THERE A LEFT PAREN. 
NO. ARITHMETIC STATEMENT 


FT020890 
FT020900 




TSX 

TRA 


CHKSUB,4 
TE5.3 


YES. GO CHECK IF THIS IS ARITHMETIC 

OH, HO... THIS IS ONE OF THOSE RIDICULOUS 


FT020910 
FT020920 




REM 
REM 




END STATEMENTS WITH THE MONITOR OPTIONS. 
THE OPTIONS ARE, OF COURSE, IGNORED. 


FT020930 
FT020940 


"IE5.0 


CAL 
ERA 
TNZ 
CAL 


=HENDFIL 
COLUMN, 2 


IS IT ENDFILE 


FT020950 
FT020960 




T5.1 
=HE 




FT020970 
FT020980 




ERA 

ANA 


COLUMN+6,2 
=0770000000000 


FT020990 
FT021000 




TNZ 
REMARK 


PARITH NO 

(END FILE STATEMENT PROCESSOR) 


FT021010 
FT021020 


li».2 


SPRSW 
CAL 


1EOFXX,XEQ,NOTRA,NOOO 

=HEQUIVA IS IT EQUIVALENCE 


FT021030 
FT021040 




ERA 
TNZ 


COLUMN, 2 
PARITH 


— - — ■ - * • - ■ '-■' ■" 


FT021050 
FT021060 




CAL 
ERA 


=HLENCE 
COLUMN+6 , 2 


FT021070 
FT021080 




ANA 

TNZ 


=0777777777700 
PARITH 


FT021090 
FT021100 




REMARK 
SPRSW 


(EQUIVALENCE 
lEQUVX.NOXEQ, 


STATEMENT PROCESSOR) 
r NOTRA,NODO 


FT021I10 
FT021120 
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EJECT 
TF6.0 CAL 


=HF0RMAT 


FT021130 
FT021140 


ERA 
TNZ 


COLUMN, 2 
T6.1 


FT021150 
FT021160 


AXC 
SKIP 


6*2 

LPCHAR IS NEXT CHARACTER A LEFT PAREN. 


FT021170 
FT021180 


TRA 
ZET 
TSX 
REMARK 


PARITH NO 

FORFLG HAS ARRAY NAMED •FORMAT* BEEN ENCOUNTERED. 
CHKSUB,4 YES. GO CHECK IF THIS IS ARITHMETIC STATE 
(FORMAT STATEMENT PROCESSING) 


FT021I90 

FT021200 

.FT021210 

FT021220 


SPRSW 
T6.1 CAL 


PFMT,NOXEQ,NOTRA,NODO 
=HFREQUE 


FT021230 
FT021240 


ERA 
TNZ 


COLUMN, 2 
T6.2 


FT021250 
FT021260 


CAL 

ERA 


=HNCY 
COLUMN+6,2 


FT021270 
FT021280 


ANA 
TNZ 


=0777777000000 
PARITH 


FTQ21290 
FT021300 


REMARK 
SPRSW 


(FREQUENCY STATEMENT PROCESSING) 
1FREQX,N0X£Q,NGTRA,N0D0 


FT021310 
FT021320 


i'6.2 CAL 
ERA 


=HFUNCTI IS IT FUNCTION 
COLUMN, 2 


FT021330 
FT021340 


TNZ 
CAL 


TF16*0 

=HON __. __ 


FT021350 
FT021360 


ERA 
ANA 


COLUMN+6,2 
=0777700000000 


FT021370 
FT021380 


TNZ 
REMARK 


PARITH 

(FUNCTION STATEMENT PROCESSING) 


FT021390 
FT021400 


SPRSW 


PFUNCT f NOXEQ,NOTRA,NODO 


FT021410 
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1137.0 



EJECT 
CAL 



ERA 

TNZ 
TXI 



TSX 
LAS 



TRA 
TRA 
LAS 
TRA 



TRA 



TNZ 
TSX 
LAS 
TRA 



=HG0T0_ 

COLUMN, 2 
=0777777770000 
PARITH 
«+l,2,~4 



FT02142U 
FT021430 
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IS IT GOTO 



NO 



BREAK, 4 

=077 

*+2 

PGQTO 

=H00000, 

•4-2 



TO GOTO N PROCESSOR 



PGOTOC 



TO ASSIGNED GO TO 



PARITH 
BREAK, 4 



=H00000, 
*+2 



TRA 

ERA 
TIE 
ERROR 
TSX 

ERA__ 

TNZ 

REMARK 



*-3 

=H00000) 



PbOTO 



SPRSW 
REMARK 



»+2 

SOtSKEND __ 

BREAK, 4 

=H00000, _ _ 

"PARITH 

(GtLIP (...), N STATEMENT PROCESSOR) 
1C0MG0 » XEQ , TRANS , NODO 
(GO TO STATEMENT PROCESSOR) _ _____ 



PGOTOC REMARK 
SPRSW 



IGOfOXiXEQt TRANS, NODO 

(ASSIGNED GO TO STATEMENT PROCESSOR) 

1 AGOT , XEQ, TRANS , NODO 



FT021440 
FT021450 
F TO 2 146 6 
FT021470 
FT021480 

FJQ21490 

FT021500 

FT021510 

FT021520 

FT021530_ 

FT021540 

FT021550 



FT021560 
FT021570 
FT02158C 
FT021590 



FT021600 
FT021610 
FTO21620 
FJ021630 
FT02i640 

FT021650 
FT021660 
FT021670 
FT021680 
FT021690 
FT0217b0 
FT021710 
FT021720 



T13.0 



EJECT 

CAL 

ERA 

CAL 

ERA 



=HIF(SEN 



COLUMN, 2 
T8.2 _____ 
=HSELIGH 
COLUMN+6,2 



TNZ T8.1 

CAL =HT 

ERA COLUMN+12,2 

ANA =0770000000000 



T«_l 



TZE 

ERROR 

REM 

CAL 



PIFSL 
l_5.t_SKEN0 

=HSESWIT 



TO ISiSENSE LIGHT) PROCESSOR 
SYMBOL TOO LONG 



ERA 
TNZ 
CAL 

ERA 



COLUMN+6,2 
PARITH 
=HCH 
COLUMN+12,2 



ANA 
TZE 



ERROR 
REM 



=0777700000000 

PIFSW TO 

15.SKEND 



if ( sense switch) processor 
symbol"too long 



TB-2 



CAL 
ERA 
ANA 
TNZ 
AXC 
ZET 

"xsx 

REMARK 
SPRSW 

REM 



=HIFC 
COLUMN, 2 
=0777777000000 

T 8__3 

3,2 

IFFLAG 

CHKSU8,4 

(IF STATEMENT 



SET THE COLUMN POINTER 

HAS AN ARRAY NAMED 'IF* BEEN 

YES, GO rCHECK~IF THIS IS AN 

PROCESSOR) 



ENCOUJTERED. 
ARITH. STATE. 



1IFXXX,XEQ,TRANS,N0D0 



16.3 



CAL 
ERA 
TNZ 
CAL 
ERA 
TNZ 
CAL 
ERA 



=HIFACCU 
COLUMN, 2 



T8.4 
=HMULATO 



COLUMN+6,2 
PARITH 



FT021730 
FT021740 
FT021750 
FT021760 
"F f 02 1770 
FT021780 
F TO 2 1790 
I 1021800 
FTQ21810 
FJ021820 
FT021830 
FT02184G 
FT021850 
FT021860 
FT021870 
FT021880 
FT021890 
FT021900 
Ff62l'9i0 
FT021920 
FT021930 
FT021940 
FT021950 
FT021960 
FT021970 
FT021980 
FT021990 
F T 022000 
FT022010 
FT022020 
FT022030 
FTQ22040 
FT022050 
FJ022060 
FT022070 
FT022O80 
FT022090 
FT022I00 
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TNZ 
CA1 
ERA 
ANA 

TZE 
ERROR 



SYMBOL TOO "LONG 



=HROVERF 
COLUMN+1 2 , 2 
"ERROiS " 

•B_9# ___ __ __ 

COLUMN+18,2 

=0777777000000 _ _ _ 
PIFAC TO IF ACCUMULATOR OVERFLOW PROCESSOR 
15,SKEN0 SYMBOL TOO LONG 



T8.4 



CAL 


=HIFQUOT 


ERA 


COLUMN, 2 


TNZ 


T8.5 


CAL 


=HIENTOV 


ERA 


COLUMN+6,2 


TNZ 


PARITH 


CAL 


=HERFLOW 


ERA 


COLUMN+12,2 


TZE 


PIFMQ 


ERROR 


15,SKEND 


CAL 


=HIFDIVI 


ERA 


COLUMN, 2 


TNZ 


PARITH 


CAL 


=HDECHEC 



TO IF QUOTIENT OVERFLOW PROCESSOR 
SYMBOL TOO LONG 



FT022110 

FT022J20_ 

FT022130 

FT 022X40 

FT022150 

FT022160 

FT022170 

FT022180 

FT022190 

FT022200 

FT022210 

FT022220 

FT022230 

FT022240 

"FT 0222 50 

FT022260 

FT022270 

FT022280 

FT022290 

FT022300 

FT 022 310 

FT022320 



ERA 
1HI 
CAL 

ANA 
TIE 



COLUMN+6,2 

P ARITH 

=HK 
COLUMN+12,2 



=0770000000000 
*+2 



T8.5A 



ERROR 
REMARK 



TsTSKEND SYMBOL TOO LONG 
(IF DIVIDE CHECK STATEM ENT PROCESS OR! 



PIFSL 



P1FSW 



SPRSW 

REMARK 

SPR™SW 

REMARK 



SPRSW 

PIFAC REMARK 



llFDIVtXEQrTRANSVMODO 
<IF (SE NSE LIGHT) JSTATEMEN T PROCESSOR) 
TYFSLT v XEQ« TRANS, NODO ~ 
(IF( SENSE SW ITC H) STATEMEN T PROCESSOR,), 
1IFSWT,XEQ, TRANS, NODO 






OVERFLOW STATEMEN T PROCESSOR ) 



PIFMQ 



SPRSW 
REMARK 



IYFACCXEG, TRANS, NODO 
(IF QUOTIENT OVERFLOW 



STATEMENT PROCESSOR) 



SPRSW HFQUO,XEQ,TRANS,NODO 



FT022330 
FTG22340 
FT022350 
FT022360 
FT022370 
JFT022380 
FTQ2239G 
FT022400 
Ft 022410 
FT022420 
FT022430 
FT022440 
FT022450 
FT022460 



FT022470 
FT022480 
FT022490 
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TP9.0 



EJECT 
CAL 



=HPAUSE 



Ti.2 



ERA 
ANA 



TNZ 
TXI 



COLUMN, 2 

=07777.77777700 

T9.1 

♦+1,2,-5 



TSX BREAK, 4 

ERA_ =077 

TNZ PARITH 

REMARK (PAUSE STATEMENT PROCES SING) 



SPRSW 1PAUSE,XEG, NOTRA, NODO 

Xi^l CAJL_ =HPRINT 

ERA" COLUMN, 2 

ANA =0777777777700 _ 



TNZ 

TXI 

TSX 

LAS^ 

MACER 

TRA_ 

ERA 

TNZ 



T9.2 
*+l,2,-5 



8REAK,4 
=077 



MACHINE ERROR 



*+3 



=H00000, 
PARITH 



REMARK 

SPRSW 

CAL 

ERA 

ANA 

TNZ 

TXI 

TSX 

LAS 

MACER 

TRA 

ERA 

iHZ 

REMARK 



(PRINT STATEMENT PROCESSOR) 

1PRI NT , XEQ , NOTRA , NODO 

~-H PUNCH 

C0LUMN,_2__ _ — 

=0777777777700 

PARITH 
'"•+1,2,-5 
BREAK, 4 
=077 

MACHINE ERROR 



*+3 

=HO0O0O, _ __ __ 

PARITH 

(PUNCH STATENENT PROCESSOR) 



FT022500 
FT022510 
FT022520 
FT022530 
FTG22540 
FT022550 
FT022560 
FT02 2570 
FT022580 
FJ022590 
FT 0226 00 
FT022610 
FT022620 
FT022630 
F TO 2 2640 
FT022650 
FT022660 
FT022670 
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SPRSW 1 PUNCH f XEQ, NOTRA, NODO 



FT022680 
FT022690 
FT022700 
FJ022710 
FT022720 
FT02_2_730 
FT022740 
FT022750 
FT022760 
FT022770 
FT022780 
FT022790 
FT022800 
FT022810 
FT022820 
FT022830 
FT022840 
FTG22850 
FT022860 



EJECT 

nuu_.J CAL 

ERA 
ANA 

ERA 

_ __ JNi 
CAL 

ERA 

TNZ 

CAL 



THREAD 



FT02287G 
FT022880 
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COLUMN, 2 

=0777777770000 

T10-4~ 

=HR £ADIN 

COLUMN, 2 

TIG. 2 

=HPUTTAP 
COLUMN+6,2 __ 
PARITH 
=HE 



ERA 
ANA 



COLUMN+12,2 
^0770000000000 



TNZ 
REMARK 



T8.5A SYMBOL TOO LONG 

{READ INPUT TAPE STATEMENT PRO CESSOR) 



ri; 



SPRSW 
CAL 



1ritxx,xeq»notra»nodo 

=HREADTA 



ERA 
TNZ 



CAL 
ERA 



COLUMN, 2 

J10-3 _ 
=HPE 
COLUMN+6 



ANA 
TNZ 

REMARK 
SPRSW 



=0777700000000 

PARI TH _ 

(READ TAPE STATEMENT PROCESSOR) 
1RDTPX,XEQ, NOTRA, NODO __ 



CAL 
E RA 
TNZ 
CAL 
ERA 
ANA 



=HREADDR 
COLUMN, 2 

TioTf 

=HUM 

COLUMN+6,2 

=0777700000000 



&QDRM1 



TNZ PARITH 

REMARK (READ DRUM STATEMENT J^OCESSORJ _ „ _. 

___________ -py£ L "fHIS "CARD TO ACTIVATE DRUM STATEMENT 

SPRSW 1RDRMX , XEO , NOTRA , NODO 



Tlw.l 



TXI 
TSX 



♦+1,2,-4 
BREAK, 4 



T i U * 4 



LAS 

MACER 

TRA 

ERA 

TNZ 

REMARK 

SPRSW 

CAL 

ERA 

TNZ 

TXI 

TSX 

ERA 

TNZ 

REMARK 

SPRSW 

CAL 

ERA 

TNZ 

TXI 

TSX 

ERA 



=077 



MACHINE ERROR 



*+3 

=ttootxr9, 

PARITH 

(READ STATEMENT PROCESSOR) 

lREAOX , XEO, NOTRA, NODO 

j=HRETURN_ _ _„_ __ 

COLUMN f T 

no. 5 

*+l»2,-6 

BREAK, 4 

=077 

PARITH 

(RETURN STATEMENT PROCESSOR) 

PRTRN, XEO, TRANS, NODO 

=hrewTnd 

COLUMN, 2 

PARITH 

•+1^2,-6 

BREAK,4~ 

=077 



FT022890 
FT022900 
FT022910 
FT022920 
FT022930 
J^T022_940 
FT022950 
FT022960 
JFfd22970 
FT022980 



FT022990 

FT02300G 

FT023010 

FT023020 

FT023030 

FT023040_ 

Ff023050 

FT023060 



FT023070 
FJ023080 
FT023090 
FT023100 
FT023110 
FT023120 
~1F TO 23 1 30 
FT023140 
FT023150 
FT023160 
FT023170 
FT023180 
FT023190 
FT023200 
FT023_l6 
FT0232 20 
FT02323G 
FT023240 
FT023250 
FT023260 
FT023270 

f^-#~V__— r'Q-w'- 

FT023290 
FT023300 
FT023310 
FT023320 
FT023336 
FT023340 
FT 023350 
FT023360 
FT023370 
FT023380 
FT023390 
FT023400 
FT023410 
FT023420 
FT023430 
FT023440 
FT023450 
FT023460 



JHl PARiTh " " ~~ FT023470 PAGE 76 

REMARK (REWIND STATEMENT P ROCES SOR) FT02348G 



SPRSW IRE WXX , XEQ , NOTRA , HOOO FT02349G 



EJECT 

X s ! %_• ^CAL 
--- ER - A 

__ TNZ _ 
CAL 
ERA 



=HS£NSEL 



Til 



COLUMN, 2 

*HIGHT 
CGLUMN+6,2 



ANA 
TNZ 



REMARK 
SPRSH 
1 CAL 
ERA 



TNZ 
CAL 



=0777777770000 

P ARI TH 

(SENSE LIGHT STATEMENT PROCESSOR) 
X SENSE,XEQ > NOTRA > NOD0 
~=HSUBR0U 

COL UMN, 2 

T11.2 
=HTIN£ 



A N A. =0777777770000 

TNZ ™ PARITH 

REMARK (SUBROUTINE STATEMENT PROCESSOR) 



SPRSW 
I 11 *2 CAL 

ERA 

__ ANJL. 

TNZ " 
TXI 



PSUBR,NOXEQ,NOTRA,NOOO 

=H STQP 

COLUMN, 2 
=0777777 77000 
TSn.3'™ 
*+i,2,-4 



TSX 
ERA 



TNZ 

REMARK 



BREAK, 4 
=077 
PARI f H 



(STOP STATEMENT PROCESSOR) 



FT0235Q0 
FT023510 
FT023S2Q 
FT023530 
FT023540 
FT023550 
Ft 023 560' 
J=TG23570 
FT023580 
FT023590 
"FT023600 
FT023610 
FT023620 
FT023630 
FT023640 
FJ02365Q 
F TO 2 3660' 
FT023670 
FT023680 
FT023690 



PAGE 77 



SPRSW 1ST0PX,XEQ, TRANS, NODG 



FT023700 
FT023710 
FT023720" 
FJ023730 
FT023740 
FT023750 
FT023760 
FT023770 
FT023 780 



TW12.0 



EJECT 
CAL^ 
ERA 
TNZ 



TI2.1 



CAL 

ERA 

ANA 

REMARK 

SPRSW 

CAL 

ERA 

TNZ 



CAL 
ERA 
AHA 
TNZ 



NGDRM2 



REMARK 
TRA 



U2.2 



SPRSW 

CAL 

ERA 

TNZ 

CAL 

ERA 

TNZ 

CAL 



PARITH 



ERA 

ANA 

TNZ 

REMARK 

SPRSW 

REM 

REM 

REMARK 

SPRSW" 



=HWRITET^ _ _ 

COLUMN t 2 

T12.1 

=HAPE ~ ~ 

COLUMN+6,2 
=0777777000000 

(WRITE TAPE STATEMENT PROCESSOR) 
lWRfPX,XEQ,N0TRA,NOD0 
_^HWRITED 

C0LUMN,2 ~ "~~ 

T12.2_ 

=HRUM ~"~ 

COLUMN+6,2 



FT023790 
FT023800 
FTQ23S10 
FT023820 



*•■» » • • » t I vvwuwv 



PARITH 
(WRITE 
PARITH 



DRUM STATEMENT PROCESSOR) " 

PULL THIS CARD TO ACTI VATE DRUM STATEMENT 



lWORMX,XEQ,NOTRA f NQDO 
=HWRITEO 



COLUMN, 2 

PARITH 

=HUTPUTf 

CQLUMN_+6 t 2 

PARITH 

=HAPE _ 

COLUMNS 12", 2 

=07777 77000000 

fS, 5 A "~ 

(WRITE OUTPUT TAPE 



lWOTXX,XEQ,NOTRA f NODG 



STATEMENT PROCESSOR) 



(ARITHMETIC STATEMENT PROCESSOR) 
lARITH,XEQ f N0fRA7N0D0 



FT023830 
FT023840 
FT023850 
FT023860 
FT023870 
FT023880 
1=1023890 
FT023900 
FT02391Q 
FT023920 
FT023930 
FT023940 
FT023950 
FT023960 
FT023970 
_FT023980 
FT023990 
FT 024000 
FT024010 
FT024020 
FT024030 
FT024040 
FT024050 
FT024060 
FT024070 
FT024080 
FT024C90 
FT024100 
FT024110 
FT02412G 
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FT024130 



EJECT 
* PROCESSING FOR NON-FORTRAN STATEMENTS 


FT024140 
FT024150 


i 


SPACE 
I" LI 3.0 CAL 


2 

=HLISTPA IS IT PASS1 


FT024160 
FT024170 




_ era" 

TNZ 


COLUMN, 2 

T13.2 NO 


FT024180 
FT024190 




CAL 
ERA 


=HSS10FF 
COLUMN+6,2 


FT024200 
FT024210 




TNZ 
STZ 


T13.4 
LPASS1 


FT024220 
FT024230 




REMARK 
TRA 


(TURN OFF LISTING OF PASS 1) 
T16.2 


FT024240 
FT024250 




Ii3.4 ANA 

TNZ 


=0777777000000 

PARTTH 


FT024260 
FT024270 




STL 

REMARK 


LPASS1 TURN ON LISTING OF PASS 1 
(TURN ON LISTING OF PASS1) 


FT024280 
FT024290 
FT024300 
FT024310 




TRA 
TI3.2 CAL 


T16.2 

=HLISTSY IS IT LISTSYMBOLTABLE 




ERA 
TNZ 


C0LUMN»2 
PARITH 


FT024320 
FT024330 




CAL 

ERA 


=HMBOLTA 
COLUMN+6,2 


FT024340 
FT024350 




TNZ 
CAL 


PARITH 
=HBLE 


FT024360 
FT024370 
FT024380 
FT024390 




ERA 
ANA 


COLUMN+12,2 
=0777777000000 




TNZ 
REMARK 


T8.3A 

{TURN ON SYMBOL TABLE LIST FLAG) 


FT024400 
FT 0244 10 
FT024420 
FT024430 




STL'"" 
TRA 


LSTSYM 
T16.2 




r,..i5.c- cal 

ERA 


=HONLINE IS IT ONLINE 
COLUMN, 2 


F TO 2 4440 
FT024450 




f hi 
TXI 


T15.1 
*+l,2,-6 


FT024460 
FT024470 




SKIP 
TRA 


EOS 
PARITH 


FT024480 
FT024490 




REMARK 
STL 


{PRINT OUTPUT ON LINE ALSO) 
PRIQQ 


FT024500 
FT024510 




TRA 

115.1 CAL 

ERA 

TNZ 


T 16 2 

=HOFFLIN IS IT OFF LINE __ 

COLUMN ,2 
PARI TH 


FT024520 
FT024530 
FT024540 
FT024550 




CAL 
ERA 
ANA 
TNZ 


=HE 

COLUMN+6,2 

=0770006000060 

PARITH 


FT024560 
FT024570 
FT024580 
FT024590 




REMARK 
STZ 


(TURN OFF ON-LINE LISTING) 
PRIQQ 


FT024600 
FT024610 
FT024620 
FT024630 
FT024640 
FT024650 
FT024660 
FT024670 
FT024680 
FT024690 
FT024700 
FT024710 
FT024720 
FT024730 




TRA 

iT 16.0 CAL 
ERA 
TNZ 
CAL 
ERA 
TNZ 
CAL 
ERA 
ANA 
"""TNZ 
STZ 


T16.2 
=HFLOAII 
COLUMN, 2 
PARITH 

=HNGROUN 

COLUMN+6,2 

PARITH 

=HDOFF 

COLUMN+12,2 

=0777777770000 

T16.1 
ROUNDF 
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REMARK 
116.2 SPRSW 


(FLOATING ROUNDING OFF) 
SK£ND,NOXEQ,NOTRA,NODO 


FT024740 
FT024750 


Tib. 1 ANA 
TNZ 


=0 770000000000 
PARITH 


FT024760 
FT024770 


STL 
REMARK 


ROUNDF 

(FLOATING ROUNDING ON) 


FT024780 
FT024790 


TRA 

fSli.3 CAL 


T16.2 
=HSYMBOL 


FT024800 
FT024810 


ERA 
TNZ 


COLUMN, 2 
PARITH 
=HTABL£ 
COLUMN+6,2 


FT024820 
FT024830 


CAL 
ERA 


FT024840 
FT024850 


ARS 
TNZ 


6 
PARITH 


FT024860 
FT024870 


REMARK 
CAL 


(SYMBOL TABLE REQUESTED) 

=020 

13 SET MONITOR BIT ON 

SKEND , NOXEQ , NOTRA , NODO 


FT024880 
FT024890 


ORS 
SPRSW 


FT024900 
FT024910 
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TTL P A 


S S 1 - P 


RE-PROCESSOR BUSINESS 


FT024920 
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PRfiCXl SLW 


PROCSW 


ENTER HERE VIA SPRSW MACRO 


FT024930 




PAI 






FT024940 




LFT 


BEND _ 

PENO 


IS IT THE END STATEMENT. 


FT024950 
FT024960 




~"~- jra 


YES 




STA 


L8L5 


SET EXIT TO APPROPRIATE PROCESSOR 


FT024970 
FT024980 


.. 


N2T 


DOFLAG 


WAS PREVIOUS STATEMENT A DO. 




TRA 


*+4 


NO 


FT024990 
FT025000 




LNT 


BXEQ 


YES IT WAS. IS THIS STATEMENT EXECUTABLE 




REM 




(XEQ BIT SHOULD BE ON). 
NON-EXECUTABLE STATEMENT NOT ALLOWED AS 


FT02501G 
FT025020 




ERROR 


65,L8L3 




REM 


DOFLAG 


FIRST STATEMENT FOLLOWING A DO. 
TURN OFF DO INDICATION 


FT025Q30 
FT025040 


- -- 


STZ 




LNT 


BXEQ 


IS THIS STATEMENT XECUTA8LE. 


FT025050 





TRA 


LBL3 


NO. SKIP OVER ANY WAITING TRANSFER CODING 


FT025060 




REM 




UNTIL NEXT EXECUTABLE STATEMENT IS 


FT025070 
FT025080 




REM 




ENCOUNTERED. 




REM 




THIS IS AN EXECUTABLE STATEMENT 


FT025090 
FT025100 




NZT 


CARD 


IS THERE A LABEL 




TRA 


LBL4 


NO 


FT025110 


_ _ _.. 


REM 




PROCESS THE LABEL. 


FT025120 




LBLIO LDQ 


CARD 


YES. DEFINE LABEL (CHECK FOR 


FTO25130 


_.... . . .,,,„., _. ._.. 


PPM 




MULTIPLE DEFINITION). 


FT025140 




TSX 


LOCATE, 4 
• 4 


LOOK IT UP 


FT025150 
FT025160 




PAX 






LFT 


BLHSX+MSTRG 


HAS LABEL PREVIOUSLY BEEN DEFINED EITHER 


FT025170 
FT025180 




REM 




AS A LABEL OR A FORMAT NAME. 




ERROR 


58,*+2 


MULTIPLE LABEL DEFINITION 


FT025190 




~TelX~'~'sTl~" 


BLHSX 


NOf A STRING NAME OR MuLflPLE DEFINED. 


FT025200 




REM 


TRA FLG 


FLAG AS DEFINED 


FT02521O 
FT025220 




NZT 


IS PRECEEDING STATEMENT A TRANSFER COMMAND 




SIL 


BPATH 


NO. THEREFORE PATH OF FLOW COMES IN FROM 


FT02523O 
FT02524G 


„ _ 


REM 




ABOVE. 




STI 


EQUIV»4 




FTG25250 


,.._..,„,„ ,,, ,.„,.:„_„ „ _ 


SLW 


CARD 


SAVE LABEL POINTER IN CARD 


FT025260 




REM 


TRAFLG 




FT025270 




ZET 


WAS PRECEDING STATEMENT A TRANSFER. 


FT025280 










r- ■»- a *» ie *\r\*\ 




TSX 


LBL11,4 


YES. GO IU PUbl-PKULt55UK KUUIlfliC 


FT0253CO 


-..- - - -.-- — 


REM 








NZT 


CARD 


IS THERE A LABEL. __. 


FT025310 




TRA 


♦+4 


NO 


FT025320 




LXA 


C*R0f 4 


YES. GET THE EOUIV POINTER 


FT02533G 




CAL 


PCOUNT 


DEFINE THE LABEL 


FT025340 




STA 


EQUIV,4 




FT025350 




LDI 


PROCSW 




FT025360 




REM 






FTG2537Q 
FT025380 




NZT 


DOPNTR 


ARE THERE ACTIVE DO'S 




TRA 


LBL4A 


NO 


FT025390 




REM 




IS THIS STATEMENT THE TERMINUS OF A DO 


FT025400 




REM 






FT025410 




* 






FT025420 




LXA 


D0PNTR.4 
CARD " 




FT025430 

FT025440 




"CAL 






ERA 


D0STAK,4 




FT025450 




TNZ 


LBL4A 


NO 


FT025460 




# 






FT025470 
F f 025480 




REM 


THIS IS TERMINAL STATEMENT OF A DO. 




REM 




CHECK THAT IT IS NOT A DO, TRANSFER, OR 


FT025490 




REM "' 




NON-EXECUTABLE COMMAND. 


FT025500 




LFT 


BXEQ 




FT025510 





LFT 

ERROR 

REM 

Ilk 

REM 



LBL4 



LbL4A 



2ET 
JERROR 
REM 
_____ STZ 
"LBL5 TRA 

REM 

LBL11 TRA* 



BDQ+BTRANS 
66tSKEND_ 

DOTRMF 
LBL4A 

TRAFLG 

TRAFL G 

#» 

TRAFLG 



TURN ON 00 TERMINATION IN SKEND 



IS PRECEDING STATEMENT A TRANSFER 



NO. GO TO PROCESSOR 



L6L3 



REM 
TXL 



PR0CSW,4 
A 



FORMAT 
*+2,4,PFMT 



STATEMENT 
STATEMENT '"'"" 
1 



IS NOT EXECUTABLE. 



IS IT 



TXL 
STZ 



LBL6,4,PFMT 
CARD 



YES, IT 
CLEAR OUT 



IS FORMAT 
ANY LABEL 



TRA* 
REM 



LBL5 



LbL6 



LBL7 



NZT 


CARD 


ERROR 


68, SKEND 


LDQ 


CARD 


TSX 


LOCATE, 4 


PAX 


,4 


TMI 


LBL7 


LFT 


BLHSX 


REM 




ERROR 


58, SKEND 


REM 




SIL BLHSX+MSTRG 


REM 




STI 


EQUIV,4 . 


TRA* 


LBL5 



NOW_VAL IDAT E_ FOR MAT LABEL 
IS THERE A LABEL 



LACATE LABEL IN S.T. 



FORMAT NAME IS NEW 

LABEL NOT NEW. CHECK HOW 

SYMBOL TABLE, 

LABEL ALREADY DEFINED EITHER AS A 
STRAIGHT LABEL OR AS A STRING .FORMAT) 

LABEL IS NEW. 
AND TURN ON 



IT GOT IN 



FLAG NAME AS STRING 
DEFINED INDICATION 



FT025520 
FT025530 
FT025540 
FJ025550 
FT025560 
FT025570 
FTG2558G 
FT025590 
FT025600 
FJ02J5610 
FT025620 
FT025630 
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FT025640 
FT025650 
FT02566G 
FT025670 
FT025680 
FTG25690 
FT025700 
FT025710 



FT025720 
FT 0257 30 
FT025740 
FT025750 
FT025760 
FT025770 
FT025780 
FT025790 



GO TO PROCESSOR 



FT025800 
FT025810 
FT025820 
FT025830 
FT02584G 
FT025850 
FT025860 
FT025870 



~ S" TATE ME NTT ERMINATION 



TTL PASS 1 

SKEN D RO UTINE. _ - — „ — 

REM 

SKEND_IS THE LERM I NATJQ^MU L^ 

PROCESSORS ""EXCEPT"" 1 END* . 

REM 



SKEND 



T TEST "IS MADE TcTdETERMINE IF THE POOL AREA HAS OVERFLOWED. 
THE CELL «FIRSTF' IS UPDATED. THE ADDRESS__HOL DS THE NUMB ER 



FTC25880 
FT025890 
FT0259G0 
FT 0259 10 
F TO 2 59 2 6 
FT025930 
FT 02 5 940 
FT025950 
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^"^JUEMENTTMiOCESSED," AND THE DECREMENT HILDS THE NUMBER 

OF E XECUTABLE ST ATEMENTS. .,,._ _ __ ___ . _ — - 

REM 

IF THIS STATFMENXJERMI NATES O^E R MOR£__DQJLQOPSt THEJTER^. 



MINAUON CODE IS PUT OUT. 

iF^ninyrrxcMX - !^^ 

ROUTINE IS ENTERED, WH ICH RELEASES AL L NON- DO- INDEX- 



FT025960 
FT 02 59 70 
FT025980 
FJ025990 
FT026Q00 
FT026010 



CONTAINING XRS. 

q $Zi&. — 

WfkTN^TLTs^RTn*^^ 

TO PROCESS, THE_NEXT__CAROi. 

3 

NXTL0C4 TEST FOR P OOL O VERFLOW 



SPACE 
LXA 

"txET'" 

STR 



*+2,4,Pd0L-C0LUMN=66? 

MSG100 , , FIN I SH •»• ** JEMPOR .*R Y_. RET*^__LOCAIION 



REM 
CAL 



ADD 
LDI 
LFT 
ADD 
STQ 
REM 



FIRSTF 
= 1 

PROCSW 
BXEQ 

=01000000 
FIRSTF 



GET STATEMENT COUNTER 
BUMP 



"COUNT EXECUT ABLEST ATEMENTS IN DECREMENT 



RESTORE STATEMENT COUNTER 



ZET 
TSX 



DOTRMF 
D0TERM,4 



7S~THIS"stAfEMENt THE TERMINATION OF A DO 
YES. CLOSE OUT ALL PO_L_p OPS TERMINATED BY 



REM 
STZ 



DOTRMF 



THIS STATEMENT 

RESET THE DO TERMINATION FLAG 



FT026020 
FT026030 
FTG26040 
FT026050 

"FT026060 
FT026070 

""FT 026080 
FT026090 
FT026i00 
FT026110 
FT026120 
FT026130 
FT026140 
FT026150 
FT026160 
FT026170 
FT026180 
FT026190 
FT026200 
FT026210 
FT026220 
FT026230 



REM 
LDI 
LFT 
TSX 



PROCSW 



REM 
LFT 
STZ 
LFT 
STL 
REM 

TRA 



BTRANS+BCALL 
INDR£G,4 

BXEQ 
RASCAL 
BCALL 
RASCAL 

wrkcel 

STARTT 



GET PROCESSOR SWITCH 

WAS THIS A TRANSFER OR A CALL STATEMENT. 
YES. CLEAR OUT T HE NON~DO INDEX RJGJSTERS 

AtTEK THE FLAG C€tL IF A" EX€CWA&L€ STA TE. 

NON-ZERO CELL IF A_CAy^_SIAJJM.NJ 
THIS FLAG USED BY END PROCESSOR ONLY 



RE SET WORKING STORAGE 
GO GET NEXT CARD 



FT026240 

r 1 \J£.0£.DV 

F TO 2 62 60 
FT026270 
FT026280 
FT 026290 
FT026300 
FT026310 
FT026320 
FT026330 
FT026340 
FT026350 



TTL PASS 1 PROCESSOR 
SUBROU TINE N AME ( A,_B_t_Ct » mi!' 

FLAG AS A SUBROUTINE 



- SUBROUTINE 



* 


REM 

ENTRY... PSUBR 


PSUBR 


SPACE 3 
STZ FNCTFL 
AXC 10,2 
TRA PFUNCT+2 



TO FUNCTION. PROCESSOR- 



FT026360 
FT026370 
FT026380 
±1026390 
FT 02 6400 
FTG26410 
FT02642G 
FT026430 
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* 


TTL PASS 1 PROCESSOR - FUNCTION 
FUNCTION NAM£tA,B,C,...»Z) 


FT026440 
FT026450 
FT026460 
FT026470 
F TO 2 6480 
FT026490 
FT 026 500 
FT026510 




* 


REM 

ENTRY... PFUNCT 




* 


"THE FUNCTION^ STATEMENT MUST BE THE FIRST STATEMENT OF THE 
PROGRAM. THAT IS, CELL FIRSTF MUST BE ZERO. THE NAME OF THE 




* 

* 


ROUTINE IS OBTAINED, CHECKED FOR VALIDITY, AND STORED IN CELL 
SBNAME. 




# 


REM 

ALL FUNCTIONS MUST HAVE AT LEAST ONE ARGUMENT. EACH ARGUMENT IS 


FT026520 
FT026530 
FT026540 
FT026550 
FT026560 
FT026570 




* 

* 
* 


ENTERED IN SYMTAB FLAGGED AS A PARAMETER WITH MODE DETERMINED 
BY THE FIRST LETTER. A COUNT OF THE NUMBER OF PARAMETERS IS 
KEPT IN CELL NOARGS. 
RFM 




* 
* 


TO DISTINGUISH WHETHER THIS IS FUNCTION OR SUBROUTINE CODING 
TEST CELL FNCTFL WHICH WILL BE NON-ZERO FOR FUNCTIONS. 
SPACE 3 
STL FNCTFL FLAG AS A FUNCTION 


FT026580 
FT026590 
FT026600 
FT026610 




PFUMCT 






FT026620 
FT026630 






AXC 8,2 GET FUNCTION NAME 

ZET FIRSTF IS THIS THE 1ST STATEMENT OF PROGRAM 






ERROR 52,SKEND NO. SUBPROGRAM DECLARATION COMES TOO LATE 
TSX SCNBCD,4 


FT026640 
FT026650 
FT 02 66 60 
FT026670 
FT026680 
FT026690 






SLW SBNAME SAVE THE NAME 

HIT LABEL HAS DECK LABEL ALREADY BEEN ASSIGNED. 






SLW LABEL NO 

REM 






NZT FNCTFL 

TRA PFUNC1 SUBROUTINE CODEING. OMIT NAME TEST 


FT026700 
FT026710 
FT026720 
FT026730 
FT026740 
FT026750 
FT026760 
FT026770 
Ff026780 
FT026790 






CAL SCNB1 VALIDATE THE FUNCTION NAME 
STD »+2 






LAC SCNBl-1,4 

TXI *+l,4,*« NO. CHARACTERS IN XR4 






TXL PFUNC1,4,3 NAME LESS THAN 4 LETTERS 
REM IS LAST LETTER F. 






TXI *+l,2,l 

SKIP FCHAR TEST FOR TERMINAL F 






TXI *+2,2,-l 

ERROR 51,SKEND LAST LETTER WAS F 


FT026800 
FT026810 
FT026820 
FT026830 




* 


REM 

NAME IS A VALID FUNCTION NAME. DO NOT ENTER NAME IN SYMTAB NOW, 




a- 

# 
* 
PHjNCl 


BUT WAIT FOR ITS APPEARANCE ON THE LEFT HAND SIDE OF A SUBSTITU- 
TION STATEMENT. THE* AS A PART OF THE END STATEMENT PROCESSING* 
TEST THAT FUNCTION NAME IS IN SYMTAB WITN BLHSX FLAG BIT ON. 
STZ NOARGS GET ARGUMENTS 


Ff026840 
FT026&50 
FT026860 
FT026870 
FT026880 
FT026890 
FT026900 
FT026910 
FT026920 
FT026930 
FT026940 
FT026950 
FT026960 
FT026970 
FT026980 
FT026990 
FT027000 
FT027010 
FT027020 
FT027030 






SKI PI LPCHAR 
TRA PFUNC4 






NZT FNCTFL 

rRA PFUNC2 SUBROUTINE CODING. MAY BE NO ARGUMENTS 




PFUNC3 

PFUNC4 


ERROR 7.SKEND FUNCTIGN MUST HAVE AT LEAST ONE ARGUMENT 
TSX SCNBCD,4 

' XCL 

TSX LOCATE, 4 






TPL PFUNC3 SYMBOL ALREADY IN SYMTAB. ERROR 
PAX ,4 






CAL SYMTAB, 4 DETERMINE MODE OD ARGUMENT 
LAS =0457777777777 






SIL MREAL 
TRA PFUNC5 






LAS =0307777777777 
SIL MINTG 
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TRA 
SIL 


PFUNC5 
MREAL 


APPEND PARAMETER FLAG AND DEFINITION FLAG 


FT027040 
FT027O50 
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FFUMC5 SIL 
ST I 


BARGT+8LHSX 
E0UIV.4 


FT027060 
fj 0270 70 
FT027G80 
FT027090 
FT027100 
FT027110 
FT027120 
FT027130 
FT627140 
FT027150 
FT027160 
FT027170 




CLA 
ADD 


NOARGS 
= 1 

NOARGS 
15 
EQUIV,4 

CMCHAR 
PFUNC4 
RPCHAR 
PFUNC3 






STO 
ALS 
ORS 

REM 


IS THIS THE LAST ARGUMENT 




SKIP1 
TRA 






SKIP 
TRA 






REH 
PFUNC2 SKIP 


63 

PFUNC3 

RTNFLG 


NO MORE ARGUMENTS 


FT0271S0 
FT027190 




TRA 

PFUNC6 STZ 


TURN RETURN STATEMENT INDICATION OFF 


FT027200 
FT027210 




TRA 


SKEND 




FT027220 





PRTRN 



TTL 

RETURN 
REM 
ENTRY.. 



PASS 1 PROCESSOR- RETURN 



PRTRN 



VALID ONLY IN SUBROUTINE OR FUNCTION CODING, 

RETURN STATEMENT MUST APPEAR AT LEAST ONCE IN A FUNCTION 



SUBPROGRAM. 
REM 



RTNFLG CONTAINS A COUNT OF RETURN STATEMENTS. 



FT02723G 
FT027240 
FT02725O 
FT027260 
FTG27270 
FT027280 
FT027290 
FT027300 



THIS STATEMENT CAUSES A TRANSFER TO THE END OF THE TEXT, 
WHERE THE ACCUMULATOR WILL BE LOADED {FOR FUNCTIONS). THEN 



FT027310 
FT027320 



A TRANSFER BACK UP TO THE PROLOGUE EXIT SEQUENCE IS GENERATED. Ff 027330 
SPACE 3 F T027340 



NZT 
ERROR 



SBNAME 
53,SKEND 



IS THIS SUBROUTINE 
MAIN PROGRAM 



FT027350 
FT027360 



CAL 


MODFLG 


NZT 


RTNFLG 


SLW 


RTNMOD 


LAS 


RTNMOD 



TRA 
TRA 



*+2 
♦+2 



FUNCTION. IS COL 1 OF THIS STATEMENT 

THE SAME AS ON ALL OTHER RETURN STATEMENTS 

ENCOUNtERED SO~FAR.~ ~ " 



NO 
YES 



FT027370 
FT027380 
FTG27390 
FT027400 
FT027410 
FT027420 



ERROR 
CLA 



54,*+l 
RTNFLG 



STEP RETURN STATEMENT COUNT BY 1 



ADD 

STO 



= 1 
RTNFLG 



PRTN3,4 
TRAFLG,4 

SKEND 



SET TRAFLG FOR POSSIBLE TRANSFER CODING 
TO JUMP TO END OF TEXT IN CASE NEXT CAR D 
IS NOT AN END CARD. 



AXT 
SXA 
REM 
TRA 
REM 

REM 

ENTER HERE IF TRAFLG IS ON. TEST IF THIS STATEMENT IS AN £ND~ 
STATEMENT. IF SO OMIT THE TRA INSTR. NORMALLY GENERATED BY 



FT027430 
FT027440 
FT027450 
FT027460 
FT027470 
FT027480 
Ffd27490 
FT027500 
FT027510 
FT027S20 



* THE RETURN STATEMENT. 

PRTN3 SXA PRTN3X,4 

LXA PR0CSW,4 '"""""" 
TXL PRTN4,4,PEND-1 



FT027530 
FT027540 
FT027550 
FT027560 
FT027570 
FT027580 



TXH 



TRA 
REM 



PRTN4,4,PEND 

**t4 STATEMENT IS E ND. 

1,4 

STATEMENT NOT END. 



PRTN4 CAL 

TRA 
REM 
fKAEW'TRA - 



TRAEND 

CITBLD,4,R 

PRTN3X 

EQUIV-LOCEN'D 



NOT END. 



FT027590 
FT027600 
FT027610 
F TO 2 76 20 
FT027630 
FTO27640 
FT027650 
FT027660 
FT027670 
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TTL PASS 1 PROCESSOR - CALL 


FT027680 PAGE 88 


# 




CALL STATEMENT PROCESSOR 


FT027690 
FT027700 




£■ 




ENTRY... 1CALLX 








REM 


FT027710 




* 




A SUBROUTINE MAY NOT CALL ITSELF. THE NAME IN THE CALL STATEMENTFTQ27720 




* 




MAY NOT BE USED AS A VARIABLE. IT IS LEGAL FOR THE NAME TO BE 


FT027730 




* 




USED ALSO AS A FUNCTIOsM NAME, EITHER FORTRAN OR LIBRARY. 


FT027740 








REM 


FT027750 
FT027760 




» 


THE ARGUMENT LIST IS PROCESSED BY THE COMPIL ROUTINE IN A MANNER 




* 




VERY SIMILAR TO PROCESSING A FORTRAN FUNCTION CALL. 


FT027770 








REM 


FT027780 




* 




IF THERE IS NO ARGUMENT LIST, THE CODE TSX NAME, 4 IS GENERATED 


FT027790 




* 




HERE AND NOW. 


FT027800 








SPACE 3 


FT027810 




lL 


ALLX 


AXC 4,2 

TSX SCNBCD,4 GET SUBROUTINE NAME 


FT027820 
FT027830 








TMI ERROR8 NOT SYMBOLIC 


FT027840 






— 


REM 


FT027850 
FT027860 






LAS SBNAME COMPARE WITH THIS PROGRAM'S NAME 








TRA *+2 


FT027870 
FT027880 








ERROR 10,*+1 PROGRAM MAY NOT CALL ITSELF 








REM 


FT027890 
FT027900 








SLW F0RM69 SAVE NAME OF SUBROUTINE 








XCL 


FT027910 
FT027920 






TSX LOCATE, 4 PUT IN SYMTAB 








SLW ASTACK SAVE EQUIV POINTER 


FT027930 
FT027940 








PAX ,4 








TMI 1CALL2 NEW ITEM IN SYMTAB 


FT027950 
FT02796Q 








REM 








LF! BEXTF+BARGT OLD ITEM. MUST BE EXTERNAL OR ARGUMENT 


Ff027970 








LFT BVAR8+BARRY+BC0MN+BEQUV 


FT027980 








ERROR 69, SKEND MULTIPLE USAGE OF SUBROUTINE NAME 


FT027990 








RIL 70GG00+8LI8F RESET MODE BITS AND LIBRARY FLAG 


FT028000 








REM 


FTG28010 




JL'L 


;ALL2 


CAL F0RM69 GET BCD NAME 


FT028020 








LAS =HIOOOOO DETERMINE A »MODE«. THIS IS NECESSARY TO 


FT028030 








TRA »+l FAKE OUT LATER SECTIONS OF COMPILER. 


FT028040 








1 AC -UMf t t { 1 
»-»■»■«* — nil) t 1 i 1 


crn5fifti?n 

1 t W <— W —' ^ V 








SIL BEXTF+MREAL MARK AS EXTERNAL AND REAL 


FT028060 








TRA »+2 


FT028070 
FT028080 






SIL BEXTF+MINTG MARK AS FIXED AND EXTERNAL 






lALLl 


REM 


FT028090 




11 


STI EQUIV.4 SET EQUIV WORD 


FT028100 








CAL COLUMN, 2 GET NEXT CHARACTER 


FT028110 
FT028120 








ERA =H( 








ARS 30 


FT028130 
FT028140 








TNZ 1CALL4 NOT A LEFT PAREN 








REM 


FT028150 








CAL ASTACK SET ASTACK WORD. DO NOT MOVE 


FT028160 








STI ASTACK ASTACK POINTER YET. 


FT028170 








STA ASTACK 


FT028180 








REM 


FT028190 






TSX CMPLCL,4 PROCESS THE CALLING SEQUENCE 


FT028200 








TRA SKEND 


FT028210 








REM 


FT028220 






:all4 


REM 


FT028230 
FT028240 




k 


SKIP 63 MUST BE END OF STATEMENT 








ERROR 7, SKEND 


FT028250 








TSX PUTCL2,4 RESTORE CELL 2 


FT028260 








LFT BARGT IS IT AN ARGUMENT. 


FT028270 





TRA 

REM 



cooeco 

_ ^ _TRA_ 

REM 
1CALL3 CAL 



TSX 

CODEC 

TRA 



1CALL3 



YES 



ASTACK,TSX4,T,XRFLAG 
SKEND CODE IS, 



NO ARGUMENTS IN CALL STATEMENT 
TSX NAME, 4 „ 



ASTACK 



PROLOG, 4 
TSX4»N»XRFLAG 



MAKE PROLOGUE ENTRIES 

CODE IS,.. TSX ** 



SKEND 



FT028280 

JFT028290 

FT028300 

FT028310 



FT028320 
FT02833G 



FT028340 
FT028350 
FT028360 
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TTL PASS 1 PROCE 

END STATE MENT PROCESSOR 

REM 

ENTRY ... PEND „ _.„ _.„_. _. 



S S R 



END 



FT028370 
FT028380 
FT02839G 
FT0284OO 
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* 
* 
* 

* 



RFM 

IF THIS IS A SUBPROGRAM, _A RETU RN SEQU ENCE_IS_ GENERATED jjERE 

Tor functions, and for subroutines which contain a 

return statement. the cell •loce_nd , _»_ which 

7S USED BY THE RETURN STATEMENTS, IS NOW SET TO THE CURRENT 

^AU^_oL_PcgyiL :L ____^ .., . . - 

IF THE LASTJEXECUTABLE ^TATEMEJlTJ^AlJ^aLAJIMNSKR^rYPEA 

THEN AN ERROR "MESSAGE IS ISSUED. 

IV tn _ 



Pl:ND 



NZT 
2ET 



TRA 

ERROR 



TRAFLG 
_RASCAL 
*+2 
33,*+3 



LAST EXECUTABLE STATEMENT MUST 8E A 
TRANS FER OR A CALL. 

PROGRAM RUNS OF F THE END 



PfcND4 



REM 

_*ET 
TSX 

REM 

"REM 

REM 

NZT 

TRA 



TRAFLG 



CLA 

STQ 

NZT 

TRA 

NZT 

ERROR 

REM 

LDQ 



LBL1U4 



SBNAME 
PEND99 
PCOUNT 
LOCEND 
FNCTFL 
PEND15 
RTNFLG 
55,*+! 

SBNAME 



WAS THE LAST FXFC- STATEMENT A TRAN SFER. 
YES. 60 TO THE POST-PROCESSOR ROUTINE 
TO TURN OUT ANY WAIT ING TRANSF E R CODI NG. 



IT A SUBPROGRAM. 



IS 

NO _ 

SET THE VALUE OF THE END CARD ENTRY 

FOR RETURN STATE MENTS 

IF A FUNCTIOnT THEN RTNFLG MUST BE ON. 
NOT A FUNCTION 



GET THE NAME OF THIS SUNCTION 



TSX 
PAX 



LOCATE, 4 
*4 



LOOK IT UP IN SYMBOL TABLE 
PRESERVE THE POINTER 



FT028410 

FT028420_ 

FT028430 

FT028440 

FT028450 

FT028460 

F TO 2 8470 

FT028480 

FT028490 

FT028500 

FT028510 

FT028520 

FT028530 

FT028540 

F TO 2 85 50 

FJ028560 

FT028570 

FT02858Q 

FT028596 

FT028600 

FT0286I0 

FT028620 

F TO 2 8630 

FT028640 

FT028650 

FT028660 

FT028670 

FT028680 

FT028690 

FT028J00 

Ffozsiio 

FT028720 



TPL 
STZ 
ERROR 
REM 

'flHD6 LNT 

ERROR 

LFT 

ERROR 

REM 

SXA 

" " CAT" 

LAS 
TRA 
TRA 

REM 
CAL 
CODEO 
REM 

P-ND15 CAL "" 
ZET 
TSX 

__ REM 

"•p;ijD99 STZ 
TSX 



PEND6 
SYMTAB,4^ 
56, PEND 15 

BLHSX" 
56,P£ND15 



OLD ITEM IN THE TABLE 
REMOVE THE SYMBOL FROM TABLE 
AND PUT OUT 



AN ERROR MESSAGE 



HAS NAME BEEN DEFINED. 
NO. 



BARGT+BARRY+BEXTF+8INTF 



85,PEND15 

PEND10 t4 
RTNMOO 
= 1 

PEND13 
PEND14 

PEND10 
CLA.'V" 

TRA 

RTNFLG 

CITBLD,4,X 



I LLEGAL USE OF THE NA M A 
SAVE THE POINTER 



FT028730 

•»■ -f *\ <~k r» -» /. n 
r I KJ£.0 t tu 

F 1028750 

FT028760 

FT028770 

FT028780 

FT028790 

FT028800 

FT028810 

FT028820 

FT028830 

FT028840 

FTG28850 

FT028860 

FT028870 

FT028880 

FT028890 

FT028900 

GET A TRANSFER OP CODE FT0289I0 

IS THERE A RETURN STATEMENT IN THIS PR0GRAMFT028920 

YES. PUT OUT THE TRA TO RETURN SEQUENCE FT028930 

FT028940 

LPASSl "''nnn:"'QSTIN^O>~THiriiESr" FT02895G 

CITBLN,4,END PASS ON THE END FLAG TO _.CITBLP __ FT028960 



GET MODE OF RETURNS 

DOUBLE OR COMPLEX 
BOOLEAN 

GET EQUIV POINTER FOR NAME 
CODE 



IS 



CLA NAME 



TRA 
SPACE 



PPASS1 
3 



CODEC 

TRA~ 

REM 



PFN013 CAL 

CODEO 

CAL 

COD EO 

CODEN 

CODEN 



PENDIO 

CAL,V 

PEND15 



PEND10 
CLA,V 



PENDIO 
LDQ,G 
ST0777 
STQ776 



TRA 

PPM 



PEND15 



GO NOW TO POST PASS 1 



GET POINTER TO NAME 
CODE IS... CAL NAME 



GET POINTER TO NAME 



FT028970 
FT02898Q 
FT02899O 
FT029000 
F TO 290 10 
FT029020 
"FT02903Q 
FT029040 
FT029050 
FT029060 
FT029070 
FT029080 



FT029090 
FT029100 
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TTL 
ENTRY. 



PASS 1 
1FCARD 



P R C E S SO R - F - C A R D SCA 



REM 
REM 



IF CARD AXC 

TSX 

TMI 
REM 
SLW 
XCL 



0,2 
SCNBCD»4 



RESET POINTER TO COLUMN 
GET NAME 



ERR0R7 



NOT A SYMBOLIC NAME 



TSX 

TMI 



F0RM69 

T5C AT E » 4 
1FCAR1 



SAVE NAME IN ERROR MESSAGE CELL 



PUT NAME IN SYMBOL TABLE 
NEW SYMBOL 



REM 
LFT 



gy&DB*RrnM^+BARRY*BEQUV_ 



ALL FLAGS MUST BE OFF 



ERROR 
LFT 



69, 1FCAR2 
BARGT 



IS IT AN UNCOMMITTED ARGUMENT 



SIL 
LNT 



BEXTF 
BEXTF 



yes* Turn" on external function flag 
external function flag m ust now 8e o n 



ERROR 
TRA 



REM 
iFCARl PAX 
CAL 
LAS 
TRA 

LAS 

SIL 
TRA 



69,1FCAR2 
1FCAR2 



j 4 , 

FQRM69 



GET EOUIV POINTER 



=H 1 00000 

#Tl 

=HNU(U 



SIL 
STI 

REM 
11 CAR2_ SKI PI 

TRA 

REM 

' SKIP 

ERROR 

TRA 



BEXTF+MREAL 
*+2 

BEXTF+MINTG 
EQUIV,4 

CMCHAR 



GET SCO NAME OF FUNCTION 

DETERMINE THE MODE. THIS AS NECESSARY 

TO KEEP LATER SECTIONS OF COMPILER 

FROM LOUSING UP_. __ 

MARK AS EXTERNAL AND REAL 



MARK AS EXTERNAL AND INTEGER 
RESET EQUIV WORD ___ 



1FCARD+1 
3,SKEND 



TEST FOR COMMA 

COMMA FOUND. RETURN FOR ANOTHER NAME 



TEST FOR END OF STATEMENT 
NOT EOS. ERROR 



FT029110 
FT029120 
FTG29130 
FT029140 
"FT 029 150 
FT029160 
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FT029170 
FX029180 
FT029190 
FT029200 
FT0292iO 
FT029220 
FT 029230" 
FT029240 
FT029250 
FT029260 
FT029270 
FT029280 



FT029290 

FT029300_ 

FT 029310 

FT029320 

FT029330 

FT029340„ 

FT02935G 

FT029360 

FT029370 

FT029380 

FT029390 

FT029400 

FT029410 

FT02942G 

FT029430 

FT029440 

FT029450 

FT029460 



SKEND 



FT029470 





TTL PASS 1 PROCESSOR - COMMON 


FT029480 


* 


COMMON A,B,C,.... 


FT029490 




REM 


FT029500 


# 


ENTRY,.. 1COMNX 


FT029510 


* 


AN ENTRY IS MADE IN DIMTBL FOR EACH COMMON VARIABLE. 


FT029520 


* 


THE FIRST WORD OF THE DIMTBL ENTRY CONTAINS THE VALUE OF THE 


FT029530 


* 


CURRENT COMMON COUNTER IN THE DECREMENT, AND EITHER THE EQUT8L 


FT029540 


* 


OR EQUIV TABLE POINTER IN THE ADDRESS, DEPENDING IF BEOUV 


FT029550 


* 


IS ON OR NOT. IF THIS IS A NEW DIMTBL ENTRY, THREE WORDS ARE 


FTO29560 


» 


RESERVED TO ALLOW FOR POSSIBLE FUTURE DIMENSION OR ASSIGN INFO. 


FT029570 


«• 


STORAGE IS ALREADY AVAILABLE IN DIMTBL FOR THIS VARIABLE 


FT029580 


» 


IF IT HAS PREVIOUSLY APPEARED IN A DIMENSION STATEMENT OR IN 


FT029590 


* 


EITHER AN ASSIGN OR ASSIGNED GO TO STATEMENT. 


FT029600 


* 


THE EQUIV WORD ADDRESS GETS THE DIMTBL POINTER POSITION. 


FT029610 


* 


THE FLAG BITS 8C0MN AND BLHSX ARE TURNED ON. 


FT029620 


# 


A SYMBOL MAY NOT APPEAR MORE THAN ONCE IN A COMMON DECLARATION, 


FT029630 


# 


AND ALL SYMBOLS MUST BE NON-SUBSCRIPTED NAMES. 


FT029640 




REM 


FT029650 


♦ 


NOTE... DPOINT AND EPOINT ARE SYNONYMOUS WITH NXTLOC, AND 


FT029660 


# 


DIMTBL AND EQUTBL ARE SYNONYMOUS WITH POOL. 


FT029670 




SPACE 3 


FT029680 


1C0MNX 


AXC 6,2 RESET POINTER 


FT029690 




TSX SCN8C0»4 GET VARIABLE 


FT029700 




TPL *+2 


FT029710 




ERROR 2,SKEND NOT A VARIABLE 


FT029720 




REM 


FT029730 




SLW F0RM69 SAVE NAME OF SYMBOL 


FT029740 




XCL MOVE FOR LOCATE ROUTINE 


FT029750 




TSX LOCATE, 4 PUT IN SYMTAB 


FT029760 




PAX f l GET EQUIV POINTER 


FT029770 




TPL 1COMN1 OLD ITEM 


FT029780 




REM 


FT029790 




CAL F0RM69 GET NAME OF SYMBOL 


Ft62980b 




LAS =HIOOOOO NEW ITEM. SET MODE BITS 


FT029810 




TRA *+l "'"" ~~~ " "" ~~ 


FT029820 




LAS =HNU((< 


FT029830 




SIL MREAL FLOATING POINT 


FT02984Q 






FTQ2985G 




SIL MINTG FIXED POINT 


FT029860 




PXA ,1 RESTORE THE EQUIV POINTER 


FT029870 




REM "" 


FT029880 


1CQMN4 


LXA DPQI&T,4 


F-T4>29*9a 




STA DIMTBL, 4 (DIMTBL) ADDRESS = EQUIV POINTER 


FT029900 




REM 


FT029910 




CLA DPOINT 


FT029920 




ADD =3 BUMP DPOINT BY THREE 


FT029930 




STO DPOINT 


FT029940 




PXA ,4 


FT029950 




REM 


FT02996Q 


1C0MN5 


SIL BCOMN+BLHSX TURN ON COMMON BIT AND DEFINITION BIT. 


FT029970 




STI EQUIV, 1 SET UP EQUIV WORD 


FT029980 




STA EQUIV, 1 (EQUIV) ADDRESS = DPOINT 


FT029990 




REM 


FTO30000 




CAL CPOINT GET COMMON POINTER 


FT030010 




ADD = 1817 BUMP COMMON POINTER 


FT03O020 




STO CPOINT 


FT030030 




REM 


FT030040 




STD DIMTBL, 4 (DIMTBL) DECREMENT = CPOINT 


FT030O50 




REM """ "■"' " 


FT030060 


J^OMN2 


SKIP1 CMCHAR CHECK FOR COMMA 


FT030070 
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TRA 

REM 


1COMNX+1 


COMMA FOUND. RETURN FOR ANOTHER SYMBOL 


FT030080 
FT030090 




SKIP1 

TRA 

ERROR 

REM 


63 

SKEND 
5 f SKEND 

BCOMN 
1C0MN6 


NOT A COMMA. MUST BE END OF STATEMENT 
OKAY. 


FT030100 
FT030110 






FT030120 
FT030130 


1CQMNI 


REM 
LFT 


OLD SYMBOL. IS COMMON BIT ON. 
YES. ERROR 


FT03Q14G 
FT030150 




TRA 
REM 


FT030160 
FTC30170 




LFT 

ERROR 


BEXTF+BINTF 
69»1C0MN2 

BARRY+BASSN 
LCOMN3 

BEQUV 


MAY NOT BE MARKED AS SUBPROGRAM NAME 


FT030180 
FT030190 




REM 
LFT 
TRA 
REM 
LFT 
PIA 


NO. IS STORAGE ALREADY AVAILABLE. 


FT030200 
FT030210 




YES. 

""NO. IS EQUI VALENCE Fit ON7"" 
YES. tDIMTBL) ADDRESS = EQUTBL POINTER 


FT030220 
FT030230 
FT030240 
FT030250 




TRA 

REM 


IC0MN4 




FT030260 
FT030270 


1C0MN3 


PIA 
PAX 


,4 




FT030280 
FT030290 




TRA 
REM 
CAL 
SLW 


1COMN5 




FT030300 
FT03O310 


1CQMN6 


SYMTAB, 1 

FORM27 

27,1C0MN2 


GET BCD NAME OF SYMBOL IN ERROR 

PUT IN ERROR MESSAGE 

PUT OUT MESSAGE AND RETURN 


FT030320 
FT030330 




ERROR 


FT030340 
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TTL P 

DIMENSION. 

REM 



A S 
Ail 



S 1 

i JiR)f 



P R C 
B( I*J), 



ESS 

CiDt 



R 



- DIMENSION 



1DIMNX 



ENTRY * w — _„ 

~£nT : n j | y "Tn^th e~~dTme nsToTT s t Kck d i m t b l is made for each 

VARIABLE ENCOUNTERED IN A DIMENSION STATEMENT. JTHREE 



FT 030350 
FT030360 
FTO 30 370 
FKK30380 
FT030390 
FT 030400 
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WORDS" OF STORAGE IN Dl'MTBL ARE ALREADY AVAILABLE IF THE 
VARIABLE HAS_ PREVIOUSLY APPEARED IN A COMMON STATEMENT. 

" OR 



TFnOT, A TWO OR THREE WORD 
ARRAY IS ONE-DIMENSIONAL OR 



ENTRY IS MADE, DEPENDING IF 
MnRF-THAN-ONE-DIMENSIQNAL. 



THE 



WORD TWOTONfAlNS THE TOTAL LENGTH SPECIFIED BY 
SUBSCRIPTS (ADDRESS FIELDS THE FIRST DIMENSION 



THE 
(DECREMENT 



FIELD), AND 
WORD THREE, 



THE NUMBER OF 
IF NECESSARY, 



DIMENSIONS (PREFIX BITS). 
CONTAINS DIMENSIONS TWO (ADDRESS 



FT030410 
J=T030420 
FTQ30430 
FT030440 
FT030450 
FT030460 
FT 030470 
FT030480 



AND THREE (DECREMENT FIELD) 



FIELD) 

REM , _ _ ■ — 

TT^EtnTv'lS^Nri^^QOTBL^OiNfE^ (LOCATED IN THE ADDRESS 
OF THE EQUIV ENTRY) I S P L ACED IN THE ADDRESS OF WORD ONE 



TfTheTFmTBL ENTRY. IF BEQUV IS OFF, THE EQUIV TABLE 
POSITION IS PUT IN THE DIMTBL ADDRESS. I N EITHER EV ENTi, 



The "address~of~ f he equI'v Table "entry "is set to the 
dimtbl pos i t i on . barry j ;_s turned on. 

"rem 

IF COLUMN 1_C0NTAI?4S A «D« OR »I«, THE BIT BDOUB^IS 
TND I C AT I NG THAT TH I S ARRAY 
ASSIGNMENT. A SYMBOL MAY 



* 

# 
* 

* 

* 



WILL RECEIVE A 
NOT APPEAR MORE 

ThTnTTnce Tn a "dTmens i on statement , and 

BE SUBSCRIPTED. AN ASSIGN VARIABLE MAY 



TURNED ON, 

DOUBLE-LENGTH STORAGE 



EACH SYMBOL MUST 
NOT APPEAR IN A 



DIMENSION STATEMENT. 

AN ARRAY MUST APPEAR IN A DIMENS ION JTATEM1^TJ^I0R„_I0_II1 
"FIRST USAGE IN AN EXECUTABLE STATEMENT. 

REM - . — - 

NOTE... "~DPrnNT~AN5~TP0INT ARE SYNONYMOUS WITH NXTLOC, AND 

DIMTBL AND EQUTBL ARE SYhH3NYMi^ _ _ 



ID 



SPACE 3 
IMNX AXC 9,2 



1UIMN7 



IrUMNl 



REM 




TSX 


SCNBCD,4 


TMI 


ERRORS 


SLW 


.P 


REM 




SKIP 


LPCHAR 


ERROR 


9,SKEND 


REM 




LDQ 


= 1B17 


STQ 


.P+6 


AXT 


ltl 


REM 




TSX 


SCNBCD,4 


TMI 


*+4 


REM 




ERROR 


17,*+1 


CAL 


= 1B17 


TRA 


1DIMN5 


REM 




TSX 


BC0FIX,4 


SLW 


.P+5,1 


XCA 




TOV 


*+l 


MPY 


.P + 6 



RESET POINTER 
GET ARRAY NAME 



INVALID ARRAY NAME 
SAVE BCD NAME 



TEST • J FOR 
NO PAREN 



left pmen 



SET MULTIPLIER 



GET DIMENSION 

IS SUBSCRIPT A NUMBER. 



NO. (ZERO SUBSCRIPT 
FAKE A SUBSCRIPT 



CONVERT TO FIXED POINT NU MBER 
SAVE DIMENSION 



CAUGHT BY SCNBCD) 



TURN OFF OVERFLOW LIGHT 
COMPUTE TOTAL STORAGE REQUIRED 



FT030490 

FT030500 

FT030510 

FT030520 _ 

FT030530 

FT030540 

FT030550 

FT030560 

FT030570 

FT030580 

FT030590 

FT030600 

FT030610 

FT030620 

FT030630 

F TO 30640 

FTO 30650 

FT030660 

FT030670 

FTQ30680 

FTO 30690 

FJ030700 

Ffoibzio" 

FTO 30 730 
FT03Q740 
FT030750 
FJDL30J60 
FT030770 
FT030780 
FTQ30790 
FT030800 
FT030810 
FT030820 
FT030830 
FT 0308 40 
"FT030850 
FT030860 
FT030870 
FT030880 
FT030890 
FT030900 
FT030910 
FT03092Q 
FTO 30930 
FT030940 



ALS 

TNO 



ERROR 

ARS 
PIR NS S TQ 
REM 
SKIP 
TRA 

JXH 

TXI 
REM 

sfz 

Qtf TO 



ERROR 
REM 



LDQ 



RQL 
LGL 



ORA 
SLW 



STZ 
TPL 



STL 
REM 



1UIM17 



PAX 
LFT 
TRA 

ft£tt 
SIL 
CAL 
LAS 
TRA 
LAS 
SIL 
TRA 
SIL 
TRA 
REM 
LDQ 
RQL 
TQP 
SH- 
REK 
LET 
TRA 
REM 



19 
*+2 



TRY TO TURN ON OVERFLOW 
CHECK FOR OVE RFLOW 



22,*+3 

I'™ 
.P+6 



ARRAY TOO BIG FOR CORE 



RESTORE TO DECREMENT 
SIZE OF ARRAY 



CMCHAR 
* + 3 

ERR018,jU2 
ID IMN 1,1,1 



TEST FOR CO_MMA (_MORE SUB SCRIPT S) 

NOT A COMMA 

TOO MANY DIMENSIONS 



BUMP COUNT AND LOOP BACK 



.P+4,1 
RPCHAR 
97SKEND" 



SET STOP CELL 

TEST FOR RIGHT PAREN 



NO PAREN 



,1 

.P+6 

3 

15 



GET NUMBER OF DIMENSIONS 
GET TOTAL SIZE OF ARRAY _ 



.P+4 
.P+6 



MOVE INTO POSITION 

SET PREFIX A ND ADDRESS___ 

MOVE FIRST DIMENSION INTO DECREMENT 
SAVE FIRST WORD IN DIMENSION DECLAR ATION 



REM 




CAL 


.P 


LAS 


=HFORMAT 


TRA 


*+2 


STL 


FORFLG 


LAS 


=HIF 


TRA 


♦+2 


STL 


IFFLAG 


XCL 




REM 




TSX 


LOCATE, 4 


REM 





TEST EACH ARRAY NAME TO SEE IF H _ _. 
IS "FORMAT* OR «IF«. THIS IS TO SPEED 
THE IF AND FORMAT PROCESSORS* ___ 



FORMAT NAME FOUND, SET THE FLAG 



IF ARRAY FOUND. SET TH E F LAG 



PUT IN SYMTAB 



.P+3 
*+2 
VP+8 



SET FLAG FOR OLD SYMBOL 

IS IJ QLD__SYMBOU 

NEW SYMBOL, SET FLAG 



,4 

BARRY+BVARB+BEXTF+BINTF __ ARE ANY OF THESE F LAGS ON 

ERROR, 



1DIM13 

BARRY 

.P 

»H I OOOOO' 

*+l 



YES. 



NO. TURN ON ARRAY FLAG 

GET JCD NAME OF ARRAY 

NEW SYMBOL. SET MODE BITS 



=HNUU( 

MREAL 

*+3 

MINTG 

1DIM17 

MODF LG 
34 

1DIM17 
BDOUB 

.P + 8 

ID IM 12+2 



FLOATING POINT 
FIXED POINT 



GET "COLUMN i"~FLAG ' CELL 

MOVE BIT 34 INTO MQ SIGN POSITION 

IS It •D 1 OR 'I». 

YES. SET BDOUB BIT 



IS IT NEW SYM BOL. 
YES. 



FT030950 
FT030960 
FT030970 
FT030980 
Tf 030990 
FTC31000 
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FT031010 
FT031020 
Ft031030 
FJ031040 
Ff031050 
FT031060 
FT031070 
FT031080 
FT031090 
FT031100 
FT031110 
FJ031120 
FT031130 
FT031140 



FT031150 
FT03U60 
FT031176 
FT031180 
FT 031190 
FT031200 
FT031210 
FT031220 
FT031230 
FT031240 
FT031250 
FT031260 
FT031270 
FT 031280 
FT031290 
FJ031300 
FT031310 



FTO31330 
FT031340 



FT031350 
FT031360 
FT031370 
FT031380 
FT031390 
FT031400 
FT031410 
FT03JL420 
FT031430 
FT031440 
FT031450 
FT031460 
FT031470 
FT031480 
FT031490 
FT03150Q 
FT031510 
FT031520 
FT031530 
FT031540 



LFT 
TRA 



REM 

LNJ 
TRA 

REM 



8C0MN 
I D IM10 

8EQUV 
1DIM12 



OLD SYMBOL. IS IT IN COMMON. 
YES. _____ 



NO. IS UJ.N EQUIVALENC E STACK. 
NO.' 



FT03155G 
FTQ31 56Q 
FT031570 
FT031580 
FT03159G 
FT031600 
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PIA 

1DIMN8 LXA 



DPOINT,! 



YES. 

GET DIMTBL POINTER 



STA 
PXA 
10IM11 STI 
STA 
TXI 



DIMTBL, 1 

tl 

£QUIV,4~ 

EQUIV,4 



PUT CORRECT POINTER IN ADDRESS 
RESTORE EQUIV ENTRY 



•+ltl»l 



BUMP DIMTBL POINTER 



1D1MN9 CAL 
SLW. 
TXI 

REM 



.P+6 

DIMTBL,! 
* + l, l t 1 



INSERT CODE WORD IN DIMTBL 



BUMP POINTER 



NZT 
TRA 



.P+3 

1DIMN6 



IS" THERE MORE THAN ONE DIMENSION. 

NO. 



REM 

CAL 

AR5 
ORA 
SLW 
TXI 
REM 
IMN6 LNT 



.P+3 
DIMTBL, 1 

BCOMN 



GET THIRD DIMENSION OR ZERO ___ 

SHIFT INTO ADDRESS 

COMBINE WITH THE SECOND DIM ENSION _ 
PUT IN DIMENSION STACK WITH ZERO PREFIX 
BUMP COUNTER _ 



SXA 
REN 

1DIM14 SKIPl 
TRA_ 
"REM 

SKIP 

ERROR 

TRA 

REM 
REM 



DPOINT,! 



IjS COMMON FLAG^ ON. 

Nd; UPDATE DIMTBL POINTER 



CMCHAR 
1DIMN7 



CHECK FOR FURTHER ENTRIES 
GET NEXT ENTRY 



63 



END OF STATEMENT REQUIRED 



3,SKEN0 
SKEND 



1DIM12 


LNT 


BARGT 




TRA 


1DIM15 




PXA 


,4 




TRA 


IDTKN3 




REM 




ibIM15 


CAL 


SYMTAB,4 




SLW 


FQRM19+6 




ERROR 


19,lDIM12+2 




REM 






REM 




1DIM10 


PIA 






PAX- 


,1 




TRA 
REM 


1DIM11 


1DIM13 


CAL 


SYMTAB,4 




SLW 
"SLW" 


FORM2I 




FORM28+2 




SLW 


F0RM69 




REM 






LFT 


BARRY 




ERROR 


21,»+1 




LFT 


BEXTF+BINTF 



"NOT IN EQUIVALENCE. IS IT A PARAMETER 
NO. ERROR. SHOULD NOT BE AN OJ-D _SY MB °L„ 
YES. TREAT AS NEW SYMBOL. 



GET BCD NAME OF SYMBOL IN ERROR 
PUT IN THE ERROR MESSAGE 
PUT OUT MESSAGE AND RETURN 



COMMON VARIABLE 
GET DIMTBL POINTER 



GET BCD NAME OF ARRAY IN ERROR 
PUT NAME INTO THE ERROR MESSAGES 



IS^NAME ALREADY IN DIM TBL AS ARRAY. 

YES "' 



FT031610 
JH-031620 
FT031630 
FT031640 
FT031650 
FT031660 
FT031670 
FT031680 



FT031690 
FT031700 
FT 031710 
FT031720 



FT031730 
F TO 3 1740 
FT03175G 
FT031760 
F TO 31 770 
FT031780 
FTQ3179G 
F TO 3 1800 
FT031810 
FT031820 
FT031830 
FT031840 
Ft 031 850 
FT031860 
FT031870 
FT031880 
Ff031890 
FT031900 



FT031910 
FTQ31920 



FT031930 
FT031940 
Ff0"31956 
.F-IXX31960 
FT031970 
FT031980 
FTb31990 
FT032000 
Ft0320i0 
FT032G20 
FT032030 
FT032040 
FT032050 
FT032060 
F TO 32 070 
FT032080 
FT032090 
FT032100 
F TO 32 110 
FT032120 
FT032130 
FT032140 



ERROR" ""T^il NAME USED AS VARIABLE AND FUNCTION ~ "SffJ^o ^^ " 

LFT_ _.BASSN_ IS VARIA BLE IN ASSIG N-TYPE STATEME NTS. _ FT032160__ 

ERROR """28, »Tl YES cI2!?JI{! 

TRA 1DIM14 ^fTURN FOR NEX T ARRAY IN THE LIS T _ JFT0321SCL ..__ ..__.. _ 



3 
* 

* 

ft 

e 

* 
« 

* 

ft 
ft 
* 
* 

* 

* 

* 
ft 

* 

ft 
♦ 
ft 
£ 
ft 
ft 
ft 
ft 
ft 
ft 
li- 
ft 
ft 
ft 
ft 
ft 
ft 
ft 

* 
ft 
ft 
ft 
ft 
ft 
ft 

ft 
ft 



TTL P A 

EQUIVALE NCE 
REM 



SS i PROCESS 

urn »aui M,.xmi) 



OR " - EQUIVALENCE 



FT032I90 
FT032200 



PAGE 99 



ENTRY, 



1EQUVX 



THE EQUIVALENCE TABLE EQUTBL IS COMPOSED OF • CHAINS' v WHICH 

IN TU RN AR E FORMED FROM ONE OR MORE 'ST ACKS'. A CHAIN CONTAINS 

ALL SYMBOLS 



RELATED TO EACH OTHER THROUGH 
DECLARATIONS. A NEW STACK IS FORMED FROM 



EQUIVALENCE 
THE NEW ITEMS 



IN A 



SINGLE EQUIVALENCE DECLARATION (THE PARENTHETICAL EXPRESSION 
IN THE EQUIVALENCE STATEMENT )_. A SYMBOL APPEARS NO MORE THAN 
ONCE IN EQUTBL. 
REM 



FT032210 
FTQ32220 
FT032230 
_FTG32_240 
FT03225Q 
FT032260 
FT032270 
FT032280 
FT032290 
FT032300 



^STACK IS FORMED AS ITEMS ARE PROCESSED FROM A DECLARATION L 1ST. FTO32310 
THE S T ACK EN TRIE S ARE ONE WORD P ER SYMBOL. THE ADDRESS CONTAINS FT032320 

AND 



CONTAINS THE 
EACH STACK IS 



THE SYMBOL TABLE POINTER, AND THE DECREMENT 

SUBSCRIPT (ONE, IF NO SUBSCRIPT IS GIVEN K _ 

BEGUN AND ENDED WITH A CONTROL WORD CONTAINING A MINUS SIGN. 
THESE WORDS ARE USED TO DELIMIT A STACK AND, WHEN NECESSARY, 



FT032330 
FT032340 
FT032350 
FT032360 



TO LINK THIS STACK WITH OTHERS TO FORM A CHAIN. THE LOCATION OF FTG32370 
EACH NEWLY BUILT STACK (UNLESS IT IS L INKED TO A FORMER STACK ) ISFTQ3238Q 



RECORDED IN THE ADDRESS 
POOL. THE DECREMENT OF 



STORED IN 
OF THESE 



DIRECTOR WORDS, AND THE 
NEXT_0N1L. THE LAST ONE 
IF A SYMBOL ENCOUNTERED 



OF A DIRECTOR WORD, WHICH IS 
'INITFG' POI NTS TO THE FIRST 
DECREMENT OF EACH DIRECTOR POINTS TO THE 

HAS A ZERO DECREMENT. 

IN A LIST 



FT03239O 
FT032400 



CHAIN (NOT THE CURRENT CHAIN), 



IS ALREADY IN AN EQUTBL 
THE DIFFERENCE IN OLD AND 



CURRENT SUBSCRIPTS (DEL) IS COMPUTED. IF DEL IS NEGATIVE, 
THE^ MAGNITUDE OF DEL IS ADDED TO EACH MEMBER OF THE OLD C HAIN, 
AND delY IS SETTO ZERO. IF DEL IS POSITIVE, DEL IS ADDED 
TO E ACH MEMBER (IF ANY) OF THE CURRENT CHAIN*, AND DELI I S SE T 
EQUAL TO DEL. DELI IS AN AMOUNT TO BE ADDED AUTOMATICALLY TO 
THE SUBSCRIPTS OF ALL FUTURE ITEMS IN THE CURR ENT EQUIVALENCE 



FT032410 
FT03242G 
FTQ32430 
FT032440 
FT03245G 
FT032460 
FT03247G 
FT03248G 
FT032490 
FT032500 



LIST. THE OLD CHAIN IS THEN LINKED TO THE CURRENT STACK 
(IF AN Y), FORMING ONE LONGER CHAIN. IF, IN THE CURRENT LIST, 
"A SECOND LINKAGE TO THE" PRESENT CHA IN [CONSISTING OF THE OLD 
CHAIN(S) AND THE CURRENT STACK LINKED TOGETHER) IS FOUND, THE 



FTO32510 
FTQ3252Q 
FT032530 
FTG32540 



OLD SUBSCRIPT IS COMPARED WITH THE EFFECTIVE CURRENT SUBSCRIPT FT032550 



(SUBSCRIPT PLUS DELI). IF THESE NUM BE RS ARE NOT EQUAL, 



INCONSISTENCY ERROR IS RECORDED. 

REM 

YHr'u¥klNG'>WCES * N THE SAME ORDER AS 

THEY WSftE FO RMED OTHERWISE* 1MB CORRECT ORDER OF VARIABLES IN 

COMMON MIGHT BE ALTERED". 

THE DECREMENT FIELD OF THE TOP CONTROL WORD OF A STACK IS 

USED TO LINK THIS STACK WITH A STACK BUILT EARLIER IN EQUTBL. 

SIMILARLY, TH E ADDRES S F I ELD OF THE BOTTOM CONTROL WORD OF A 

STACK IS USED TO LINK TO A LATER STACK. 

REM _... _ 

THE LOCATION OF A SYMBOL'S ENTRY IN EQUTBL IS RECORDED 

ADDRESS OF THE EQUIV TABLE WORD, UNLESS TH E SYMBOL HAS 

APPEARED IN A COMMON, DIMENSION, 

STATEMENT. IN THE J-ATTjER CASES, 

THE ADDRESS OF THE FIRST WORD 

ENTRY. IN EITHER EVENT, THE 

EQUIV TABLE ENTRY. 

REM 

A SUBPROGRAM PARAMETER MAY NOT APPE AO^ _ AirEQUfv^ENCE 

DECLARATION. 

REM" 

NOTE... DPOINT AND EPOINT ARE SYNONYMOUS WITH NXTLOCj^ND 



FT03257G 
FT032580 
FT032590 
FTO326O0 
FT032610 
FT032620 
FT032630 
FT032640 
FT032650 
FT032660 



IN THE 
ALREADY 



ASSIGN, OR ASSIGNED GO TO 
T HE E QUTBL POINTER IS PL AC E D 
IN THE COMMON/DIMENSION/ASSIGN 
FLAG 8EQUV IS TURNED ON IN THE 



IN 



FT032670 

FT032680 

FT032690 

FT03270G 

FT032710 

FT03272G 

FT032730 

FT03274 1 0_ 

FT032750 

FT032760 

FT032770 

FT032780 



DIMTBL 
SPACE 



AND 
3 



EQUTBL ARE SYNONYMOUS WITH POOL, 



FTQ32790 
FTG3280Q 
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ROUTINE FOR SCANNING EQUIVALENCE STATEMENTS 



QUVX AXC 

SKIP 

ERROR 
REM 
QUV3 STZ 
STZ 



1EQUV2 



REM 
TSX 
TMI 

SLw 



REM 
LOQ 
STQ 
SKIP 



TRA 
REH 



TSX 

TPL 

„^ 

SLW 



REM 
SKIP 



QUV1 



ERROR 

REH 

TRA 

REM 

SKIP1 

JRA 

REM 

SKIP 

ERROR 

REM 



£ET 

TRA 

REM 

&QU61 LXA 



CAL 
ST A 
LXA 
SXA 



llt2 
LPCHAR 



9,SKEND 

PRIOR 
L I : NKER 

SCNBCD,4 
ERRORS 

n 

• V 

= 1617 

.P + l 

LPCHAR 

STOEQU 

"SCNBC0~t4~ 

JRR017.„- 
BCDFIX,4 

RPCHAR 



RESET POINTER 

Q-iEC K FO R LEFT PAREN 

NO PAREN 



FT032810 

FT03282A 
FTO 32830 
FT032840 



FT03285Q 
FT032860 



RESET FLAG 



GET NAME 



NOT A VARIABLE 

cauc am MAMP 



9*SKEND 

STOEQU 

CMCHAR 
1EQUV2 

RPCHAR 



9,SKEND 



LINKER 
1EQU62 

jEP0INT,4 
TOP 

EQUTBL, 4 
INITFG,1 
INITFG,4 



1, QU62 



SUBSCRIPT IS ONE ._ 

CHE CK FOR S_UBSCRI_PI 

NO PAREN TERGO NO SUBSCRIPT GIVEN 



GET SUBSCRIPT 
MUST BE NUMERICAL 



CONVERT TO FIXED POINT NUMBER 
SAVE SUBSCRIPT 



CHECK _FQR RIGHT PAREN 
NO PAREN FOR SUBSCRIPT 



PROCESS EQUIVALENCE "~QF SYMBOL 



COMMA POSSIBLE IN THIS POSITION 
RETURN FOR ANOTHER VAR J !ABLfc____ 



no comma. cjiEgc^Fgi^M^l^PMiJi 

NO ) "EITHER. ERROR. 



HAS A LINKAGE BEEN FOUND 
YES. NO DIAEym_WgM_NEEDED 



FT032870 

FT032880 

FTO 32890 

FT032900 

FT032910 

FT03292Q _ 

FT03293G 

FT032940 

FT032950 

FT03_2960 

FTG32970 

FT032980 

FT032990 

FT033000 

FT033010 

FT033020 

FT 0330 30 

FT033040 

FT033G50 

FT033060 

FT033O70 

FT033080 

FT033090 

FT033100 

FT033110 

FT033120 

FTO 33 130 

FT03J3140 

FT033150 



PXD 


,4 


STD 


£QUTBL»1 


TXI 


•+1,4,1 


SXA 


EP0INT,4 


REM 




SKIP1 


63 


TRA 


SKEND 


REM 




CAL 


COLUMN, 2 


ERA 


=H,{ 


ARS 


24 


1NZ 


ERR0R7 


REM 




TXi 


l£QUV3,2,-2 



NO. GET NEXT POOL LOC AT I ON J^R_PIMCig* 
~G£T"TdP OF STACK JUST FINISHED 

SET STACK LOCATION IN DTR€CTGR W&RJL 

GET LAST DIRECTOR LOCATION 

SET NEW DIRECTOR LOCATION 

^T 2JJj»<£R__lN PR EVIOUS DIRECTOR WORD _ 
BUMP EQUTBL POINTER 



MAY BE ENO OF STATEMENT 
YES 



NO. CHECK FOR ^CHARACTERS 

BAD FORMAT 

RETURN FOR ANOTHER SET OF EQU 1 VALENCES 



FT033170 

FT033J8G 

FT 03 3 190 

FT033200 

FT03321G 

FT033220 

FT033230 

FT 033 240 

FT033250 

FT033260 

FT033270 

FT033280 

FT033290 

FT033300 

FT033310 

FT033320 

FT033330 

FT033340 

FT033350 

FT033360 



* 


EJECT 
ROUTINE 


TO HANDLE EQUIVALENCE TABLE ENTRIES. 


FT03337Q 
FT03338Q 


* 

STOEQU LOQ 


.P GET BCD SYMBOL 


FT033390 
FTO 33400 




TSX 


LOCATE, 4 PUT IN SYMTAB 

.P+2 SAVE EQU1V TABLE POINTER 


FT0334I0 
FT033420 




TPL 

REM 

NEW SYM! 
CAL 


1EQU20 OLD SYMBOL. MODE ALREADY SET. 


FT033430 
FT033440 


* 


BOL. SET MODE BITS AND BEQUV FLAG. 
.P NEW SYMBOL. FIND MODE. 


FT033450 
FT033460 




LAS 
TRA 


=HIOOO0O 
*+l 


FT033470 
PTQ33480 




LAS 
SIL 


=HN(U(( 

MREAL+RFQUV FLOATING POINT 


FT033490 
FT033500 




TRA 

SIL 


*+2 

MINTG+BEQUV FIXED POINT 


FT033510 
FTG33520 




REM 


1EQU26 


FT033530 
FT033540 


* 


REM 


FT033550 
FT033560 


It 


QU20 LFT 
TRA 


BARGT+BEXTF+BINTF 

1EQU40 ILLEGAL FLAG 


FT03357Q 
FT033580 


__li 


REM 
QU47 LFT 

TRA 

REM 

SIL 

REM 

N£W"EQU 
1QU26 LXA 

NIT 

TRA 


BEQUV IS SYMBOL ALREADY IN EQUIVALENCE TABLE. 
1EQU21 YES. GO TO SECTION 1. 


F f 033590 
FT033600 
FT033610 
FT033620 




BEQUV NO. fURN ON BEQUV FLAG 


FT033630 
FT033640 


* 


TBL ENTRY. 
EP0INT,4 SET EQUTBL POINTER 


FT033650 
FT033660 




PRIOR IS PRIOR FLAG ON 
1EOU23 NO. 


FT033670 
FT 03 36 80 




REM 
TXI 


♦+1,4,-1 DROP POINTER 


FTO 33690 

yo337og 




CLA 
ZET 


~^P+2 YES. GET" SYMTAB POINTER 
LINKER IS LINKER FLAG ON. 


FTO 337 10 
FT033720 




ADD 
REM 


DELI YES. INCREASE SUBSCRIPT 


FT033730 
FT033740 


11 


QU25 AOD 
SLW 


.P+l ADD IN SUBSCRIPT 
EQUTBL, 4 STORE EQUTBL ENTRY 


FT033750 
FT033760 




.p*2.1 GET 5YMTA& POINTER 


FT033770 
FT03a780 




REM 
LXA 
STI 
LFT 
TRA 
REM 




EQUIV, 1 RESTORE EQUIV WORD 

BCGMN+BARRY+BASSN IS SYMBOL IN POOL ALREADY. 
1EQU51 ""YES." 


FT033790 
FT033800 
FT033810 
FTO 33 820 




PXA 
STA 
TXI 

REM 
h.4iU51 PI A 
PAX 
PXA 
STA 


,4 NO. 

EQUIV, 1 SET ADDRESS OF EQUIV WORD TO EQUTBL ENTRY 

1EQU52,4,1 

,1 GET DIMTBL POINTER 


Ff033830 
FT033840 
FT03385G 
FT033860 
FT033870 
FT033880 




t4 

DIMTBL, 1 SET EQUTBL POINTER IN DIMTBL ENTRY 

*+l,4,l 


FT033890 
FT033900 
FT033910 
FT033920 




TXI 

REM 

;CU52 CLS 
STO 

SXA 

TXI 


i 


=0 SIGN BIT FOR BOTTOM LINK WORD 
EQUTBL, 4 SET LINK WORD 


FT033930 
FT033940 




L0,4 SET LO "= EPOINt 
•+1.4.1 BUMP POINTER 


FT033950 
FT033960 
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SXA 
SXA 
TRA 

REJi 

QU4u PAX 
CAL 



TERMFG.4 
EPOINT, 4 



1EQUV1+1 



SET CURRENT TERMINATION POINT OF EQUTBL 

RESTORE POI NTER 

RETURN 



SLW 
5LW 
LFT 

ERROR 
LFT 
ERROR 
TRA 

REN 



,4 

SYMTA8,4^ 
F0RM25+4 
F0RM69 
BARGT 
25**+l _ 



Illegal flag* "get symtab pointer 

GET 8CD NAME OF VARA IBLE _jN_ERR(m 



PUT NAME INTO ERROR MESSAGE 



BEXTF+BINTF 

69,*+l 

lEQUVl+1 



CANNOT BE ARGUMENT __ 
CANNOT BE SUBPROGRAM__NAHE. 



REM 

NEW E 



QUTBL ENTRY. PRIOR FLAG OFF. 



1LQU23 STL 
LXA 



SXD 
TNX 



TXH 
TXI_ 

""rem 

CLS 
ST 
SXA 
REM 
NZT 

fxi 

REM 

UQU24 LXA 

PXD 

STD 

^ REM 

CLA 
STA 
RFM 
_QLA 
ORA 
TXI 



PRIOR 
T£RMFG_, 1 _ 
♦♦2,1 

*+3,l,l 

*+2,4,** 
*+3f4fj-J. 

=0 

EQUTBL, 4 
T0Pt4 

LINKER 
1EQU25-3,4,1 NO. 



TURN ON PRIOR FLAG 

GE L_CUBM_NJ_ END _ J3F_EQUIVALENCE_SIACKS. 



SKIP I P_LHjS _I_S_TH E BEGINNING OF_ENTRIES 

TEST EPOINT VERSUS TERMFG 

FQRAj. REDUCE EPOIN T POIN TER . 

FLAG CELL 

FLAG CELL FOR TOP OF THIS STACK 

SET TOP OF THIS NEW _STACK 



IS LINKER FLAG ,_QN._ 



LOtl 
EQUTBL, 4 



YES. GET LO POINTER 

PUT_JN DECREMENT 

SET {TOP) DECREMENT = LO 



TOP 
EQ UTBL, 1 

.P+2 

DELI 
1EQU25,4,1 



SET CLO) ADDRESS. =_TOP 



GET EQUIV TABLE POINTER 

7NSERT~SUBSCRIPT INCREMENT IN NEW EQUTBL 
BUMP EPOINT AND TRANSFER 



REM 
REM 
SECT 
REM 



ION 1. SYMBOL ALREADY IN EQUTBL 



1CQU21 PIA 
_ PAX 

" ~" LFT 



GET A POTNTER FROM THE EQUIV WORD 



CAL 

REM 
PAX 
NZT 
TRA 
REM 
SXA 
TXI 
IU53 CLA 
TPL 
REM 
ANA 
TZE 



bIgmWbXrT^^ 

DIMTBL,4 YES. GET WORD CONTAIN ING„ EQUTBL POINTER 



.4 

LINKER 
1EQU29 

.P+4,4 
•+1,4,-1 
EQUTBL, 4 

•-2 



EQUTBL POINTER 

IS LINKER FLAG ON. 

NO. , 

YES. SAVE EQUTBL POINTER 
SCAN UPWARD TO TOP OF STACK 
GET TABLE ENTRY 

HOT YET A LINK WORD 



"^O7777T00O000 SAVE DECREMENT ONLY 
1EQU54 TEST FOR ZERO DECREMENT 



FTQ3397G 

FIQ33980 

FT 03 3990 

FT034Q00 

FT0340iO 

FT034020 

FT034G3Q 

FT034040 

FT034050 

FT034060 

FT034070 

FT034080 

FT 034090 

FT034100 

FT034110 

FT034120 

FT034130 

FT034140 

FT034150 

FJ034160 

FT034170 

FT03418G 

FT034190 

FT03420G 

FT034210 

FJ034220 

FT034230 

FT034240 

FT034250 

FT034260 

FT 034270 

FT034280 

FT03429G 

FT 034300. 
FT034310 

FT034320 
FT034330 
r i ujtJtu 
WDFT034350 
FT034360 
?T034370 
FT 034380 
FT034390 
FT034400 
FT034410 
FT034420 
FT034430 
FTO 34440 
Ft034450 
FT034460 
FT034470 
FJ034480 
FT034490 
FT034500 
FT034510 
FT034520 
FT034530 
FT034540 
FT034550 
FT034560 
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REM 
POX 


,4 


RESET POINTER FOR NEXT SEGMENT OF 


STACK 


FT034570 
FT034580 


TXI 
REM 


1EQU53,4,-1 


CONTINUE THE SCAN 




FT034590 
FT034600 


1CQU54 PXA 
ERA 


,4 
HI 


GET TOP OF THIS STACK 
COMPARE TOP OF STACK WITH HI 




FT034610 
FT034620 


TIE 
REM 


1EQU31 


EQUAL 




FT034630 
FT034640 


REM 
* THIS 


ENTRY LINKS TWO 


DIFFERENT OLD STACKS IN EQUTBL. 




FT034650 
FT034660 


REM 
* Tl RECORDS THE NEXT ENTRY INTO THE "OTHER 1 STACK. 


1 WILL 


FT034670 
FT034680 


* WHEN ONE OF THE CHAINS HAS BEEN COMPLETELY PROCESSED, T 

* RF SFT TO ZERO. 


FT034690 
FT034700 


* T3 i: 

* ONE i 


5 USED TO TEMPOR/8 
3F THE STACKS, 

.P+4, 1 


kRILY HOLD A RESTARTING POINT IN 




FT034710 
FT034720 


LXA 


RESTORE EQUTBL POINTER 
GET TABLE ENTRY 
» KILL ADDRESS FIELD 


. 


FT034730 
FT034740 


CLA 
ANA 


EQUTBL, 1 
=07777700000C 


FTO 34750 
FT034760 


SUB 
SUB 


.P+l 
DELI 


LESS NEW SUBSCRIPT 
LESS DELI 


F f 034770 
FT034780 


STO 
REM 


DEL 


NEW DEL 


TS 


FT034790 
FT034800 


TMI 

ADD 


*+3 

DELI 

DELI 

HlVl 

T3,l 

,4 

HI 

Tl 

1EQU38 


SET DELI = DIFFERENCE IN SUBSCRIP 


FT034810 
FT034820 


STO 
REM 




ASES 


FT034830 
FT034840 


LXA 
SXA 


SET T3 FOR ONE OF THE FOLLOWING C 


FT034850 
FT034860 


PXA 
LAS 
STA 
TRA 


GET TOP OF STACK POINTER 

IS TOP OF STACK ABOVE HI POINT 

NO. SET ENTRY INTO 'OTHER STACK* 


• 


FT034870 
FT034880 
FT034890 
FT034900 


REM 
SXA 


Tltl 
HI, 4 
DEL 


TOP OF STACK ABOVE HI. SET Tl = 


HI 


FT034910 
FTO 34920 


SXA 
CLS 


HI = TOP OF STACK 
CHANGE SIGN OF DEL 




FT034930 
FT034940 


STO 
SXA 


DEL 
T3,4 


T3 = HI 




FT034950 
FT034960 


REM 
i* W38 LXAr 


T3|4 
♦♦1,4,1 
EQUTBL,4 
1EQU35 


RES£T WHNTER 




FTO 349 70 
FX0a49&Q 


TXI 
CLA 


SCAN DOWN FROM T3 
GET ENTRY 




FT034990 
FT035000 


TMI 
REM 


LINK WORD FOUND 


FT035010 
FT035020 


CLA 
TMI 


DEL 

*+3 

EQUTBL,4 

£QUTBL,4 

iEQU38+2,4,l 

,1 " """" 

tl 

1EQU36,1,0 

Tl 

1EQU32 


GET DEL 

SKIP IF MINUS 


— ~ ■ 


FT035Q30 
FT035040 


ADD 
STO 
TXI 
REM 


BUMP SUBSCRIPT 


FT035050 
FT035060 
FT035070 
FT035080 


1 wU35 PAX 
PXA 
XCA 
TXH 


LINK WORD. TEST ADDRESS 

SAVE ADDRESS ONLY 

SAVE LINK WORD 

IS LINK ADDRESS ZERO. 


FT035090 
FT035100 
FT035110 
FT035120 


REM 
NZT 


ADDRESS IS ZERO. IS OTHER STACK 


FT035130 
DONE ALSO.FT035140 


TRA 
REM 


YES. SET « LO« AND RETURN 




FT035150 
FT035160 
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i QU37 CLA 
CLA 



Tl 
Tl 





STA 
LXA 


EQUTBL, 4 
Tl,l 




PXD 
STD 


,4 
EQUTBL,! 




SXA 
STQ 
REM 
CLS 


T3»l 
Tl 




DEL 



CLINK) ADDRESS = Tl 



(Tl) DECREMENT = LINK 



T3 = Tl 

Tl = (LINK ) ADD RESS 

DEL = - DEL 



STO 

TRA 

REM 

IT filial A N7T 

TRA 

REH 

PXA 
LAS 
TRA 
P2E 



DEL 
1EQU38 



Tl 



HAS ONE STACK BEEN COMP LETED YET. 



1EQU39 

"tT 

Tl 



YES 



GET NON-ZERO LINK ADDRESS 
COMPARE WITH Tl 



REM 

1lQU39 PAX 



1EQU37 
,4 



UNREACHABLE POINT 



RESET POINTER TO NEXT S TACK 




1EQU38+2,4,1 



LINKAGE WITH EARLIER STACKS. 

LINKER 



EQUTBL, 4 

=077777000000 

.P+l 



TURN ON LINKER FLAG 
GET OLD ENTRY 

SAVE DECREMENT 



SUBTRACT NEW SUBSCRIPT 



DEL 
DELI 
*+2 
DELI 



SET NEW DEL 

DELI = POSITIVE DEL 



SKIP IF DEL IS MINUS 
SET DELI » ZERO 



SXA 
REM 



.P+3,4 



SAVE ENTRY POINTER 



1GQU41 CLA 
TMl 



EQUTBL, 4 
1EQU42 



REM 
CLA 
TMI 
ADD 
STO 

TXJL 

REM 

lcQU42 ANA 
TZE 
PDX 
TXI 
REM 
SXA 
LXA 
TXI 
REM 

I ";"QU4j CLA 
TMI 
REM 
CLA 



*+3 

EQUTBL, 4 
EQUTBL, 4 
1EQU41,4,-1 



SCAN UPWARD TO TOP OF THIS STACK 
IS IT L INK . WORD . 

NO. _ 

NO ACTION IF DEL IS MINUS 
MODIFY SUBSCRIPT 



=077777000000 LINK WORD FOUND. „IS_JT TOP OF ; STACK _ 

,4 CONTINUE THE SCAN. TOP OF STACK NOT YET 

1EQU41,4,~-1 



HI, 4 

.P+3,4 

»+i,4,l 

EQUTBL, 4 
1EQU44 

DEL 



HI" = TOP OF "STACK 

SCAN DOWN FROM ENTRY. RELOAD POINTER 



LINK WORD FOUND. 



FT035170 
FT035180 
FT035190 
FJ035200 
FT035210 
FT0352_2G 
FT03523G 
FT035_24G 
FT035250 
FT035260 
FT03527G 
FT035280 
FT035290 
FT035300 
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FT035310 
FT035320 
FT035330 
FT035340 



FT035350 
F TO 353 60 
FT035370 
FT035380 
FT 035 390 
FT035400 
FT035410 
FT035420 
FT035430 
FT035440 
F f 035450 
FT035460 
FT035470 
FT035480 
FT03549Q 
FT035500 
FT035510 
FT035520 
FT035530 
FT035540 
FT035550 
FT035560 



FT035570 
FT03S5aO 
FT035590 
FT035600 
FT035610 
FT035620 
FT035630 
FT035640 
FT03565G 
FT035660 
FT035670 
FT035680 
F f 035690 
FT035700 
FT035710 
FJ035720 
FT03573G 
FT035740 
FT035750 
FT035760 







TMI 

ADO 


*+3 
EQUTBLf4 


FT035770 
FT035780 








STO 
TXI 


EQUTBL, 4 
1EQU43,4,1 


FT035790 
FT035800 




u 


:QU44 


REM 
ANA 
TZE 
PAX 


=077777 

#+3 

t4 

1EQU43,4,1 


FT035810 
LINK WORD FOUND, SAVE ADDRESS FIELD FTO35820 






END OF STACK FOUND. FT035830 
CONTINUE THE SCAN DOWNWARD FT035840 








TXI 

REM 


FT035850 
FT035860 








ZET 

TRA 


PRIOR 
1EQU45 


END OF STACK FOUNO. IS PRIOR FLAG ON. FT035870 
YES. FT035880 




XEQU32 


REM 
SXA 


L0 f 4 


FT035890 
NO. LO = BOTTOM OF STACK FT035900 








TRA 

REM 


1EQUV1+1 


RETURN FT035910 

FT035920 




1 


;QU45 


CLA 
STA 


TOP 
EQUTBL, 4 


PRIOR ON. (BOT OF STACK) ADDRESS - TOP FT035930 

FT035940 








PXD 
LXA 


t4 
TOP, 4 


FT035950 
(TOP) DECREMENT « BOTTOM OF STACK FT035960 








STD 

REM 


EQUTBL»4 


FT035970 
FT035980 




_l_i 


E:QU46 

f:C|U48 


TPL 
REM 
TXI 
CLA 
TMI 
ADD 
STO 
TXI 
REM 


DEL 
1EQUV1+1 

*+lt4,l 


FT035990 
RETURN IF NO BUMPING OF NEW STACK IS NEEDEDFTQ36000 

FT036010 
STEP DOWN •PRIOR* STACK FT036020 




I 3 


EQUTBL, 4 
1EQUV1+1 
DE Ll 

EQUTBL, 4 
1EQU48,4,1 


FT036030 
BOTTOM OF STACK. RETURN FT036040 








ADD DELI TO SUBSCRIPT FT036050 

FT03606O 






FT036070 
FT036080 




* 




REM 
SECOND 


LINK WITH THIS 


FT036090 
STACK. CHECK FOR CONSISTENCY. FT036100 




l! 


LQU31 


LXA 
CLA 


.P+4,1 
DELI 


RESTORE EQUTBL POINTER FT036110 

FT036I20 








ADD 
ERA 


.P + l 

EQUTBL,! 


ADD SUBSCRIPT FT036130 

FT036I40 








ANA 
TZE 


=077777000000 
1EQUV1+1 


KILL THE ADDRESS FIELD FT036150 
RETURN. FAIR WEATHER. FT036160 








REM 
CAL 
SLW 
ERROR 


F0RM26+10 
26,1£QUVH-1 


FT036170 
GET BCD WAME OF GUILTY SYMBOL F J 036180 
PUT NAME INTO THE ERROR MESSAGE FTO 36190 
PUT OUT MESSAGE AND RETURN FT036200 
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TTL PA S S i" p R C £ S S R - F R E Q U E N C Y FTG36210 PAGE 106 

* FREQUENCY .... FT03622G 

REM FTO 36230 

*__ ENTRY... XF REQX , .„._. FJ036240...._ __ . 

V THIS STATEMENT IS IGNORED. FT036250 

SPACE 3 JFT036260 _ _ _____ _ ._. 

TFREQX~fRA SKEND THIS "STATE MENTIS JUST A NO-OP. FT0362 70 



TTL P 

CONTINUE 



A S S" 1 PROCESSOR - CONTINUE 



REH 

ENTRY... 



1CO NTX 
IS 



JXQNTX 



THIS STATEMENT 
J>PACE 3 
AXC 
SKIP 



ERROR 
TRA 



8,2 
63 

3YSKEND 
SKEND 



Treated* as a no-op. 



RESET POINTER 

END OF STATEMENT EXPECTED 



FT036280 
FT0 362 90 
FT036300 
FT036310 
FT036320 
J^J036330 
FT036340 
FTQ36350 
FT036360 
FT036370 
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TTL PASS 

GO TO H 



PR OCESSQR - GO TO 



REM 
ENTRY... 



1GOTOX 



THE LABEL N IS PLACED IN THE SYMBOL TABLE AFTER IT IS CHECKED 

AGAINST THE CU RRENT CARD_LABEL. THE LA6£i^N_jS NOT 

PERMITTED TO EQUAL THE CURRENT CARD LABEL. THE PATH-OF-FLQW 

FLAG •BPATH* IS TURNED ON JFOR THE LABEL N._ _J>L£_G£NEMIIONL 

OF THE CODE i T RA N« IS DELAYED UNTIL THE LABEL ON THE 

NEXT EXECUT ABLE S T A TEMENT IS FOUND. I F „TtJlS_LABEL IS 

THE SAME AS N, NO CODE IS GENERATED. 

SPACE 3 



i GOT OX 



AXC 

*¥T 

Hft * 

SXA 
REM 
TSX 
TPL 



4,2 

I TRANS t 4 



RESET POINTER 

SET ENTRY FOR LABEL ROUTINE 



TRAFLG,4 

"SCNBCDt 4 
ERROR1 



GET LABEL N 
NOT A LABEL 



SLW 
SKIP 



.P 
63 



SAVE BCD LABEL 

END OF STATEMENT EXPECTED 



ERROR 

REM 

f i <" 

TSX 

SLW 
LAS 
TRA 
ERROR 



3,SKEND 



.P 

ST0LBL»4 

1TRAN2 

CARD 

*+2 

6 f *+ 1 

SKEND 



"GET" BCD LABEL. SET 'REACHABLE LABEL' FLAG 

PUT N IS J>YMTAB. MINUS SI GN ... 

SAVE POINTER TO N 

COMPARE WITH CURRENT^ LABEL 



INVALID TRANSFER 



TRA 

REM. .. .__ 

REM 

DCU 

"R"OUflN€~Td TEST IF LAST " TRJ^lFE^IN"Sf¥u^f ION IS NEEDED. 
POINTER HAS BEEN SAVED IN CELL 1TRAN2. 



"Ef^"RYnrTTHls"ROUtlNE «AS SET INtd TRAFLG BY PREVIOUS 
TRANSFER STATEMENT. .EXIT J^QHISJWUIINe, IS TO 1,4. 



FT03638O 
FT036390 
FT036400 

FT036410 
FT036420 
FT03643G 
FT 036440 
FT036450 
FT036460 
FT036470 
FT036480 
FTG36490 
FT036500 
FT036510 
FT036520 
FT036530 
FT036540 
FT036550 
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FT036560 
FT036570 



FT036580 

FT036590 

FT036600 

FT036A10 

FT036620 

FT036630_ 

FT036646 

FT036650 

FT036660 

FT036670 

FT036680 

FT036690_ 

Ff036706 

FT036710 
FTG36720 
FT036730 



* 

1 TRANS 



ZET 



NOCODE 



IS CODE STILL NECESSARY. 



1TRAN3 



TRA 
CAL 
"LAS 
TRA 
TRA 
REM 
SXA 
CQPEQ 
AXf 
TRA 
REM 



1,4 

1TRAN2 

CARD 

#*2 

1,4 

LTRAN3,4 

TR A , R 

♦ »,4 
lt4 



NO. RETURN 
GET POINTER 



TEST AGAINST CURRENT LABEL 



NO TRANSFER INSTRUCTION NEEDED. RETURN, 



CODE IS... TRA N 



FT036740 
r i upo t ?u 
FT036760 
F TO 367 JO 
FT036780 
FT036790 
FTQ36800 
FT036810 
FT036820 
FT036830 
FT036840 
FT036850 
FT03686G 



£ S S R 

NM } » I 



-COMPUTED GO 



* 
* 
« 



ttl pa S S 1 P R o c 

COMP UTED GO TO (N l, N2 , _ . ~ 

REM 

ENTRY... 1COMGO __ _ _ _ „ . _ — — — 

"EACH X ABEL NI , N2 , . . . NM* IS PUT IN THE SYMBOL TABLE AND THE 
PAT H-OF-FLOW FLAG 8PATH IS TURNE D ON. NONE OF THE LLABELSJLAY 



i"SOSTlWTUR^Nt~CARD LABEL. THE VARIABLE I MUST BE 
FIXED POINT. IF I IS NOT A PARAMETER, THE COD E 'LDC 1,4' 



IS GENERATED. IF I IS A SUBPROGRAM PARAMETER il.E. BARGT 
IS ON), THE PROCESSOR TRANSFERS TO THE PROLOG ROUTINE. 



W^REfURNT THE CODE «LDC »*,4« IS GENERATED. 
NEXT AN INSTRUCT ION 'TRA »,4' IS PUT OUT. THIS IS FOLLOWED 



BY^TTsT^TllANSFERS" • TRA NI' IN THE SAME ORDER AS THEY 



«rrcAi\ im i 



tm -roe CTATCUCMT. 

- — - rl|_. Ji n 1 l-iiuni ■ 



ICOMGO 



SPACE 

~AXt" 
SXA 



3 
5,2 



1TRANS+1,4 
TRAFLG,4 



RESE T POINTER 

~SlT~EXIT FOR SUBSEQUENT LABEL ROUTINE 



ICOMGl 



REM 
jAXC 
SXA 
TSX 
TMI 
ERROR 



1*4 



SET 'GO TO» COUNTER 



.P,4 

SCN 6CD,4 
*-r2 
U1C0MG6 



SAVE COUNTER 
GET NI 



IS IT A LABEL, 
NO. ERROR 



Lk, 



0MG6 



REM 

TSX 

LAS 

TRA 

ERROR 

REM 

LXA 

SLW 

REM 

CAL 



STOLBU4 
CARD 
* + 2_ 



PUT NU) IN SYMTAB. MIN US SIGN. 
COMPARE WITH CURRENT LABEL 

"TmprFper"TrXnsf1T"™^"""" 



.P»4 
COLUMN, 4 



RESTORE COUNTER 
SAVE N POINTER 



ERA 
ARS 



COLUMN, 2 

=H, 

30 



TEST FOR COMMA 



TNZ 
TXI 
TXI 
REM 
SXD 
CAL 
ERA 
ARS 
TNZ 
TXI 

TSX 

TMI 
SLW 
REM 
LAS 
TRA 
LAS 
TRA 
ERROR 
"REM""' 
TSX 
SLW 
REM 



#+3 
*+l,2,-l 



1C0MG 1,4,-1 COMMA FOUND 



1C0MG2,4 
COLUMN, 2 
=H)T 
24 
ERROli 

SCNBCD,4 

ERR0R8 

F0RM69 

=HIOOOOO 

*+l 

=HOOOO0O 

*+l 

12,SKEND 

SYMST0,4 

;p+i 



SAVE NUMBER OF LABELS 
TEST FOR ), CHARACTERS 



IMPROPER PUNCTUATION 



GET I 

NOT A VARIABLE 
SAVE BCD NAME 



TEST FOR FIXED POINT 



PUJ I_IN SYMTAB. 
SAVE POINTER 



0FT036870 
FT036880 
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FT036890 
FJLQ36900 
FTO 369 16 
FT036920 
FT036930 
FT036940 
FT036950 
FT036960 
FT03697b 
FT036980 
FT036996 
FT037000 



FT037010 
FT037020 
FT 03 70 30 
FT037040 



FT037050 
FT037060 



FT037070 
FTQ3708G 
FT 037090 
FT037100 
>f 0371 id 
FT037120 
FT037130 
FT037140 
FT037156 
FT037160 
FT037170 
FT037180 
FT 03 7 190 
FT037200 
FT03T210 
FT037220 



FT037230 



FT037250 
FT037260 
FTO 3 72 70 
FT0a7 J 2a0 
FT037290 
FT037300 
FT 0373 10 
FT037320 
l=f037336 
FT037340 
FT037350 
FT037360 
FT037370 
FT037380 
FT037390 
FT037400 
FT037410 
FT037420 



FT037430 
FT037440 
FT037450 
FT037460 



LFT 
ERROR 



BEXTF+8INTF 
69,SKEND_ 



REM 
SKIP 



63 



ERROR 3,SKEND 

NQCQDE 

REM 
LNT 
TRA 

REM 

CAt 
TSX 



BARGT 
1COMG5 



.P+l 
PROLOG, 4 



CODEC 

Trt A 



LDC4,N 
1CGMG4 



REM 



A CQMG5 COOECO LDC4».P +1 j V_ 
REM 



MAY NOT BE SUBPR OGRA M NAMES 



FNin OF STATE MENT EXPECTED 
TEST CODE FLAG 



TEST FQR_SUBRO_UTI_N^ ARGUMENT 
REGUL AR WAR I ABL E 



SUBROUTINE ARGUMENT. GET I POINTER. 

FJX UP_ PROLOGUE 

CODE IS... LDC **»4 



PROCEED. CO DE IS... LDC Ii4 



i^0MG4 CODECO _JMMiZCJ3UNT,P,XRFJLAG 

AXC 1,2 PUT OUT T RANSFER LIST 



CODE IS. .. TRA »,4 



rC0MG3~CODECO TRAic6LUMN,2)R PICK UP LABEL POINTER 
JXQMG2 TXL SKEND,2,** BRANCJ±JiHE^L^^- 
TXT 1CGMG3~, 2 • -1 



BUMP POINTER AND RETURN 



FT037470 
FT037480 
FT037490 
J=T037500 
Ff6375lb 
FT037520 



FT037530 
FT037540 
FT03755O 
FTQ37560 
'FT037570 
FT037580 
FT03759b 
FT037600 
FT037610 
FT03762G 
FT037630 
FT037640 
FT037650 
FT037660 



FT037670 
FT037680 
FT 037690 
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TTL PASS 1 PRO 

ASSIGN LABEL TO NA ME 

REM" 

ENTRY.,. 1ASSNX 



CESSOR - ASSIGN 



THE ASSIGN VARIABLE MUST BE fTxEO " POINT,"" AND MAY NOT APPEAR IN 
A DIMENSION STATEMENT. IF THE SYMBOL 'NAME* HAS 



JFT037700 
FT037710 
FT037720 
FT03773G 
FTG3774d 
FT037750 
FT037760 
FT037770 
FT037780 

^ FT037790 

wWiToNfi^^ (OR THE EQUTBL POINTER FT037800 

IF BEQUV IS ON). THE DECREMENT OFTHIS WORD IS AV AILABLE TO HQLDFT037810 

FT037820 
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NCTr~ALREADY APPEARED IN ANASSIGN OR ASSIGNED GO TO STATEMENT 
(I.E. 8ASSN AND BGOTO ARE BOTH OFF), A THREE WORD ENTRY IN 



THE "ASSIGN TABLE IS MADE. THESE WORDS SHARE STORAGE IN THE 
•POOL' AREA WITH A POSSIBLE THREE-WORD COMMON TABLE ENTRY. 



POSSIBLE COMMON INFORMATION. WORD TWO HAS THE 
VARIABLE'S EQUIV TA BLE POINTE R IN THE ADDRESS FIELD. 



FT037830 



* 



WORD THREE HAS THE LABEL'S EQUIV TABLE POINTER IN THE ADDRESS. 
THE ADDRESS OF THE EQUIV ENTRY FOR THE VARIABLE CONTAINS 



THE ASSIGN TABLE ENTRY POINTER. 

THE DECREMENT FIELD OF THE SECOND WORD OF THE PREVI OUS ASSIGN 



TABLE (IF ANY) IS SET TO THE POINTER TO THE SECOND WORD OF 
THIS CURRENT ASSIGN TABLE. ALSO TH E CELL ASNLCF, WHICH 



HOLDS THE BEGINNING OF THE LAST-BUILT STACK, IS SET TO THIS 
SAME VALUE. - — 



* 

* 

* 
* 
* 



IF BASSN OR 8G0T0 IS ON, THE ASSIGN T ABLE IS SEARCHED TO 

SEE i IF THE T LABEL ALREADY APPEARS IN THIS STACK. IF IT DOES, 
AND IF THE ENTRY HAS A MINUS SIGN, BPATH IS T URNED O N , SINCE 



THE LABEL HAS APPEARED IN BOTH ASSIGN AND GO TO STATEMENTS. 
IF THE LABEL DOES NOT APPEAR IN THE STAC K, T HEN THE LABEL 
POINTER IS ADDED TO THE STACK WITH A PLUS SIGN, AND THE 
LOCATION OF THE NEW ENTRY IS PLACED IN TH E DECREM ENT OF THE 
PREVIOUS ENTRY. 

lU ALL CASES, THE FLAG 8ASSN IS TURNED ON I N THE EQUIV TABLE 
ENTRY FOR THE VARIABLE 'NAME'. 

fit £- fet 

_____ ,__..._£.__--_, T — ^ -_-- pr~NAF E is NOT A PARAMETER, 
»SXA NAME, 4' IS GENERATED. IF NAME IS A PARAMETER, THE 



FT037840 

FT03785_0_ 

FT037860 

FT037870 

FTG37880 

FT037890 

F TO 3 7900 

FT037910 

FT037920 

FT037930 

FT037940 

FT037950 

F TO 37960 

FT037970 

fT037980 

FTG37990 

FT038000 

FT038010 

FT038020 

FT038030 



IaSSNX 



PROLOG ROUTINE IS ENTERED. 
IS PUT OUT. 

3 

6,2 



ON RETURN, THE CODE «SXA **,4« 



FT038040 
FT03805 
FT038060 

CTf4^ftA7n 



SPACE 
AXC 

-t%rfc>W" 

Tsx 

TPL 
REM 
SSP 
TSX 
SLW 
REM 
CAL 
ERA 
ARS 

REM 

txi 

TSX 



RESET POINTER 



.P+l 



SCNBCD,4 
ERR0R1 



ST0LBL,4 
• p 

COLUMN, 2 
=HTO 
24 
ERROR 7 



INITIALIZE CELL 

GET LABEL 
NOT A LABEL 



FT038080 
FT03809£ 
Ffd38lb0 
FT038110 



DON 'T T URN ON BPATH. 

PUT IN SYMTAB 

SAVE POINTER TO EQUIV 



CHECK FOR 'TO 



TMI 
REM 
LAS 
TRA 



♦♦1,2,-2 
SCNBCD,4 
ERRORS 



=HIOdOOO 
* + l 



"INVALID FORM OF STATEMENT 

BUMP POINTER 
GET VARIABLE 



NOT A VARIABLE 
CHE^TM~FlXED"POiNT' 



FT038120 
FT03813Q 
FT038140 
FT038150 
FT038160 
FT 038170 
Ff038180 
FT038190 
FT038200 
FT038210 
FT038220 
FT038230 
FT038240 
FJ038250 
FT038260 
FT038270 
F763828Q 
FT038290 





LAS 


=HNUU( 


FT038300 


PAGE 11 




TRA 


*+l 


FT038310 
FT038320 






ERROR 


12»SKEND NOT FIXEO POINT 






REM 




FT038330 






TSX 


SYMSTG»4 PUT NAME IN SYMBOL TABLE 


FT038340 






SLW 
CAL 


.P+2 SAVE EQUIV POINTER 


FT038350 




CALOVF 


EQUIV-OVERFL ADDRESS POINTS TO PSEUDO-EQUIV WORD 


FT038360 




STZOVF 


ST2 


EQUIV-OVERFL 


FT038370 






REM 




FT038380 






REM 


PSEUDO-EQUIV WORD TO GET COMMON RELOCATION 


FT038390 




OVERFL 


VFD 


018/MREAL+8COMN, 37,015/00000 


FT038400 






PAX 
REM 


,4 GET EQUIV POINTER 


FT038410 
pf 03842 6 












LFT 


BARRY+BEXTF+BINTF 


FT038430 
FTG3844G 






TRA 


1ASS15 ILLEGAL FLAG 






REM 




FT038450 
FT038460 




1ASS13 


SKIP 


63 END OF STATEMENT EXPECTED 






ERROR 


3,SKEND 


FT038470 






REM 




FT038480 






LXA 


.P+2,4 RESTORE XR4 


FT038490 






PIA 




FT038500 






LFT 


BASSN 


FT038510 
FTG38520 






TRA 


1ASSN1 NO. 






REM 
SIL 




FT038530 
FT03854G 






BASSN+BLHSX YES, TURN ON ASSIGN AND DEFINITION FLAGS 






AXT 
SXA 


1ASS10+1,1 SET TRANSFER ADDRESS 


FT038550 
FT038560 






1ASS10,! 






REM 




FT0385T0 




» 


PRODUCE 


INITIAL ENTRIES FOR A NEW ASSIGN STACK 


FT038580 




IASS11 


STI 
LFT 


EQUIV t 4 RESTORE EQUIV WORD 


FT038590 
FT038600 






BCOMN IS SYMBOL IN COMMON. 






TRA 


1ASSN9 YES. TRANSFER 


FT038610 






REM 




FT038620 






LXA 


NXTL0C1 GET NEXT AVAILABLE LOCATION IN POOL 


FT038630 
FTG38640 






PXA 


,4 GET EQUIV TABLE POINTER 






LFT 
PIA 


BEQUV IS SYMBOL IN EQUIVALENCE STACK. 


FT038650 






YES. GET EQUTBL POINTER 


FT038660 






STA 

REM 


POOL»1 SET ASSIGN STACK ADDRESS 


FT038670 
FT038680 












PXA 


,1 GET POOL POINTER 
EQUIV, 4 SET EQUIV WORD ADDRESS 


FT038690 
FT038700 






STA 






TXT 


**4*1*3 SUMP NXTLQC 
NXTL0C,1 


FT038710 
FT038720 






SXA 






REM 




FT038730 




1ASSN9 


ALS 


18 MOVE ASSIGN TABLE POINTER TO DECREMENT 


FT038740 






AOO 


= 1B17 BUMP 


FT038750 
FT038760 






HIT 


ASNFLG IS THIS THE FIRST ASSIGN ENTRY. 






TRA 


1ASS12 YES. 


FT038770 






REM 




FT038780 






LXD 


ASNLCF,1 GET POINTER TO BEGINNING OF PREVIOUS STACK 


FT038790 






STD 


POOL, I SET LINKER TO CURRENT STACK IN FORMER STACKFT038800 






REM 

""sfb 




FT038810 
FT03832G 




1ASS14 


ASNLCF BEGINNING OF LAST-BUILT STACK 






PDX 


,1 GET START OF THIS STACK 


FT038830 






PXA 


,4 GET EQUIV TABLE POINTER 


FT038840 






SLW 


PQGL,1 SET IN ASSIGN TABLE 


FT038850 




1ASS10 


TRA 


** EXIT POINT FOR ASSIGNED GO TO ALSO 


FT038860 






REM 
CAL 




FT038870 
FT038880 






TASSNX SET THE ASSIGN STATEMENT FLAG IN THE STACK 






ORS 


P00L,1 


FT038890 





CAL 
SLW 



• P 
POOL-1,1 



GET LABEL POINTER 

PUT IN NEXT WORD IN ASSIGN ENTRY 



1ASS12 



TRA 

M M 
STD 
TRA 



1ASSN1 



REM 
SIL 



FT038900 
FT038910 
FT038920 
FT03893O 
FT03894G 
FTG3895G 

~ FT03896G 

BASSN+8LHSX ASSIGN STACK ALREADY PRESENT* TURN ON FLAGFTQ3897Q 
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1ASSN6 

ASNFLG 
1ASS14 



FIRST ASSIGN TABLE ENTRY. SET FLAG CELL 



ST I 
PAX 
TXI 
CAL 



EQUIV, 4 
,1 

*+l, 1,2 
TASSNX 



RESTORE EQUIV WORD 



PUT FLAG IN THE STACK 



ORS 
RFM 



POQL+1,1 



IASSN3 



CAL 
STD 
ERA 
ANA 



POOL,l 
.P + l 
VfT"'"'~" 
=077777 



GET ELEMENT IN STACK 
SAVE LINKER 



IS LABEL ALREADY IN STACK, 
SAVE ADDRESS 



FT038980 
FT038990 
FT039000 
FT03 9Q10 
FT039G20 
FT03903G 



FT03904G 
FT039050 
FT039G60 
FT039070 



TZE 


1ASSN4 


YES. LEAVE LOOP 


FT039080 


REN 






FT039090 


NZT 


.P+l 


NO. IS THIS END OF STACK. 


FT039100 


TRA 


*+3 


YES. 


FT039110 


REM 






FT039120 


LXD 


.P+1,1 
1ASSN3 


NO. 


FT039130 


TRA 


GET NEXT LABEL IN STACK 


FT039140 


REM 


NXTLOC 




FT039150 


CAL 


£H0 OF STACK 


FT039160 


ALS 


18 


SET LINKER TO THIS LABEL 


FT039170 


STD 


P00L,1 




FT039180 


REM 


NXTLOC, 1 




FT039190 


"IASSM2 LXA " 


SET POINTER 


FT039200 


CAL 


.P 


GET LABEL POINTER 


FT039210 


SLW 


P00L,1 


PUT IN ASSIGN STACK 


FT039220 


REM 






FT039230 


TXI 


*+l,l,l 


BUMP NXTLOC 


FT039240 


SXA 


NXTLOC, 1 




FT039250 


REM 






FT039260 


1ASSN6 STI 


.P+3 
AXT4,.P,R 


SAVE INDICATORS 


FT039270 


CODECO 


,XRFLAG CODE IS... AXT LABEL, 4 


FT039280 


CODEC 


PXA4,N 
.p+2 


CODE IS... PXA 0,4 


FT039290 


CAL 


GET EQUIV POINTER 


FT039300 


REM 


.P+3 


- -■ ■ - ~ — - 


F7«39&U> 


LD I 


RESTORE INDICATORS 


FT039320 


LFT 


8ARGT 


IS IT A PARAMETER. 


FT039330 


TRA 


1ASSN5 


YES. 


FT039340 


REM 






FT039350 


CODEO 


SLW,V 


CODE IS... SLW NAME, 4 


FT039360 


TRA 


SKEND 




FT039370 


REM 




FT039380 


laSSN5 TSX 


PROLOG, 4 


SUBROUTINE ARGUMENT 


FT039390 


CODEC 


SLW,N 


CODE IS... SLW **,4 


FT039400 


TRA 


SKEND 




FT039410 


REM 




FT039420 


USSN4 CLA 


P00L,1 




FT039430 


TPL 


1ASSN6 


IS SIGN PLUS. 


FT039440 


REM 






FT039450 


PAX 


,4 


GET EQUIV POINTER 


FT039460 


CAL 


BPATHW 
EQUTV,4 




FT039470 


ORS 


TURN ON BPATH FLAG IN EQUIV WORD 


FT039480 


TRA 


1ASSN6 




FT039490 



REM 

1ASS15 CAL 

SLW 




LFT 
ERROR 
TRA 
REM 



SYMTAB,_4 

F0RM28+2 

F0RM69 

BARRY 

28t*+i 



BPATHVi VFD 



BEXTF+BINTF 

69,*+l 

1 ASS 13 

6T8/6P ATH 



i LLEGAL FL A_^__^ET__BC_D„NAHE_ 0^_S_YHSOL 



PUT NAME INTO ERROR MESSAGE 



MAY NOT BE ARGUMENT^ 



MAY NOT BE SUBPRO GRAM NA ME 



FTO39500 
FT03951P 
FTG39526 
FT 039530 
FT039540 
FT039550 
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FT039560 
FT039570 
FT039580 
FJ039590 
FT039600' 



s 


TTL PASS 1 PROCESSOR-ASSIGNED GO T 
GO TO NAME, *N1, N2,..., NM) 


OFT039610 
FT039620 




* 


REM 

ENTRY... 1AGOTO 


FT039630 
FT039640 




* 

* 

* 


THE "ASSIGN STACK IS BUILT AS DESCRIBED IN THE ASSIGN STATEMENT. 
IF A LABEL IN THE «GO TO» LIST IS ALREADY IN THE STACK WITH A 
PLUS SIGN, BPATH IS TURNED ON, SINCE IT HAS NOW APPEARED IN 
BOTH ASSIGN AND GO TO STATEMENTS. THE SIGN IS MADE MINUS. 


FT039650 
FT039660 
FT 039670 
FT039680 
FT 039690 
FT039700 
FT039710 
FT039720 
FT03973G 
FT039740 




* 
* 


NEW LABELS IN THE STACK ARE GIVEN MINUS SIGNS. 

NONE OF THE LABELS IN THE GO TO LIST ARE ALLOWED TO EQUAL 




» 


THE CURRENT CARD LABEL. 
REM 




* 
* 


THE FLAG BGOTO IS TURNED ON IN THE EQUIV TABLE ENTRY 
FOR THE VARIABLE. 




1AG0T0 


SPACE 3 

AXC 4,2 RESET POINTER „ _ __ . _ 


FT03975Q 
FT039760 






"stT Vp+i initialize temporary CELL 

STZ .P+4 INITIALIZE ERROR CELL 


FT039770 
FT039780 
FT039790 
FT039800 






REM 

AXT 1TRANS*1,4 SET NO-OP EXIT FROM NEXT CARD PROCESSOR 






SXA TRAFLG,4 
REM 


FT039810 
FT039820 






TSX SCNBCD,4 GET VARIABLE NAME 
TMI ERRORS NOT A VARIABLE 


FT039830 
FT039840 
FT039850 
FT039860 
FT039870 
FT039880 






REM 

LAS =HI0OOOO CHECK FOR FIXEO POINT 






TRA *+l 

LAS «HN((<(( 






STL .P+4 NOT FIXED POINT. SET ERROR CELL ON. 
ERROR 12,SKEND 


FT039890 
FT039900 
FT039910 
FT039920 
FT039930 
FT039940 






REM 

TSX SYMST0,4 PUT NAME IN SYMBOL TABLE 






PAX ,4 GET EQUIV TABLE POINTER 
SLW .P+2 SAVE EQUIV POINTER 






LFT BARRY+BEXTF+BINTF 

TRA 1AG014 ILLEGAL FLAG 


FT039950 

FT039960 




i AGO 11 


REM 
PI A 


FT039970 

CTftlOQOA 




-— 


LFT BASSN IS THE ASSIGN FLAG OFF. 

TRA 1AG0T3 NO. ASSIGN STACK IS ALREAOY_PRESENT___ 

REM 

SIL BA&SU OFF* BUILD MEW ASSXGN SXACK 


FT039990 
FT040000 
FT040¥f(T 
FT040020 






AXT ♦+3,1 SET EXIT POINT FROM SECTION OF CODE 
SXA 1ASS10.1 IN ASSIGN STATEMENT PROCESSOR. 
TRA 1ASS11 GO TO THIS SECTION OF CODE 
REM 


FT040030 
FT040040 
FT 040050 
FT040060 
"~FT040076 
FT040080 
FT040090 
FT040100 
FT040110 
FT040120 
FT040130 
FT040140 
FT040150 
FT040160 
FT04dT70 
FT040180 
Ff640190 
FT040200 






TXT" '"•Vi;i" f i RETURN FROM OTHER CODE AT THIS POINT 
CAL =077777 SET LABEL ENTRY TO WIERD END-OF-STACK 




1AG012 


SLW P00L,1 CONDITION 

STZ .P+3 ZERO ONLY FOR FIRST LABEL IN A STACK. 
REM 
1 CAL TGOTOX PUT FLAG INTO THE STACK 






ORS POOL+1,1 

REM 

CAL COLUMN, 2 CHECK FOR ,( 
ERA =H«I 






ARS 24 

TNZ ERR0R7 INVALID PUNCTUATION 

SXA 1 AGO 15,1 SAVE START OF LABEL LIST 

TXI *+l,2,-2 BUMP POINTER 
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1A6GT4 



REM 
TSX 



TPL 

REM 

TSX 



SLW 
LAS 
TRA 
ERROR 
REM 
1AS015 AXT 



LXA 

Tra 

REM 



REM 

L&GGT8 CLA 

STO 

ERA 




STO 
REM 



PXD 
STD 



TXI 
SXA 



SCN8CD,4 



ERROR1 



ST0LBU4 



.P 
CARO 



*+2 

6,* + i 



**,1 



.P,4 
^P+4 
TAG0T6 



POOL, J. 
.P + l 

±? 

=077777 
1AGQT7 

.P+l 
»+3 

.P+1,1 
1 AG0T8 

.P 

.P+3 

1AGQT9 



NXTL0C4 



POOL, 4 



i4 

P OOL , 1 
*+ 1,4,1 

NXTL0C4 



REM 




LVJQT6 SKI PI 


CMC HA R 


TRA 


1AG0T4 


REM 




CAL 


COLUMN, 2 


ARS 


24 


ERA 


=03477 


TNZ 


ERR0R3 


REM 




ZET 


• P+4 


TRA 


SKEND 


REM 




CAL 


.P+2 


LFT 


BARGT 


TRA 


1AG010 


REM 




CODEO 


TRAI.V 


TRA 


SKEND 


REM 




iAGOlv TSX 


PROLOG, 4 



GET LABEL 



FT04021G 
FT04022G 
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NOT A LABEL 



FT040230 
FT040240 



~DON*T TURN ON 8PATH IN STOLBL* 
PUT IN SYMBOL TABLE 



FT040250 
FT040260 



SAVE LABEL POINTER 

I S J I_ S_AME AS .CURRENT CARP, 

"So. 

YES. ERROR 



RESET POIN TER TO START OF LAB EL LIST 

GET EQUIV POINTER 

TEST ERROR CONDITION 



FT040270 
FTQ4G280 
FT040290 
FT040300 
FTG40310 
FT040320 
FT040330 
FT04034G 



ERROR FLAG ON. SKIP TABLE BUILDING 



GET LABEL ENTRY IN STACK 



SAVE LINKER 

COMPARE J(jTH_CURREN T LABEL POINTER 

SAVE ADDRESS POINTER 

SAME. _ 



NOT THE SAME. IS THIS ENDJQF STACK, 
YES. 



FT040350 
FT040360 
FT040370 
FT04038G 
FT040390 
FJ 040400 
Ff 040410 
FT040420 
FT646430 
FT040440 



NO. GET LINKER 



GET LABEL POINTER. MINUS SIGN 



IS THIS THE FIRST LABEL ENTRY IN THE STACK 
YES. 



GEJ POINTER TO NEXT OPEN P OSITION IN STACK 
SET LABEL ENTRY INTO STACK 



FT040450 
FT040460 
FT040470 
FT040480 
FT640490 
FT04G5G0 
FT040510 
FT040520 
FT040536 
FT040540 
Ft04055b 
FT040560 



GET POINTER 

SET LINKER INTO PR I UK LABEL ENT R Y IN STACK 



FT040570 



BUMP NXTLOC 

RESTORE NXTLOC ^ 

CHECK FOR COMMA _ _ - _ 

COMMA FOUND. RETURN FOR ANOTHER LABEL 



NO COMMA. CHECK FOR ) AND EOS 



BAD PUNCTUATION 

TEST ERROR FLAG 
FLAG ON. QUIT. 



GET EQUIV POINTER 

IS VARIABLE A PARAMETER, 

YES. 



FT040590 
FT040600 
FT04G610 
FI04A62O 
FTG4063G 
FT040640 
FT040650 
FT040660 
FT040670 
FJ040680 
FT040690 
FT040700 
FT 040710 
FT040720 
Ft 040 730 
FT040740 
FT040750 
FT040760 



CODE IS.. 



TRA* NAME 



PREPARE PROLOG TABLE ENTRY 



FT040770 
FT04078G 
FT 040 79 6 
FT040800 



1AGQ13 


CODEC 
TRA 


TRAI»N 
_SKEND 


CODE IS... TRA* »* 
EXIT 


FT040810 
FT040820 
FT040830 
FT040840 
FT040850 
FT040860 
FT 040870 
FT040880 
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REM 
REM 






IAG0T7 


CLS 
TPL 


POOL.l 
1AG0T6 

BPATH 


LABEL FOUND IN STACK 

SKIP IF LABEL HAD MINUS SIGN 

TURN ON BPATH IN EQUIV WORD 






REM 
SIL 




1AG0T9 


STi 
STO 


EQUIV, 4 
POOL, 1 

# p+3 

1AG0T6 


RESTORE EQUIV WORD 

SET SIGN OF LABEL ENTRY MINUS 


FT040890 
FT040900 
FT 0409 10 
FT040920 
FT040930 
FT040940 






STL 
TRA 


THESE 2 INST. USED FOR 1ST LABEL IN STACK 




IAG0F3 


REM 
STL 


.P+3 


OLD ASSIGN STACK. TURN ON STACK FLAG 






PAX 
TXI 


a 

IAGG12,1,2 


PUT STACK POINTER IN INDEX 

BUMP STACK POSITION TO FIRST LABEL ENTRY 


FT040950 
FT040960 




1AG014 


REM 
CAL 


SYMTAB»4 


ILLEGAL FLAG. GET BCD NAME OF SYMBOL 


FT040970 
FT040980 






SLW 
SLW 


FORM28+2 
F0RM69 


PUT NAME INTO ERROR MESSAGE 


FT040990 
FT041000 






LFT 

ERROR 

XfT"~" 

ERROR 


BARRY 
28,*+l 
BEXTF+BINTF 
69,*+l 

1AG011 


MAY NOT BE ARRAY 


FT041010 
FT041020 
FT041030 
FT041040 
FT041050 






MAY NOT BE SUBPROGRAM NAME 






TRA 







PDP4 



TTL PASS 1 PROCESSOR - 

00 STAT EMENT PROCESSO R 

REM 
.ENTRY. • .__ PDG __ 

PRODUCES D0_ CODING AS FOLLOWS, .^ 

REM 

FOR DO N _I = M1,M2,M3_ W E GET 
i. LXD M3,4 
SXD _.2,4 _ 
~M2»4 







3. 
4. 
5. 
6. 



V FLAG 
S FLAG 



LXD 
SXD 



*+4,4 



STZ 
LXD 



I 
Ml, 4 



V FLAG 
P FL/UL 

V FLAG 

V FLAG 



FT041060 
Fi041070 
FT041080 
FT04109G 
FTOiliOO 
FT041110 
FT041120 
FT041130 
FT04114G 
FT041150 
FT041166 
FT041170 
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7. 

8. 



TRA *+2 + FLAG 
TXH .3,4,** OR M2 



S FLAG 



FT041180 
FT041190 
FT041200 
FT041210 



9. 



10. 



SXD 1,4 



LXD 1,4 



V FLAG 



V FLAG 



FT041220 
FT041230 
FT041240 
FT041250 



11. .2 TXI .1,4,** OR M3 
13. .3 BSS 



P FLAG 



REM 

IF M3=C0NSTANT OR IS OMITTED, OM IT 1 AND 2 AND CHANGE 11 TO 

TXI 



.1,4,M3 

IF M2=C0NSTANT OMIT 3 AND 4 AND COMPILE 8 _AS_TXH 
IF Ml=CONSfANT CHANGE 6 TO AXT Ml, 4 
REM 



3,4,M2 



FT041260 
F T041 270 
FT04i280 
f T041290 
FT 041300 
FT041310 
FT041320 
FT041330 



FORMAT OF THE DOSTACK IS ... 

WORD 3 POINTER TO TERMINAL LABEL 

WORD 2 PZE POINTER FOR INDEX, T, POINTER FOR .2 PS. CELL OR CONS 

WORD 1 PZE PCOUNT FOR .1,, POINTER FOR .3 SP. CELL 



FT041340 
FT041350 
FT041360 
TFT041370 
FT041380 
FT041390 



WHERE T 
AND T= 



=0 DENOTES M3=CGNSTANT 

1 DENOTES M3 NOT ^ CONSTANT 



FT041400 
FT041410 



SPACE 

CTI 

*t I V- 

REM 
REM 
LXA 
TXI 
TXH 
SXA 
AXC 

jsx 

STZ 



ci Aft ac a nn en tuat n« ucvt ctaxcmcmt 

i t_r-»v* r%+* #•» ww ju limi i*f% imt^j\ ■ j I H I ui it.il I 



XCL 

TSX 

SLW 

TMI 

LFT 

ERROR 

REM 

TSX 

TSX 

REM 

LFT 

ERROR 



D0PNTR,1 

*+l»l,3 

PD01,1,LD0STK 

DOPNTR,l 

2 9 2 

SCNBCD,4 

PD03 

DOST AK+ 1,1 

LOCATE, 4 

DOSTAK,l 

PD04 

BLHSX+MSTRG 

73,PD02 

SCNBCD,4 
SYMSTA,4 

BARGT 
59,PD02 



CHECK CAN BE MADE THAT A NON-EXECUTABLE 
STATEMENT DOES NOT FOLLOE A DO. 



DO STACK OVERFLOW 



ERROR SINCE LABEL NOT FOUND 

CLEAR OUT 2ND W ORD QF DO ST ACK EN TRY 

IS LABEL ALREADY IN SYMTAB AS DEFINED 

SAVE LABEL IN DO-STACK 

NO 

IT'S NOT A NEW LABEL IN" FACT . 

IT IS ALREADY DEFINED. POP UP DO STACK 



LABEL NOT ENCOUNTERED YET. 
GET INDEX OF LOOP 



DO NOT ENTER I 



ENTER INDEX IN SYMTAB ,IF NECESSARY. IF 
IT JS AN INTEGER VARIABLE. FLAG AS DEFINED 
IS INDEX AN ARGUMENT 
YES. NOT ALLOWED 



FT041420 

CTrtA i /. in 

FT 041 440 
FT041450 
FT041460 
FT041470 
FT041480 
FT041490 
FT041500 
FT041510 
Ffd41520 
FT041530 

FT041540 
FT041550 
FT041560 
FT041570 
FT041580 
FT041590 
TFT041600 
FT041610 
FT041620 
FT041630 
FT041646 
FT041650 



STA 

* 


DOSTAK+ltl 


SAVE POINTER FOR INDEX FT041660 

FT041670 




* 
* 


IS INDEX OF 
THIS DO IS 
AND IGNORE 


fHIS DO USED FOR INDEX IN ANY DO WITHIN WHICHFT04168G 
NESTED. IF SO, NOT ALLLWED. EXIT TO PD02 FT04169Q 




# 

SXA 


THIO DO* FT 04 1700 

FT041710 




AXT 
TXI 


*+l t 4,-3 


FT04172G 
FT041730 




TXL 
LAS 


*+5t4,0 
DOSTAK+1,4 


FT041740 
FT04175G 




TXI 
ERROR 


*-2 f 4»-3 
86 f PD02 


FT 041760 
FT041770 




TXI 
* 


*— 4t 4f -3 


FT041780 
FT041790 




SKIP 
ERROR 


EQCHAR 
60.PD02 


SKIP OVER = SIGN FT041800 
SOMETHING OTHER THAN = ENCOUNTERED FT04181G 
GET Ml FT041820 
M1=A CONSTANT FT041830 




TMI 


SCNBCD.4 
PD09 




TSX 

REM 


SYMSTB»4 


CHECK FOR INTEGER VARIABLE AND ENTER IN FT041840 
SYMTAB IF NOT ALREADY IN. DO NOT DEFINE FT041850 




RIR 
RIL 


700000 
7 


KILL THE ARGUMENT BITS SO THAT THE FT041860 
WORD M1VAR LOOKS LIKE AN ASTACK WORD FTC41870 




STI 
STA 


M1VAR 
M1VAR 
M1FLAG 
CMCHAR 
2 f PD02 

SCNBCD»4 

PD08 

SYHSfBf'4 

700000 

7 

M2VAR 


TO THE CODE ROUTINE FT041880 
SAVE POINTER TO Ml FT041890 




STL 

SKIP 


FLAG Ml AS A VARIABLE FT041900 
SKIP OVER COMMA FT041910 




ERROR 

REM 


NOT A COMMA FT041920 
NOW GO GET M2 FT041930 




""PUU9A ' "Tsx " 
TMI 


"~~ " ' FT041940 
M2= A CONSTANT FT041950 




TSX 

RIR 


STORE M2 IN SYMtAB FT041960 
KILL ARGUMENT BITS FT041970 




RIL 
STI 


FT041980 
SAVE M2 EQUIVALENT FT041990 




STA 
STL 


M2VAR 
M2FLAG 


Ft042000 
FLAG M2 AS A VARIABLE FTG42GIG 




SKIP 
TRA 


CMCHAR 
PD015 


SKIP OVER POSSIBLE COMMA FT042020 
NOT A COMMA. MUST BE OCTAL 77. F 1042030 




REM 
P008A TSX 


SCNBCD.4 


F TO 42 040 
GET M3 FT042050 




TMI 
TSX 


PD07 

SYttST&»4 

700000 

7 

M3VAR 

M3VAR 


M3= A CONSTANT P 1042060 
l«B « va*HAB€L ■ CTO42Q-70 




RIR 
RIL 


RESET THE ARGUMENT BITS FT042080 

FT042090 




STI 
STA 


SAVE THE M3 EQUIVALENT FT042100 

FT042110 




CODE 
TSX 


LXD4,M3VAR 

NEXTLP.4 

18 

DOSTAK+1,1 

18 

SXD4 

CITBLD,4,R 

PD06 

BCDFIX f 4 

=0100000 

DOSTAK+1,1 

DOSfAK+1,1 

PD06 


FT042120 
GET A CELL FMRO THE POOL FT042130 




ALS 
STO 


FT042140 
SAVE ITS LOCATION IN THE DOSTACK FT042150 

FT042160 
FT042170 




ARS 

ORA 




TSX 

TRA 

REM 

PU07 TSX 

pdo7a"""ora 

STO 


FT042180 
FT042190 
FT042200 

CONVERT M3 TO OCTAL FT042210 

FT042220 
FT042230 




' " '"" STT 

TRA 


FT042240 
FT042250 
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PDO! 



REM 
STZ 
TSX 
SLW 



M2FLAG 



BCDFIX,4 
M2VAR 



FLAG M2 AS A CONSTANT 

CONVERT 8C0 CONSTANT TO OCTAL 

SAVE ______ 



TRA 
REM 



PDG8A-2 



PD09 



STZ 

TSX 



ARS 
SLW 
TRA 
REM 



PD06 



SKIP 

ERROR 



M1FLAG 

BCDFIX,4 

18 

H1VAR 

PD09A-2~ 

63 
3.P002 



Ml ^CONSTANT 



REM 
NZT 



TRA 
CODE 



M2FJLAG 

PDOIO 
L XD4, M2VAR 



CAL 
ACL 



SXD44 

PCOUNT 



PDOIO 



poom; i 


PDOllA i 


PD011B 


- - 





* 
P0G15 



PC03 
PDOl 



TSX 

R J M _ _ 
CAL 

ANA 

ORA 

TSX 

HIT 

TRA 

CODE 

CAL 

TSX 
TRA 

ORA 
TSX 
TRA 
REH 
CAL 
STA 
TSX 

___.„ 

ARS 
"NZT 
QRA 
ORA 
ORS 
TSX 
CAL 
ANA 
ORA 
TSX 
TRA 

CAL 
TRA 

REM 

ERROR 

ERROR 



CITBLDY4,P 



DOSTAK+1.1 

=077777 

STZ 

CITBLD,4,V 

M1FLAG 

PD011A 

LXD4,M1VAR 

TRA2 

PCOUNT 

CIT8LD,4,P 

PDQ11B 

HIV_AR_ _ 

AXT4 

CITBLD,4,N 



PD011C 

PCOUNT 
OOSTAK+2,1 
NEXT LP ,4 

00SfAK+2Vl 

18 

M2FLAG 

M2VAR 

TXH4 

XRFLAG 

CiTBLD,4,R 

DOSTAK+1,1 

=077777 

S XD4 

CITBLb»4,V 

SKEND 

= 1B17 
PD07A 

61 f PD02 
62.PD02 



MUST BE END OF STATEMENT 



IS M2 A VARIABLE. 

NO 

YES. TURN OUT INSTRUCTIONS 3 AND 4 



IS Ml A CONSTANT 

YES. PUT OUT AXT INSTEAD 



FT042260 
FT042270 
FT042280 
FT042290 
FT042300 
FT042310 
FT64_320 
FT042330 
FT042340 
JT042350 
FT042360 
FT042370 
FT042380 
FT042390 
FT042406 
FT042410 
FT042426 
FT042430 
FT642440 
FT042450 
FT042460 
FT042470 
FT042486 
FT042490 
FT0425Q0 
FT042510 
FT042520 
FT 04,25 30 
FT 042 5 40 
FT042550 
FT042560 
FT042570 
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Ml A CONSTANT. TURN OUT THE AXT 



FT042580 
FT042590 



FT042600 
FT042610 



DEFINE LOCATION .1 



IS M2 A VARIABLE 

NO. OR IN THE CONSTANT DECREMENT 



M3 = 1 

IN CASE OF ERRORS 



FT042620 

r i \J~tc uju 

FT042640 

FJ042650 

FT042660 

FJ042670 

FT042680 

FT042690 

FT 042700 

FT042710 

FT042720 

FT042730_ 

FT042740 

FT042750 

FT042760 

FT042770 

FT 042780 

FT042790 

FT042800 

FT042810 

FT04282G 

FT042830 

F f 042840 

FT042850 



- 8UH > D0 - sfACK "BACK DOWN" " T™?ol™ PAGE * 21 

f^rtfti.xo / FT042870 _ _ 

WO! _LX» 50EMTB.J FT042880" 

VI moItITI FT042890 

SXA D0PNTRj4 cTni5<jriri 

_. _ SKEND" IGNORE THIS DO FT04290O 





EJECT 


FT042910 
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* 


DO TERMINATION ROUTINE 


FT 042920 
FT042930 






REN 




* 


DO TERMINATION ROUTINE. TURNS OUT THE LXD 2*4 AND TXI .1,4,** 


0RFT042940 
FT042950 




* 


M3 FOR DQ LOOP, THEN LOOKS IN DOSTACK TO SEE IF ANY OTHER DO'S 




* 


TERMINATE ON THIS SAME LABEL STATEMENT. IF SO THESE DO LOOPS 
ARE ALSO HANDLED IN THE SAME WAY. 


FT042960 
FT042970 




* 






REM 


FT042980 
FT042990 




# 


SPECIAL CONSTANT CELLS .2 AND .3 ARE DEFINED HERE. 






SPACE 3 


FT043000 
FT043010 




DQTERM 


SXA D0TRMX.4 






SXA DOTRMX+1,1 


FT043020 






LXA D0PNTR,1 


FT043030 




OOTRM1 


CAL DOSTAK+1,1 


FT043040 
FT043050 






PAX ,4 GET THE EQUIV POINTER 






LDI EQUIV, 4 AND GET THE EQUIV WORD 


FT043060 






RIL 8DOIX TURN OFF THE DO INDEX FLAG BIT 


FT043070 






STI EQUIV, 4 AND RESET THE EQUIV WORD 


FT043080 






REM 


FT043090 






ANA =077777 


FT043100 
FT043110 






ORA LXD4 TURN OUT THE LXD 1,4 






TSX CITBLD,4,V 


FT043120 
FT043130 






LDI DOSTAK+1,1 






RFT 100000 


FT043140 






TRA D0TRM2 INCREMENT IS A CONSTANT 


FT043150 






REM 


FT043160 
FT043170 






REM NOW DEFINE SPECIAL CONSTANT .2 






REM 


FT043180 






CAL DOSTAK+1,1 


FT043190 






POX ,4 


FT043200 






CAL PCOUNT 


FT043210 






SLW EQUIV, 4 


FT043220 






REM 


FT043230 






CAL DOSTAK+2,1 


FT043240 
FT043250 






ANA =077777 




DUfRM4 


ORA TXI4 TURN OUT THE TXI .1,4,** 


FT043260 
FT043270 






TSX CITBLD,4,P 






CAL D0STAK+2ti 


FT0432S0 






PDX ,4 


FT043290 






CAL PCOUNT 


FT043300 
FT 043 310 






SLW EQUIV, 4 






TXi *+JUl*-3 


FTO43320 






SXA D0PNTR,1 


FT043330 






TXL DOTRMX, 1,0 IS DO STACK EMPTY 


FT04334G 






CAL DOSTAK-3,1 NO 


FT043350 






ERA D0STAK,1 


FT043360 
FT643370 






TZE D0TRM1 NEXT DO ALSO TERMINATES HERE 




DOTRMX 


AXT **,4 


FT043380 






AXT **,1 


FT043390 






TRA 1,4 


FT043400 






REM 


FT043410 






REM CODING TO TURN OUT TXI .1,4, M2 


FT043420 






REM 


FT043430 




DLHRM2 


CAL DOSTAK+1,1 


FT043440 






ANA =077777000000 


FT043450 






SLW D0TRM3 


FT043460 






CAL DOSTAK+2,1 


FT043470 






ANA =077777 


FT043480 






ORA D0TRM3 


FT043490 






TRA D0TRM4 


FT043500 





TTL 

IF. <X) 
REM 
ENTRY. 



PASS 
N1,N2,N3 



1 PROCESSOR - IF 



1IFXXX 



THE »IF» STATEMENT PROCESSOR TRANSFERS INITIALLY TO THE 
COMPIL RO UTIN E TO _GEN£RATE^ THE^ CODE FOR EVALUATING THE 
PARENTHETICAL ALGEBRAIC OR LOGICAL EXPRESSION, ON RETURN" 
FROM CQHPIL, EACH LABEL IS PLACED IN THE SYMBOL TABLE AFTER 



IT IS TESTED AGAINST THE CURRENT CARD LABEL. NONE OF THE 
JLABELS Nl, N2, N3 J4AY EQUAL THE CURR EN T CARD LABEL. __ 
THE PATH-OF-FLOU FLAG •BPATH* IS TURNED ON FOR EACH LABEL. 
THE GENE R ATIO N OF THE CODE IS DELAYED UNTIL THE LABEL ON THE 



NEXT EXECUTABLE STATEMENT IS OBTAINED. THEN THE ROUTINE 

1TRIFF I S ENTERED, AN D THE NECESSARY CODE PUT OUT . 

3 



1 IF XXX 



M*ALfc 

AXC 
TSX 
REM 



2,2 



CMPLIF,4 



RESET POINT ER TO P ARE N 
PROCESS ARITHMETIC STATEMENT 
WITH POINTER AT Nl. 



RETURN 



Axr 

SXA 
AXT 
REM 



1IFXX2 



TSX 
TPL 



1TRIFF,4 
TRAFL G,4 
3,1 

SCNBCJD,4 
ERROR1 



FT04351Q 
FT043520 
FT043530 
FT043540 
FT043550 
FT043560 
FT043570 
FT043580 
FT043590 
FT043600 
FT043610 
FT04362O 
Ff043630 
FTG43640 
FT043656 
FT043660 
FT043670 
FT043680 



SET ENTRY FOR LABEL ROUTINE 



SET LOOPING INDEX 



GET 

NOT 



N(I) 

A LABEL 



REM 
TSX 



FT043690 
_FT0437G0 
FT 043 7 10 
FJ043720 
FT043730 
FT043740 



SLW 
LAS 
TRA 
ERROR 



REM 
TNX 
REM 
SKIP 



ST0LBL,4 
.STT+4,1 
CARD 

*+2 "'" 

6f *+l 

1IFXX1»1,1 

CMCHAR 



PUT NCI) IN SYMTAB. MINUS SIGN. 



SAVE POINTER 
COMPARE WITH 



IN SOME 
CURRENT 



AVAILABLE 
LABEL 



CELLS 



IMPROPER TRANSFER 



ALL DONE 



CHECK FOR COMMA 



ERROR 
TRA 



2,SKEND 
1IFXX2 



NO COMMA 



REM 
1IFXX1 SKIP 

ERROR 
T RA 

SPACE 
* ROUTINE 



63 



EHD 



CTATCMCWT 



3,SK£ND 
SKEND 

8 "'"' '" 
TO GENERATE 



IS ENTERED FROM THE 
EXECUTABLE STATEMENT 



QUIT FOR NOW 
CODE FOR THE IF STATEMENT. THIS SECTION 



PASS 1 DRIVER AFTER THE LABEL ON THE NEXT 
HAS BEEN OBTAINED. 



II RIFF 



REM 

°J1 L I NECESSARY CODE 

SPACE 3 

SXA 1TRIFX.4 



IS PRODUCED, 



SAVE XR4 



CAL 
ERA 
TNZ 
CAL 



.STT+1 
.STT+3 
1TRIF1 
.STT+2 



FT043750 
FT04376G 
FT043770 
FX043780 
FT 04 3 7 90 
FT043800 
FT043810 
FT043820 
FT043830 
FT043840 
FT043850 
FT043860 
FT043870 
r i u*»>qou 
FT043890 
FT0439Q0 
FT043910 
FI043l92Q 
FT043930 
FT043940 
FT043950 
FT043960 
FT043970 
FT043980 



GET MINUS LABEL 
COMPARE WITH PLUS LABEL 



FT04399G 
FT044000 



ERA 
TNZ 
CAL 
TRA 

"REM 
1TRIF2 CODECO 

c^l 

ERA 



CARD 
1TRIF2 
TNZ 
1TRIF5+1 



NOT EQUAL 

SAME. GET ZERO LABEL 

IS If SAME AS CURRENT STATEMENT LABEL. 

NO 

YES' " ' " " " """" 



TZE, . STT+2, R 

.STT+1 

CARD 



CODE IS... TZE N2 _ 

GET MINUS LABEL 

IS IT SAME AS CURRENT CARD LABEL. 



FT044010 
FT044020 
FT 644030 
FT044040 
FT044050 
FT044060 
FT044070 
FJ044080 
FT044090 
FT044100 
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TZE 

REM 



1TRIFX 



YES. EXIT 



1TRIF5 CODECO TRA,.STT+1,R CODE IS. 
REM 



TRA Nl 



** t 4 
1*4 



1TRIFX AXT 

TRA 

REM 
1IRIF1 CODECO _TZ£,.STT+2,R CGDE_IS... TZEN2 
.STT+3 



CAL 

ERA 

Fnz 

CAL 



TRA 

REM 



CARD 
1TRIF3 
TMI 
1TRIF5+1 



get plus label 

not same Has current label 

SAME. CODE IS... TMI Nl 



1TRIF3 CAL 

ORA 

TRA 



TPL 

.STT+3 

1TRIF2+2 



CODE IS... TPL N3 



FT044110 
FTG4412G 



FT044130 
FT044140 



FT044150 
FT04416Q 
FT04417Q 
FT044180 
FT044190 
FT044200 
FT044210 
FT044220 
FT044230 
FT044240 
FT044250 
FT044260 
FT044270 
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♦ 


TTL P A S S 1 PROCESSOR - IF D 
IF DIVIDE CHECK Ml, N2 


I V I D E C H E C KFTG44280 

FT04429G 


ft 


REH 

ENTRY... IIFDIV 


FTO443O0 
FT04431G 


» 
* 


NEITHER Nl NOR N2 MAY EQUAL THE CURRENT CARD 
THE INITIAL CODE GENERATED IS »DCT' AND "TRA 


LABEL. FT044320 
Nl". THE CODE FT044330 


* 
* 


•TRA N2« IS DELAYED AND IS GENERATED ONLY IF 
STATEMENT IS NOT LABELED N2. 


THE NEXT EXECUTABLE FT044340 

FT044350 


IIFDIV 


SPACE 3 
AXC 13,2 


FT044360 
FT044370 




STZ .P ZERO FLAG 
TRA 1IFAC1 


FT044380 
FT044390 
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TTLPASS 1 PROCESSO 

IF QU OTIENT OV ERFL OW Nl, _N2 

REM 

ENTRY... 1IFQUO 



R - IF 



U T. OVER 



FLO WFTO444O0 
FT044410 



PROCESSING FOR THIS STATEMENT IS IDENTICAL TO THAT FOR THE 
•IF ACCUMULATOR OVERFLOW STATEMENT. 



SPACE 3 
liFQUO AXC 18,2 
fRA *+2 



RESET POINTER 



FT044420 
FT0444 30 
FT044440 
FT044450 
FT044460 
FT044470 
FT044480 
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TTL PASS 1 
IF ACCUMULATOR 



P R C 
OVERFLOW 



E S 
Ml, 



S 

N2 



R - I F A C t U M. OVFLOW 



FT04449O 
FT044500 



PAGE 128 



REM 
ENTRY, 



NEITHER 
IF Nl = 



_ II^ACC ^ __ 

Nl NOR N2 MAY EQUAL THE CURRENT CARD LABEL* 
N2, THE CODE » STZ OVFLOW IS GENERATED, WHERE 



OVFLOW 



FT044510 
FT04452G 
FT044530 
FT044540 



IS CELL 77462 
•CAL OVFLOW 1 . 



OCTAL, IF Nl 
•STZ OVFLOW , 



IS NOT EQUAL TO N2, THE CODE 
•TNZ Nl» IS GENERATED. THE 



FT044550 
FT044560 



GENERATION OF THE 
IT IS ASCERTAINED 



FINAL INSTRUCTION • TRA N2« IS DELAYED UNTIL 
THAT THE NEXT EXECUTABLE STATEMENT IS NOT 



FT044570 
FT044580 



LABELED 
SPACE 



N2. 
3 



FT044590 
FT044600 



1IFACC 



AXC 

ST1 



21,2 

_P 



RESET POINTER 
NON-ZERO FLAG 



1IFAC1 



REM 
AXT 
SXA 

REM 



1TRANS,4 
TRAFLG.4 



SET ENTRY FOR LABEL ROUTINE 



FT044610 
FT04 4620 
FT044630 
FT044640 
FT04465G 
FT044660 



TSX 


SCN8CD,4 


GET Nl 


FT044670 




TPL 


ERROR1 


NOT A LABEL 


FT044680 




REM 






FT044690 




TSX 


ST0LBL,4 


PUT Nl IN SYMTAB. MINUS SIGN. 


FT044700 




LAS 


CARD 


COMPARE WITH CURRENT LABEL 


FT044710 




TRA 


*+2 




FT044720 
FT044730 




ERROR 


6»*+l 


IMPROPER TRANSFER 




REM 


.P+l 




FT044740 
FT044750 




SLW 


SAVE Nl POINTER 




SKIP 


CMCHAR 


COMMA EXPECTED ___„ 


FT044760 
FT044770 




ERROR 


2,SKEND 




REM 


SCNBCD.4 




FT044780 




TSX 


GET N2 


FT044790 




TPL 


ERROR1 
.P+3 


NOT A LABEL 


FT044800 




SLH 


SAVE BCD N2 


FT044810 




REM 






FT044820 




TSX 


ST0LBL,4 


PUT N2 IN ST. MINUS SIGN 


FT044830 




LAS 


CARD 


COMPARE WITH CURRENT LABEL 


FT044840 




TRA 


*+2 




FT044850 




ERROR 


6,* + l 


IMPROPER TRANSFER 


h 1 U^S6U 




REM 






FT044870 




SLH 


1TRAN2 


SAVE N2 POINTER 


FT044880 
FT044890 




REM 








SKIP 


63 

3,SKEND 


END OF STATEMENT EXPECTED 


F T0449&Q 
FT044910 




ERROR 






NOCODE 




TEST CODE FLAG 


FT044920 




REM 






FT044930 




CAL 


• P 


TEST FLAG 


FT044940 




TNZ 


1IFAC2 




FT044950 




CODEC 


DCT,N 


FOR DIVIDE. CODE IS... DCT 


FT044960 




COOECO 


TRA, .P+1,R 


TRA Nl 


FT044970 




TRA 


SKEND 




FT044980 




REM 






FT044990 




1IFAC2 CAL 


• P + l 
1TRAN2 


OVERFLOW. GET Nl 


FT045000 
FT 0450 10 




ERA 


TEST Nl = N2. 




TNZ 


1IFAC4 
STZOVF,D 


NO 


FT045020 
FT045030 




CODEC 


YES. CODE IS... STZ OVERFLOW. CELL 




TRA 


SKEND 




FT045040 




REM 






FT045050 




11FAC4 CODEC 


CALOVF.D 
SfZOVF,D 


CODE IS... CAL OVERFLOW. CELL 


FT045060 
FT 0450 70 




CODEC 


STZ OVERFLOW. CELL 




CODECO 


TNZ,.P+1,R 


TNZ Nl 


FT045080 
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SPACE 2 FT045100 



TTL P A S 
IP (SENSE 
REM 

ENTRY.,, 1IFSWT 
THE" NUMBER 
INCLU SIVE, 
THAT NEITH 
ARE PUT IN 
TURNED 
N2 1 . 



S 1 PROCESSOR 
SWITCH I) N1,N2 



- IF SENSE S W I T C 



I irCHECKEOlQ ASSURE THAT IT IS BETWEEN 1 AND 6 
THE LABELS Ml AND N2 ARE TESTED TO DETERMIN E 



IS 

«TRA 

IS DELAYED 

IS FOUND, 



ER IS EQUAL TO THE CURRENT CARD LABEL. Nl AND N2 
THE SYMBOL FABLE AND T HE PATH-QF-FLQW FLAG '8PATH' 

ON. THE CODE »SW? I« IS GENERATED, FOLLOWED BY 
THE GEN ERATION OF THE FINAL INSTRUCTION ' TRA N l' 
UNTIL THE LABEL ON THE NEXT EXECUTABLE STATEMENT 
IF THIS LABEL IS THE SAM E AS Nl, NO CO DE IS 



GENERATED 
SPACE 3 



iiFSWI 



AXC 
STZ 



16 
,P 



t2 



RESET POINTER AT 
ZERO FLAG 



HFT045110 
FT04512Q 
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FT04513O 
FT04514Q 
FTQ45150 
FT045160 
Ff045l7d 
_FT045180 
FT045190 
FT045200 
FT045210 
FT045220 



TRA 



*+3 



FT045230 
FT045240 
F TO 45250 
FT045260 
FT04527G 





TTL PASS 1 PROCESSOR - IF SENSE LIGHT 


FT045280 
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* 


IF i SENSE LIGHT I) N1.N2 


FT045290 






REM 


FT045300 




* 


ENTRY... IIFSLT 


FT045310 
FT045320 




a 


THE NUMBER I MUST BE FROM 1 TO 4 INCLUSIVE* THE FIRST CODE 




* 


GENERATED IS «SLT I». THE OTHER DETAILS ARE THE SAME AS GIVEN 


FT045330 




* 


IN THE SENSE SyiTCH DESCRIPTION ABOVE. 


FT045340 






SPACE 3 


FT045350 
FT045360 




IIFSLT 


AXC 15,2 RESET POINTER 






STL .P NON-ZERO FLAG 


FT045370 
FT045380 






REM 






AXT 1TRANS,4 SET ENTRY FOR LABEL ROUTINE 


FT045390 






SXA TRAFLG,4 


FT045400 






REM 


FT045410 






CAL COLUMN-1,2 CHECK FOR CLOSING PARENTHESIS 


FT045420 






ERA =H) 


FT045430 
FT045440 






ARS 30 






TNZ ERR0R7 NO PARENTHESIS 


FT045450 
FT045460 






REM 






CAL COLUMN-2,2 GET DIGIT 


FT045470 






ARS 30 


FT045480 






TNZ *+2 ZERO NOT ALLOWED 


FT045490 




1IF5L2 


ERROR 5 ? 1IFSL1 


FT045500 






REM 


FT04551G 
FT045520 






LDQ =6 FOR SWITCH 






ZET .P TEST FLAG 


FT045530 
FT045540 






LDQ =4 FOR LIGHT 






TLQ 1IFSL2 IMPROPER DIGIT 


FT045550 






SLW .P+l SAVE DIGIT 


FT045560 






REM 


FT045570 
FT045580 




UFSL1 


TSX SCNBCD,4 GET Nl 






TPL ERR0R1 NOT A LABEL 


FT045590 






SLW .P+2 SAVE BCD Nl 


FT045600 






REM 


FT04561G 
FT045620 






TSX ST0LBL.4 PUT Nl IN SYMTAB. MINUS SIGN 






LAS CARD COMPARE WITH CURRENT LABEL 


FT045630 
FT045640 






TRA *+2 






ERROR 6»*+i IMPROPER iRANShER 


FT045650 






REM 


FT045660 






SLW 1TRAN2 SAVE POINTER FOR Nl 


FT045670 
FTO 45680 






SKIP CMCHAR TEST FOR COMMA 






€«ROR 2fSK€l40 


FT&45&90 

FT045700 






REM 






TSX SCNBCD»4 GET N2 


FT045710 






TPL ERR0R1 NOT A LABEL 


FT045720 






REM 


FT045730 
FT045740 






TSX STGL8L,4 PUT N2 IN ST. MINUS SIGN 






LAS CARD COMPARE N2 WITH CURRENT LABEL 


FT045750 






TRA *+2 


FT045760 






ERROR 6,*+l IMPROPER TRANSFER 


FT045770 






REM 


FT045780 






SLW .P+5 SAVE N2 POINTER 


FT045790 
FT045800 






REM 






SKIP 63 END OF STATEMENT EXPECTED 


FT045810 






ERROR 3,SKEND 


FT045820 






NOCODE TEST CODE FLAG 


FT045830 
FT045840 






REM 






CAL SLT FOR LIGHT. CODE IS... SLT I 


FT045850 






NZT .P TEST FLAG 


FT045860 






CAL SWT FOR SWITCH. CODE IS... SWT I 


FT045870 
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REM FIM.5890 



COOECO TRA,.P+5,R CODE IS,,. TRA H2 FT045900 

TRA SKEND . _ FT045910 



7> R C E~ S S OR- SENSE LIGHT 



iSENSl^AXC 
SKIP 
ERROR 



TTL PASS 

SEN_SE LIGHT I 

REM 

ENTRY^.^ „1SENSE .._ _.._ ^^^^^_ 

The "number i must be from o to 4 inclusive* the code 

IS •SJ.FX*. 

SPACE 3 

11,2 SET POINTER AT END O F STATEM ENT _ 

63 



REM 
CAL 



SfSKEND 
CQLUMN-2,2 



ONLY ONE DIGIT ALLOWED 
CHECK SIZE OF DIGIT 



ARS 

i nn 



30 
=4 



TLQ 

REM 



ERRORS 



GREATER THAN 4, OR NOT A DIGIT 



CODEO 
TRA 



SLF*N 
SKEND 



CODE IS 



SLN I 



FT045920 
FT045930 
FT045940 
FJ045950 
FT045960 
J^T0_45970 
FT045980 
FT045990 
FT046000 
FT046G10 
FT 046020 
FT046Q3G 
F t 046040 
FT046050 
FT046060 
FT046070 
FT046080 
FT046090 
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* 



PASS 



I PROCESSOR 



STOP 



TTL 

STOP I _ .._ — — — — 

REM 

ENTRY... 1STQPX _ _ .„,.___ - __™..~~ — 

•jh| NUMBER I ""MUST BE ABSENT (I.E. ZERO) OR BE AH OCTAL 

NUMBER FROM TO 77 777. T HE NUMBER IS PUT IN THE CONST ANT 

TABDe"AS~AN OCTAL "ADDRESS INTEGER. THE CODE «CAL CONSTANT* 

AND «LDQ CONSTANT* IS GENERATED, PLACjM_JM_Q^I^k_ NUMBER IN 



THE~AODRESS FIELDS OF BOTH THE AC AND THE MO. 
»HTR »' IS PUT OUT 
SPACE 



1STOPX AXC 



4,2 



RESET POINTER FO R 'STOP 



STL 
REM 



.P 



NON-ZERO FLAG 



AXT 

SXA 



1TRANS+1,4 
TRAFLG,4 



SITTXIT FOR SUBSEQUENT LABEL ROUTINE 



TRA 



*+3 



FT04610G 
FT046U0 
Fr046120 
FT046130 
FT 046 140 
FT046150 
"FT 046 160 
FT046170 
Tt 0461 80 
FT046190 
FT046200 
FT046210 



FT046220 
FT046230 



FT046240 
FT046250 
FT046260 
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fr 


TTL PASS 1 
PAUSE I 


PROCESSOR - PAUSE 


FT046270 
FT046280 


♦ 


REM 

ENTRY... 1PAUSE 




FT046290 
FT046300 


# 

* 


THE TREATMENT IS THE 
THAT THE FINAL CODE 


: SAME AS FOR THE STOP STATEMENT, EXCEPT 
IS 'HTR *+l<. THE HPR OPERATION CANNOT BE 


FT046310 
FT046320 


* 


USED BECAUSE OF POSS 
DATA CHANNEL TRAP. 
SPACE 3 
AXC 5,2 


IBLE COMPLICATIONS WITH THE 


FT046330 
FT 046 340 


1PAUSE 


RESET POINTER FOR 'PAUSE* 


FT046350 
FT046360 




STZ .P 

REM 


ZERO FLAG 


FT 046370 
FT046380 




SKIP 63 
TRA 1PAUS3 


TEST IF OCTAL NUMBER PRESENT 
NUMBFR PRESENT 


FT046390 
FT046400 




CODEC LGR74 f N 
TRA 1PAUS4 


NUMBER NOT PRESENT. CODE IS... LGR 74 


FT046410 
FT046420 


1PAUS3 


REM 
ZAC 




FT046430 
FT046440 




LDQ COLUMN, 2 
AXT 6,2 


GET NUMBER. TEST FOR OCTAL 
SET FOR SIX BITES 


FT046450 
FT046460 




LGL 3 
TRA *+3 




FT046470 
FT046480 


1PAUS2 


REM 

ARS 3 

LGL 6 

PAI 

RFT 7 

TRA *+3 

TIX 1PAUS2,2,1 

ERROR 13,SKEND 

REM 

LGL 3 

PAI 

RNT 77 


DROP "BCD' PART OF NUMBER 
SHIFT IN NEXT BCD DIGIT 


FTQ46490 
FT046500 
FT046510 
FT046520 


— 


TEST HIGH-ORDER THREE BITS 

ALL BITS NOT OFF _ 

'""""RETURN ~~~ 

NUMBER TOO LONG 


FT046530 
FT046540 
FT046550 
FT046560 






FT046570 
FT046580 




TEST FOR END OF STATEMENT 


FT046590 
FT046600 




ERROR 4,SKEND 
ARS 6 


NOT AN OCTAL NUMBER 
JUSTIFY OCTAL NUMBER 


FT 0466 10 
FT046620 




NOCODE 
REM 




FT046630 
FT046640 


IPAUS1 


TSX ASCQNl,4 
SLW .P+l 


PUT OCTAL NUMBER IN CONSTANT TABLE 


FT046650 
FT046660 


1PAUS4 


CODEO CAL,C 

€00eco xm+^+uc 

REM 

CAL PCOUNT 
NZT ,P 
ADD =1 


CODE IS... CAL OCTAL 

LOQ OCTAL ■_ ; 

GET PCOUNT 

IS IT 'STOP 1 . 

NO. CODE IS... HTR *+l 

YES. CODE IS... HTR * 


FTQ46670 
FT046&&Q 
FT046690 
FT046700 
FT046710 
FTQ46720 




TSX CITBLD,4,P 
TRA SKEND 


FT046730 
FT046740 
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PFMT 



PFHT1 



TTL 

FORMAT ( 
REM 



PASS 



PROCESSOR 



FORMAT 



SPACE 

CAL 

5TA 

A XT 

PAX 

TXI 



TEMPORARY FORMAT STATEMENT PROCESSOR. 

FORM AT ST RI NG FOR V At I D I TY 

3 



DOES NOT CHECK 



NXTLOC 
EQUIV.4 
-1*1 
»4 

*+r,4,i 



FT046750 
FT04676Q 
FT046770 
FT046780 
FT046790 

FT046800 

5gy-l p ool "POIN TER INTO ADDRESS OF EQUiCALENTFT6468i6 

FT046820 

FT046830 

FT046840 
FT046850 
FT046360 
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DROP ANY LEADING WORDS OF BLANKS AND WORD FORMAT 



FT046870 
FT046880 



AXT 

_kPQ 

ZAC 
LGL 



6,2 
CARD,1 



ERA 
TZE 



TIX 

jxx 

ORA 
TNX 



LGL 

JRA 

SLW 

REM 

"rxT 

CAL 



=H0OOOO< 
*+3 

'•-4", 2,1 
•-7,1,-1 
=H ~t 
*+3,2,l 
6 

*-2 
POOL, 4 



FIRST NON-BLANK WORD FOUND. 
POOL 



LAS 
TXI 



*+it i't-i 

CARD,1 

=0767676767676 

PFMfl,4 f l 



TRA 
TXI 

PXA 
REM 



*+2 
PFMT1,4,1 



FT046890 

FT046900 

FTQ46910 

FT046920 

FT046930 

___FT046940_ 

FT046950 
FT04 6960 
FT046970 
FT046980 
FT046990 

^fJ047000 

STASH "WORD"" IN ~FT 047010 

__ FT047020 

FT047030 
FT047040 
FT 047050 

FT047060 

FT047076 
FT047080 



END OF FORMAT STRING. 
INTO POOL 



SUB 
LXA 



NXTLOC 
NXTLOC, 1 



SET NO. WORD IN STRIFT047090 

FT047100 

FT047110 
FT047120 



STA 
TXI 
SXA 
TRA 



P0CL,1 

*+l,4,l 

NXTL0C,4 

SKENO 



RESET POOL POINT ER f NEXT AVAIL. LOG. 

IN POOL _ 



FT047130 
FT047140 
FT047150 
FT047160 



* 


TTL P A S S 1 P 
BACKSPACE I 


ROCESSOR - BACKSPACE 


FT04717G 
FT047180 
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* 


REM 

ENTRY... IBSRXX 




FT047190 
FT047200 




* 

* 


SEE THE WRITE OUTPUT 
TREATMENT OF THE LOGI 
ENTRY. THE INITIALIZ 
THE APPROPRIATE »CAL 


TAPE STATEMENT DESCRIPTION FOR THE 

CAL TAPE NUMBER I AND THE TRANSFER VECTOR 


FT047210 
FT047220 




* 
• 


ATION ROUTINE NAME IS CBST3. 

« CODE IS GENERATED, FOLLOWED BY 


FT047230 
FT047240 
FT047250 
FT047260 
F f 04 7270 
FT047280 
FT047290 
FT04730C 
FT047310 
FT047320 




* 


A «TSX (BST),4« INSTRUCTION. 
SPACE 3 




IBSRXX 


AXT (BST),4 
AXC 9,2 


GET SUBROUTINE ENTRY 
RESET POINTER 

SAVE ENTRY 




IBSRXl 


REM 

SXA 1RIT99,4 






STL .P+3 
TRA 1RITX2 


FLAG3 NON-ZERO FOR NQN-DATA~TRANSMIT 
PROCESSING CONTINUED IN RIT SECTION 





TTL PASS 

REWIND I 



1 PROCESSOR ~ REWIND 



REM 
ENTRY... 



1REWXX 



SPACE 
1REWXX AXT 



THE TREATMENT IS THE SAME AS FOR BACKSPACE, EXCEPT THAT THE 
EXTERNAL ROUTINE CALLED BY THE TSX OPER ATION IS (RWT). 

3 

tRWT) f 4 ENTRY FOR REWIND 



AXC 
TRA 



6,2 
1BSRX1 



FT04733O 
FT047340 



FT047350 
FT047360 
FT04737G 
FT047380 



FT047390 
FT047400 
FT 04 74 10 
FT047420 
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PR OCESSOR - END FILE 



TTL PASS 

END FILE I _ _ — 

REM 

JjiTRY.^, 1E°!: X ^ _ - 

'jjlf fREATMENf IS THE SAME AS FOR BACKSPACE » EXCEPT THAT THE 

EXTERNAL_ROUTINE CALLED B Y THE TSX O PERA TION I S (EFT), 

SPACE 3 



1EOFXX AXT 
AXC 
TRA 



I EFT) ,4 

7,2 

1BSRX1 



ENTRY FOR END OF FILE! 



FT04743Q 
FT047440 
FT047450 
FT047460 
FT047470 
FT047480 



FT047490 
FT047500 
FT047310 
FT04752G 
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TH- 
READ 



P 
FMT, 



ASS 
LIST 



1 p R C E S S R - READ 



REH 

ENTRY. .„. 1READX _ .. 
THE TREATMENT OF THE 
AND THE INPUT LIST IS 



STATEMENT. THE 
THE T ERMINATION 
3 



IN IT I 
CODE 



TRANSFER VECTOR ENTRY t THE FORMAT NAMEt 

THE SAME AS JgR THE READ IN PUT__T^PJ 

ALTZaTiON CODE IS *TSX (CSH),4». 

IS «TSX (RTNWVN 



1READX 



SPACE 

AXT 
AXT 

A TL _ 
AXC 

REM 



JCSH)»4 

TrtnTVi 

.P+6 



INITIALIZATION ENTRY FOR READ 



"TERMINATION ENTRY FOR INPUT 
FLAG6 NON-ZERO_FOR_INPUL 



4,2 



iREADl 



JLtL 
stz 

REM 



lRITll+ltl 

• P+3 

• P+4 



SET TERMINATION ROUTINE NAME 

P L AG3 I S ZE RO FOR DATA -TRANSgIL 

~FLAG4 IS ZERO FOR BCD 



SXA 

PZE 
TRA 



#+2,4 
0UT PTV,4 
*« 
1RITX7 



SET TRANSFER VECTOR NAME 



CODE IS... TSX (XXX) ,4 

PROCESSING CONTINUED IN RIT SECTION 



FT047530 
FT047540 
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FT047550 
FT047560 
FT047570 
JFJ04758C 
FT047590 
FT047600 



FT047610 
FT047620 
Ft 0476 30 
FT047640 



FT047650 

FT047660 

FT047670 

FT047680 

FT047690 

FTO477O0_ 

FT047710 

FT047720 



FT047730 
FT047740 



* 


TTL PASS 1 PROCESSOR - PRINT 
PRINT FMT. LIST 


FT047750 
FT047760 


» 


REM 

ENTRY... IPRINT 


FTG47770 
FT047780 


* 

-a ■ 


THE TREATMENT IS THE SAME AS FOR THE READ STATEMENT, EXCEPT 
THAT THE INITIALIZATION ROUTINE NAME IS (SPH), AND THE LIST IS 


FT047790 
FT047800 


* 


AN OUTPUT LIST. 
SPACE 3 


FT047810 
FT04782G 


IPRINT 


AXT «SPH),4 INITIALIZATION ENTRY FOR PRINT 
AXT (FIL),1 TERMINATION ENTRY FOR OUTPUT 


FT047830 
FT047840 




STZ .P+6 FLAG6 IS ZERO FOR OUTPUT 
AXC 5,2 


FT047850 
FT047860 




TRA 1READ1 


FT047870 
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TTL PASS 
PUNCH FMT, LIST 



1 PROCESSOR - PUNCH 



1PUNCH 



REH 
ENTRY 

ll^l : RtATMEi?rTsr^^ THE READ STATEMENT, EXCEPT 

THAT THE INITIALIZATION ROUTIN E NAME IS ( S CH), AND THE LIST IS 



AN OUTPUT LIST, 
SPACE 3 



iPUNCH AXT 
TRA 



{SCH),4 
1PRINT+1 



INITIALIZATION FOR PUNCH 



FT047S8G 
FT04789Q 
FT04790G 
FT04791G 
FT047920 
FT047930 
FT047940 
FT047950 
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FT047960 
FT047970 



TTL PASS 1 
*i_ READ TAPE I, L I ST 



P R CESS OR - READ TAPE 



REM 
ENTRY. 



1ROTPX 



THE TREATMENT IS THE SANE AS FOR THE READ INPUT TAPE STATEMENT, 
EXCEPT THAT THERE IS NO FORMAT STATEMENT NAME, AND THE 



1RDTPX AXT 

AXT 

STL 
AXC 



EXTERNAL SUBROUTINE NAMES ARE (TSB) FOR INITIALIZATION AND 

(RLR) FOR TERMINATION. 

REM 

3 

"it SB It 4" 



SPACE 



CRLR),1 

.P+6 

8,2 



INITIALIZATION FOR READ TAPE 
TERMINAT ION POINT FOR READ TAPE 
FLAG6 NON-ZERO FOR INPUT 



REM 
IROTPi SXA 



1RIT99,4 



SXA 1RIT1L*1,1 
STZ .P + 3 



STL 
TRA 



.P+4 
1RITX2 



SAVE TRANSFER VECTOR ENTRIES 

FLAG3 IS ZERO FOR DAT A-TRANS MIT 

FLAG4 IS~ NON-ZERO FOR BINARY 
PROCESSING CON TINUED IN RIT SE CTION 



FT047980 
FT047990 



FT048000 
FT048010 
FT048020 
FT048030 



FT048040 
FT04805C 
FT048Q60 
FT048070 
FT048080 
FT048090 
FT048100 
_FT048JL10 
FT048120 
FT048130 
FT048140 
FT048150 



FT048160 
FT048170 
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TTL PASS I PROCESSOR - WRIT T~~TT~P~T~ "crnAo,^ 

* WRITE TAPE I, LIST P E FT048180 

REM -*-±k*l _ £1048190 

-* - _ _ ENTRY... ltfRTPX FT 048200 

THE TREATMENT IS THE : SW^sH^T PrnJIIil 

* EXCEPT THAT THfftf: TC kin crmwjix frirru^.t f uu,rui » AKt ^ » A * tMfcNTf FT048220 

-- -F^i^!lL._i».'L«^infc_Rfc IS NO FORMAT STATEMENT NAME. AND THF r T «, Q „ rt 

" "SPACE - 3 FI_048250_ 

.iMRTPXMT (STB),* IfiiIULIZ»TION_FO R WRITE TAPE VxotlTlO 

AXT (WLR).i TERMINATION FOR HRTtTTaPE "fT04B280 

HI ~ P -±- 6 ~ F!^<LJS_ZERg_FOR.OUI£yi FToJSIS 

TRA 1RDTPI FT048300 

FT048310 
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TTL PASS 1 PROCESSOR - 

WRITE O UTPU T TAPE I, FHT ? __LIST 

REM 

ENTRY... 1WOTXX ___ 



WRITE OUTPUT 



IF I IS A NUMBERt IT IS CONVERTED TO A BINARY DECREMENT INTEGER 
AND IS PUT IN THE CONSTANT TABLE. THE CODE 'CAL INTEGER ' 



* IS GENERATED 

* IF_ I _IS_ A_FIXED PJ3INJ VARIABLE NAM E, IT IS PUT_IN_J^g 

* SYMBOL TABLE. 



IF THE SYMBOL IS NOT A PARAMETER (SUBPROGRAM 
ARGU MENT), THE COD E ' CAL VARIABLE' IS GENER ATED. IF I IS A 
PARAMETER (I.E BARGTIS ON), THE PROLOG ROUTINE IS ENTERED. 
ON RETURN, THE CODE 'CAL *»' IS PUT OUT,. 



REM 

THE NAMES OF THE EXTERNAL S UBROUTIN E S FOR INITIALIZATION, ( STH), 

AND TERMINATION, (FID, ARE PUT IN THE TRANSFER VECTOR LIST. 

THE INITIALIZATION COD E ' TSX (STH),4« IS ^NERATED. 

REM 

IF FMT IS A STATE MENT LAB EL, IT IS PUT IN THE SYMBOL TABLE. 



PFT048320 

JTQ.48330 
FT048340 
FTQ48350 
FT048360 

_FT04837G 
FT04838Q 
FT048390 
FT048400 
FT 0484 10 
FT648420 

_ FT048430 
FT 04 8440 
FT048450 
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IT MUST NOT ALREADY BE IN THE TABLE UNLESS IT IS FLAGGED AS 
A STRING (I.E. THE MSTR G BITS ARE ON). FOR A NEW SYM BOL 



TABLE ENTRY, THE MSTRG BITS ARE TURNED ON. 

I S TURNED OUT. ____„_ . 

IF FMT IS A "VARIABLE NAME, IT IS PUT IN THE SYMBOL TABLE. 
THE NAME MUST ALREADY BE IN THE TABLE FL AGGED AS AN A RR AY 
(BARRY IS ON). IF FMT IS NOT A SUBROUTINE PARAMETER, THE 
CODE 'PZE VARIABLE' IS PUT OUT. IF FMT IS A PARA METER , THE 

TlWL06'WUTINE"lS"TNfEReD« ON REfURN, THE CODE 'PZE **' 
IS PUT OUT^ „ 

"REM' 

THE PROCESSOR N EXT TR ANSFER S TO THE OUTPUT LIST PROCES SOR 
TO GENERATE THE OUTPUT CODE. ON RETURN, THE TERMINATION 
CODE 'TSX (FID, 4' IS PUT OUT. 



FT048460 
FTG48470 
FT048480 
FTG48490 
FT048566 
FT048510 



THE CODE 'PZE STRING' FT048520 

FT048530 



SPACE 

J. WOT XX _AXT__ 
AXT 
STZ^ 
AXC 
TRA 



(STH), 4 



INITIALIZATION ENTRY FOR BCD WRITE 



FT048540 
FT048550 
FT048560 
FTO48570 
FT048580 
FT048590 
FT048600 
FT048610 
FT048620 
FT04863Q 
FT048640 
FT048650 



(FID,1 
.P+6 



TERMINATION FOR BCD WRITE 
FLAG6 IS ZERO FOR OUTPUT 



FT048660 
FT048670 



15,2 
iKllXl 



FT048680 

FTftAOiOA 



TTLPASS 1 PROCESS 
READ INPUT TAPE I, FMT, LIST 



OR - READ INPUT TAP 



1RITXX 



REM 

ENTRY. ... _ ___„ _ __ . 

THE TREATMENT IS THE SAHE AS FOR THE WRITE OUTPUT TAPE 
STATEMENT, EXCEPT THAT THE LIST IS AN INPUT LIS T A ND THE 



EXTERNAL TERMINATION ROUTINE NAME IS (RTN). 
SPACE 3 



EFT048700 
FT048710 
FT048720 
FT04873Q 
FT 048 740 
FT0487 5Q 
FT048760 
FT048770 
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1AITXX 



AXT 
AXT 



STL 
AXC 



usm, 4 

(RTN),1 
• P+6 
13,2 



INITIALIZATION ENTRY FOR BCD READ TAPE 
TERMINATION POINT FOR BCD T APE READ 
FLAG6 NON-ZERO FOR INPUT 



REM 
1RITX1 SXA 



1RIT99,4 



SAVE ENTRIES 



FT048780 
FJ048790 
FT648800 
FT048810 
FT048820 
FT048830 



* 
1RITX2 



SXA 

STZ 

SJl 

REM 

ENTER 

T SX 

TPL 

REM 



1RIT11+1,1 
.P+3 _ 
.P*V~ 



FLAG3 IS ZERO FOR DATA-TRANSMIT 



FT048840 
FT048850 



FLAG4 IS ZERO FOR BCD 



HERE FROM BINARY AND NON-DATA-TRANSMITTING STATEMENTS. 
SCNBCD,4 GET TAPE NUMBER 



1RITX3 



VARIABLE TAPE NAME 



FT048860 
FT048870 
FT048880 
FT048890 
FT048900 
FT048910 



TSX 
TSX _ 
CODEO 
REM 



BCDFIX,4 
ASCCnn t 4 
CAL » C 



CONVERT TAPE NUMBER TO FIXED POINT BINARY 

PUT IN CONSTANT TABLE ___ 

CODE IS . . . CAL TAPE . NUMBER 



1RIT12 
1RIT91 



TSX 

PZE 

REM"" 

NZT 

TRA 

SKIP 



0UTPTV,4 

♦ * 

.P+3 

1RITX4 
63 



PUT NAME IN TRANSFER VECTOR 
CODE IS... TSX {XXX), 4 



TEST FLAG 3 

CONTINUE 

TEST EOS FOR END FILE, BACKSP, AND REWIND 



FT048920 
FT048930 
F f 048940 
f T048950 
FT048960 
FT048970 
FT048980 
FT04899J) 
FT049660 
FT049010 



1RITX4 



ERROR 
TRA 
REM 
ZET 



TRA 
SKIP 



3,SKEND 
SKEND 

.P+4 

1RITX5 

CMCHAR 



TEST FLAG4 



FT049020 
FT049030 
FT049040 
FT049050 



BINARY... SKIP FORMAT FETCH 
BCD. TEST FOR COMMA 



nm-x-7- 



ERROR 

REM 

ENfER" 

TSX 



2, SKEND 
lT_¥E^Rl3ir^EADr PRI NT, AND >WCH S TAT 1EMENTS7 



TPL 
REM 
XCL 
TSX 



S^N#€*0|4 
IR if 10 



LOCATE, 4 



G€T -F0R4M-T ST^T^MENT LA&E4. 
VARIABLE FORMAT 



ARGUMENT TO MQ 

FIND POSITION IN SYMTAB 



1HITX6 



SLW 


.P+7 


TPL 


1RITX6 


REM 




PAX 


,4 


SIL 


MSTRG 


STI 


EQUIV,4 


TRA 


*+4 


REM 




IIL 


MSTRG 


LFT 


700000 


ERROR 


24.1RITX5 


REM 




CODEC 


.P+7,F 


REM 





SAVE POINTER 

FOR OLD SYMTAB ENTRY 



TURN ON STRING MODE BITS 
RESTORE EQUIVALENT 



TEST FOR STRING MODE BITS ON 
STRING MODE BITS NOT ON. 
CODE IS... PZE TORHKT~~ 



FT049060 
FT049070 
Ft649080 
FT049090 
FT049100 

TT049T20 
FT049130 
FT049140 
FT049150 
"FT049166" 
FT049170 
FT049180 
FT049190 
FT049200 
FT049210 
FT049226 
FT049230 
FT049240 
FT049250 
F f 049260 
FT049270 
FT049280 
FT049290 



._ 


REM 




FT049300 


PAGE 


1KITX5 


SKIP 


CMCHAR TEST FOR COMMA 


FT049310 






TRA 


1RIT13 NO COMMA 


FT049320 






REH 




FT049330 
FT04934G 






AXT 


P00L-ISTKFG,4 RESET ISTACK ROUTING ADDRESS 






SXA 


ISTKFG,4 FOR USE BY THE LIST PROCESSOR 


FT049350 






STZ 


REGIST RESET REGISTER INDICATION 


FT049360 






TSX 


IOLIST,4 GO TO LIST PROCESSOR 


FT04937G 
FT049380 






TRA 


1RIT17 ON RETURN, SKIP END OF STATEMENT TEST 






REH 




FT049390 




1RIT13 


SKIP 


63 MUST BE END OF STATEMENT 


FT049400 






ERROR 


3»SK£ND 


FT049410 
F f 049420 






REM 






1 R I T 1 7 


M2T 
TRA 


*+3 IS THERE A TERMINATION ENTRY. 
SKEND NO. 


FT049430 






FT049440 






REH 




FT049450 
FT049460 




IRITli 


TSX 


0UTPTV,4 PUT NAME IN TRANSFER VECTOR 






PZE 


#» CODE IS... TSX (XXX),4 


FT049470 
FT049480 






TRA 


SKEND 






REM 




FT049490 
FT049500 




* 








* 


PROCESSING FOR VARIABLE TAPE NUMBER 


FT049510 




1RITX3 


LAS 


=HI0OQ00 TEST FOR FIXED POINT 


FT049520 






TRA 
LAS 


» + l 


FT049530 
FT049540 






=HOOOOOO 






TRA 


*+l 


FT049550 
FT049560 






ERROR 


12,1RITX4 NOT FIXED POINT 






REM 




FT049570 

FT049580 






SLW 


F0RM69 






TSX 
REH 


SYMST0.4 PUT IN SYMTAB 


FT049590 








FT049600 






LFT 
ERROR 


BEXTF+BINTF 


FT049610 






69,*+l MAY NOT BE SUBPORGRAM NAME 


FT049620 






REM 




FT049630 
F f 049640 






LNT 


BARGT IS IT SUBROUTINE ARGUMENT. 






TRA 

REM 


1RITX9 NO. REGULAR VARIABLE 


FT049650 






FT049660 






TSX 


PROLOG, 4 YES. FIX UP PROLOGUE 


FT049670 






CODEC 


CAL,N CODE IS... CAL *« 


FT049680 






TRA 


1RIT12 


FT049690 
FT049700 










1RITX9 


C00EO 


CALrV COOB IS.*. €AL TA4»€.^yMB€R 


FTO4<mO 






TRA 


1RIT12 


FT049720 






REH 


— - — — - - - — - — — - - - - - - - - 


FT049730 

FT04974C 




* 






* 


PROCESSING FOR VARIABLE FORMAT STATEMENT SPECIFICATION 


FT049750 
FT049760 




iRITIO 


XCL 








TSX 


LOCATE, 4 FIND SPOT FOR VARIABLE FORMAT IN SYMTAB 
BARRY IS IT DIMENSIONED. 


FT049770 

FT04978G 






LNT 






ERROR 


14,1RIT16 NO. PUT OUT MESSAGE AND RETURN 


FT049790 






REM 




FT049800 






PAX 
SlL 


,4 


FT049810 
FT 04 98 20 






BVARB MARK AS VARIABLE IN EXECUTABLE STATEMENT 






STI 


EQUIV,4 RESTORE EQUIV WORD 


FT049830 






REM 




FT049840 




IRIflo 


LNT 


BARGT IS IT SUBROUTINE ARGUMENT. 


FT049850 
FT04986G 






TRA 


1RIT15 






REM 
TSX 




FT049870 
FT649880 






PROLOG, 4 YES. FIX UP PROLOGUE 






CODEC 


PZE,N CODE IS... PZE ** 


FT049890 





REM lRITX5 FT049900 PAGE 148 

lRlTiS TSX cYtBL0;4 f "v~ CODE Ts7:. Tz^FORMAT ^049920 

— RA --^-U*L__ _ FT049930 



TTL 
***** NOTE 



p A S S 1 P R~0 CESSGR - MRITE DRUM 
***** READ AND WRITE DRUM ARE DEA CTIVATED IN THIS 



* VERSION OF FASTRAN 

REM _ . . 

REQRG1 EQU • 
SPACE 3 



POINT OR REORIGIN TO DEACTIVATE DRUM 



WRITE DRUM It J, LIST 

REH - 

ENTRY... lWDRMX 

THE DRUM NU MBER I AND THE DRUM LOCATION J MUST EACH BE A 

FIXED POINT CONSTANT OR A FIXED POINT VARIABLE. 

THE CODE «CAL I», »TSX_ CSDR) t4 , _ t _ , CAL_J , _j_AND_JJ = 0A!__IS 



TURNED OUT. THE TREATMENT OF I AND J AND THE TRANSFER 
VECTOR ENTRY IS SIMILAR TO THAT DIS CUSSED IN T HE WRITE 



OUTPUT TAPE STATEMENT DESCRIPTION. 

THE DRUM LIST PROCESSOR IS ENTERED TO G ENERATE THE ..OUTPUT 



lWDRMX AXC 
TRA 



CODE SEQUENCES. 
SPACE 3 

(SDR), 4 



GET ENTRY TO WRIT E DRUM ROUTINE 



FT049940 
FTQ49950 
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FT049960 
FT049970 



FT049980 
FT049990 



FT050000 
FT050010 
FT05O02O 
FJ050G3G 
FT050046 
Fr050050 
FT050060 
FTD50070 



1RDRM1 



FT050080 
FT050090 
FT050100 
FT05011G 
FT050120 
FT050130 
FT050140 



TTL PASS 1 PROCESSOR 

J! READ DRUM I , J, L IST 

REM 
* ENTRY... 1RDRMX 



READ DRUM 



THE PROCEDURE IS SIMILAR TO WRITE 1)RUM, EXCEFT7iWTHE~ 

E XTERNAL S UBROUTI NE NAME IS (DRST, AND THE LIST IS TREATED 



1RDRMX AXC 

___ __JUT 

REM 

IRDRH1 SXA 

TSX 

JPL_ 

n r- u 

r\izn 
TSX 



AS AN INPUT LIST. 

SPACE 3 

8,2 
<DRS),4 



1RDRM4»4 



SCNBCD,4 
1RDRM2 



SAVE TRANSFER VECTOR ENTRY 



GET DRUM NUMBER I 
VARIABLE 



FT050150 
FT050160 
FT050170 
FT050130 
FT05di96 
FT05O200 
FT 0502 10 
FT050220 
FT050230 
FJ05024G 
Ffd50250 
_FT050260 
FT05O27O 
FT05G280 



BCDFIX,4 



TSX 

CODEO 



CONSTANT 



ASC0N1,4 
CALt C 



REM 
1RDRMS SKIP 



CMCHAR 



ERROR 
REM 



PUT IN CONSTANT TABLE 
CODE IS... CAL I 

CHECK FOR COMMA 



TSX 

1RDRM4 PZE 



2, SKEND 

0IJTPTV,4 
** 



REM 
TSX 
TPl 
REM 
TSX 
TSX 



PUT ENTRY IN TRANSFER VECTOR 
CODE IS. .. TSX (XXX), 4 



SCNBCD,4 



1RDRM2 
____ 

ASCQN1,4 



GET DRUM LOCATION J 



CODEO 


CAL.C 


CODEC 


LDA.N 


REM 




SKIP1 


CMCHAR 


TRA 


IODRM 


REM 




1RDRM6 SKIP 


63 


ERROR 


3.SKFN 



VARIABLE 

CONSTANT 

PUT IN CONSTANT TABLE 



CODE IS... CAL J 
CODE IS... LDA 



CHECK FOR POSSIBLE COMMA 
TO DRUM LIST PROCESSOR 

"ENCTOF STATEMENT REQUIRED 



FT050290 
FT050300 
F 1050310 
FT050320 
FTO 50330 
_FT050340 
FT050350 
FT050360 
FT050370 
FT050380 
FT050390 
FT050400 
FT05041G 
FJ050420 
FT050430 
FT050440 
FT050450 
FT050460 
FT050470 
FT050480 
FTG50490 
FT050500 



SKEND 



1R0RM2 LAS 
TRA 

— LA JL 

Tra "~ 

ERROR 



TRA 
REM 
REM 
PR OCESSING OF VARIABLE DRUM NUMB ER AND VARIABLE DRUM ADDRESS 

=HI0O0OO TEST FOR FIXED POINT 




fHOOOOOO 

12, SKEND 

SYMST0,4 
BARGT 

iRQRM3 

PROLOG, 4 



NOT FIXED POINT 



CODEC 
TRA 
REM 
1RDRM3_ CODEO 
"'"" TRA 
SPACE 



CAL,N 
._1R0RM5_ 

CAUV 

1RDRM5 

3 



OKAY. PUT IN SYMTAB 

TEST FOR SUBROUTINE ARGUMENT 

NO J A N A RGU M E N T _ 

SUBROUTINE ARGUMENT. F IX UP^ PROLOG. 

CODE IS. .". CAL ** 

CODE IS... CAL X 



FT050510 

r i \j?\j->£V 

FT050530 

FT050540 

FT 05 05 50 

F T 050560 

FT050570 

FT050580 

FT050590 

FT050600 

FTO 506 10 

F L050620 

FT050630 

F T05 0640 

FT050650 

FT050660 

FTO'5'0670 

FT050680 

FT050690 

FTQ5 070 

FT050710 

FT050720 

FT050730 

FT050740 
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10DRM TRA SKEND ***»* TEMPORARY DRUM LIST PROCESSOR *#*** FTQ50750 PAGE 151 

SPACE 3 FT050760 



ORG REORG1 TO DELETE DRUM CODE FROM THIS VERSION FT050770 



* 
# 
* 

* 



TTL P A S S 1 - I 7~~Q Tl S T 
COMMEN TARY O N I/O LIST PROCESSOR- 



PROCESSOR 



L I 



FT050780 

JJ050790 

FT050800 

s T THE COLUM N POI NTER IS POSITIONED AT THAT FT050810 

FT 6 50820 
FTQ50830 
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SPACE 2 

ON EN TR Y TQ I __„__ _____ - 

CHARACTER IN THE I/O STATEMENT FOLLOWING" THE COMMA AFT : _R~THE 
FO RMAT S TATEMENT N UMBER(B CD) OR AFTER THE TAPE NUMBER (BINARY). 



REM 
■IHg-J/p 1..L1ST PRO CESSOR I S BROKEN INTO TWO PARTS. 



FT050840 
THE FIRST PART FT050850 



(BEGINNING AT I L S T 1) BUILDS ASTACKANDPSTA C "K - " 

Mg-lJlg_SECOND PART (I L S TL) PROCESSES THESE TWO LISTS AND 

GENERATES THE OBJECT CODE." ~ — -— - _____ _,„ 

SPACE 2 



I/O LIST PROCESSOR "- PART 1- ""'" 

I/O LI ST ITEMS, LEFT AND RIGHT PARENTHESES CAUSE A S T A C K 

ASTACK ENTRIES FOR LIST ITEMS ARE 

A LEFT PAREN, 



FTG50860 
FT050870 
Ff050880 
FT050890 



ENTRIES TO BE GENERATED. 

HANDLED LIKE ITE M S IN AN ARITHMETIC STATEMENT. 



IN AN IOLIST WILL CAUSE THE FOLLOWING ASTACK ENTRY TO BE 
GENERATED, 



MTH (PAREN. LEVEL ),,0 ' 
-IF-JLNQgXING IS INV OLVED I N AN I/O LIST THEN THE ASTACK ENTRY 



FOR THE LEFT PAREN. WHICH BEGINS THE RANGE OF THE INDEXlsT 

^ . HTH ( PAREN. LEVEL) , y ( PSTACK PTR. FOR INDEX ) 

A RIGHT PARENTHESIS THAT DOES NOT FOLLOW INDEXING — — - 
SPEC I FICA TIONS IN AN I /O L I ST DO ES NOT CAUSE G ENERATION OF 
AN ASTACK ENTRY. RIGHT PARENS. FOLLOWING INDEXING SPECST" 
CAUSE THE FOLLOWING AS TAC K ENTRY TO BE GENERATED, 



FT050900 
F TO 509 10 
Ft 050920' 
FT050930 
FT050940 
FT050950 
F TO 5 0960 
FT050970 



FT050980 
FT050990 
FT051000 
_FT051010 
FT05I020 

„__ FT051030 

MTW (PSTACK INDEX PTR.),,0 "~ F TO 5 1040 

IMMfA IN P S T A C K ARE MADE O NLY WHEN INDEXING IS INVOL VEDFT051050 

(I.E. I * 11,12,13). WHENEVER INDEXING IS £NCOUNTERED"TTvE™ 

PSTACK W ORDS ARE GENERATED AS FOLLOWS, 



FT051060 
FT051070 
FT051080 
FT051090 
Ff 051 100 

___. FT051110 

INDEX INCREMENT (13) ~ FT031 .120 

_DUR I NG EXECUTION O F PART 1, LOCATIONS (CURPTR-1), (CURPTR- 2), FT051130 

AND (CURPTR-3) CONTAIN THE A S T A C K POINTERS FOR PAREN. W05Tl40 

LEVELS 1 • ?» ANil ^. PiSPWTMPQIC WCCTTiUC rAMMnT oc rociTcn 



MTH (ASTACK PTR. FOR THIS PAREN. LEVEL ),,0 

INDEXING VARIABLE (I) 

INITIAL INDEX VALUE (II) 
FINAL INDEX VALUE (12) 



LOCATION I "0" L V L CONTAINS THE CURRENT PAREN. "LEVEL. 



THAN 3. 

SPACE 2 

I/O LIST PROCESSOR - PART 2- 

THE SECOND PART OF THE I/O LIST PR OCESSOR SIMPLY USES THE 



ASTACK AND PSTACK ENTRIES GENERATED BY PART 1 AND 
OUTPU T T HE OBJECT CODE ON C I T USING THE CODE AND CODEN 



ROUTINES. ITEMS IN INPUT LISTS ARE FLAGGED Ts BEIIkTdEFTnED 
JL_iy.RNING ON B L H S X IN E Q U I V. THE (SLO) OR (SLI) 



SEQUENCES ARE GENERATED FOR NON-SUBSCRI TED ARRAY ifEMST 

SPACE 2 

CONSIDER THE FOLLOWING EXAMPLE, 
REM 



FT051160 

FT051170 

FT051180" 

FTB51X90 

FT051200 

FT051210 

FT051220 

FTG51230 

FT051240 

FT051250 



DIMENSION A(100),B(10,100) 



.„. ^JAD INPUT TAPE 5 , 100, C, ( D) , ( ( B( I , J ) , 1 = 1, 10) , A( J ) , J=J1, 100, 3 ) 

SPACE 2 — 

THE f__^__l__ A S T A C K ENTRIES WOULD BE GENERATED BY 



FT051260 
FT051270 
FT051280 
FT051290 
FT051300 
FT051310 
FT051320 
FT051330 
FT051340 
FT051350 
F TO 5 1360 
FT051370 



PART 1, 



ENTRY 



REMARKS 



REH 



C 
MTH 



It 



D 
MTH 



It. 6 



NORMAL ASTACK ENTRY 
E NTRY FOR LEFT PAREN 
NORMAL ASTACK ENTRY 
ADDR. - LEVEL 1 



FT051380 
_FT051390 

FT05i400 
11051410 

FT05142G 

FT051430 
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MTH 2»tl 
ja.CItJ) 

MTW lttO 



* 
* 

# 
* 

* 
* 



A{ J) 

MTH 6,,0 



SPACE 



'tHE"TOLLOiiTNG P STAC K ENTRIES WOULD BE GENERATED 8Y 

THE TWO INDEXING PARAMETERS I AND J, 

ENTRY" REMARKS 



REM 



* 
* 
» 

* 
« 
# 

♦ 

ft 



* 

* 
* 

» 

* 
* 

* 

* 
* 

» 

* 

* 



MTH 2»»5 

I 

1 

10 

1 

MTH ltt4 



FT051440 

FT051450 

DECR. = PSTACK PTR. FQRFT05146G 
TjjIS_L £VEL (SEE 8EL0W) FT051470 
LEVEL,,PSTACK POINTER FT051480 
NORMAL ASTACK ENJRY _ FT 05 1490 
ADDR. = PSTACK POINTER FT05150G 

GE NERATED B Y RIGHT FT051510 

PAREN. FOLLOWING INDEX FT051520 

ON I. _ FT051530 

NORMAL ASTACK ENTRY FT051540 
ADD R. = PSTACK PO INTER FJ05 155 0... 
GENERATED BY RIGHT FT051560 
PA REN. FOLLOW ING INDEX FT051570 
QU J. FTG51580 

FT05JL590 
FT051600 
FT051610 
F TO 5 1620 

.—---- FT051630 

FTQ5164G 
ADDR. = PAREN. LEVEL FT051650 
DECR. = ASTACK POINTER FT051660 

FT051670 
FT051680 
FT051690 
FT051700 
LEVEL FT051710^ 



FIRST INDEX VAR. 
INITIAL VALUE 
FINAL VALUE 



INCREMENT 
ADDR. = PAREN. 



Jl 



DECR. = ASTACK POINTER FT051720 
SECOND INDEX VAR. FT051730 
INITIAL VALUE. THIS FT05174G 
AN ASTACK-TYPE ENTRY. FT0pi75Q 



100 
3 



FINAL VALUE 
INCREMENT 



SPACE 2 

THf OBJECT CO0E G€N£"R*T€D BY THIS REAO STAT€MEMT 4rfOULD a£» 

REM 



CAL 


=05000000 


TSX 


$(TSH),4 


PZE 


(LOC. FORMAT 


STR 




STQ 


C 


STR 




STQ 


D 


LXD 


Jl,4 


SXD 


Jt4 


AXT 


lt4 


SXD 


It4 


LDQ 


= 10 


MPY 


J 


LDQ 


= 1 



100) 



TAPE NUMBER 

TAPE TO STORAGE HOLLERITH 



INPUT C 

"IN PUT~D "" ^~'"~ 

INITIALIZE INDEX ON J 

INITIALIZE INDEX ON I 
INDEX CALCS. FOR BU,J) 



FT051760 
FX051770 
F TO 5 1780 
FT05X79Q 
FT051S00 
FT051810 
FT051820 
FT051830 
FT051840 
FT051850 
FT051860 
FT051870 
FT05188G 
FT051890 
FT051900 
FT05191G 
FT051920 
FT05193C 
F TO 5 1940 
FT051950 
FT05i960 
FT051970 



* 
* 


STO 

mpy 


WORK1 
I 


FT051980 
FTQ51990 


* 

• 


ADD 
ALS 

"sto 

STR 


WORK1 

17 

yQRKl 


FT05200G 
FT052010 


* 
* 


FT052020 
FT052030 


* 


LXD 
STQ 


WORK1, 4 
B+11,4 
1,4 
*+l,4»l 


FT052040 
INPUT B<I»J) FT052050 


* 
* 


LXD 
TXI 


TERMINATION TEST FOR INDEX IFT052060 

FT052070 


* 

* 


TXL 
STR 


Y»4,10 


FT052080 
FT052090 


* 
* 


LXD 
STQ 


J»4 
A+1,4 


GET INDEX FOR A FT05210O 
INPUT A(J) FT052110 


* 


LXD 
TXI 


Jt4 
*+l f 4, 3 


TERMINATION TEST FOR INDEX JFT052120 

FT05213O 




TXL 

rsx 


X*4,100 
${RTN)»4 

* 

• 


FT052140 
RESTORE TO NORMAL FT052150 


* 

ft 


FT052160 
FT05217Q 
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FT052180 





EJECT 






FT052190 
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IOLIST 


SXA 


EXI0LS,4 


SAVE XR4 FOR RETURN 


FT052200 






STZ 


D8LMOD 


NEEDED FOR 'SCAN* TO WORK OKAY 


FT052210 






STZ 


PSTACK 


INITIALIZE FIRST PSTACK ENTRY 


FT052220 






STZ 


PPTR 


PSTACK POINTER 


FT052230 






STZ 


ASTACK 


FIRST ASTACK ENTRY 
PAREN LEVEL INDICATOR 


FT052240 
FT052250 


_. 




STZ 


IOLVL 






STZ 


NQDOAR 
0,1 


INITIALIZE NO. DO PARAMS TO ZERO 
XR1 IS RUNNING ASTACK POINTER 


FT052260 
FT052270 


._ ... -— ... 




AXT 






TSX 


SKIP, 4, EOS 


IS NEXT END-OF-STATEMENT CHARACTER 


FT052280 






TRA 


*+2 


NO, SKIP NEXT INSTR. 


FT052290 






TRA 


EXIQLS 


YES, EXIT NO LIST 


FT052300 
FT052310 




IOLST1 


TSX 


SKIP,4,LPCHAR 


IS NEXT CHARACTER i 






TRA 


I0LST2 


NO, GO TO I0LST2 


FT052320 






LXA 


IOLVL, 4 


GET CURRENT PAREN LEVEL 


FT052330 






TXH 
TXI 


I0LSTA,4,2 
*+ 1,4,1 


IF LEVEL THREE, ERROR 


FT052340 






INCREASE LEVEL BY 1 


FT052350 






SXA 


IOLVL, 4 


SAVE IN IOLVL 


FT052360 
FT052370 






PXA 


t4 


BUILD ASTACK ENTRY 






ORA 


=0700000000000 


MTH LEVEL NO.,,0 


FT052380 
FT052390 







SLW 


ASTACK,! 


SET ASTACK ENTRY 






PXA 


,1 


INDICATE LAST ASTACK POS. THIS LEVEL 
SAVE THIS IN CURPTR VECTOR 


FT052400 
FT052410 






ST A 


CURPTR,4 






TXI 


I0LST1,1,1 
SCAN, 4 


BUMP ASTACK PTR. AND LOOK FOR C 
SCAN OFF NEXT LIST ELEMENT 


FT052420 
FT052430 


_. _ _.._ — 


IGLST2 


TSX 






ERROR 


48,SKEND 
*+2 


E-O-S IMPOSSIBLE 


FT052440 






TRA 


CONSTANT GO PUT IT OUT 


FT052450 






ERROR 
SLW 


48,SKEN0 

astackTi 


MISPLACED OPERATOR 


FT052460 






NO, SAVE THIS IN ASTACK 


FT052470 






TXI 
STZ 


•+1»L»1 

ASTACK, 1 


aUMP ASTACK POINTER 


FT052480 
FT05249G 






KEEP NEXT ASTACK ENTRY CLEAR 






CAL 


COLUMN, 2 


OBSERVE NEXT CHAR. IN STATEMENT 


FT052500 






ANA 


=0770000000000 


X 


FT052510 






LAS 
TRA 


=H=ooqoo 

*+2 


IS IT = 


FT052520 






NO 


FT052530 






TXI 

LAS 


I0LST6,2,-1 
=H( 00000 


YES, GO TO I0LST6 


FT052540 
FT052550 






NO, IS IT C 












FT052570 






Tka 


*■*•,£ 


»*u 


._ - - 




TXI 


I0LST4,2,-1 


YES, GO TO I0LST4 




I0LST3 


LAS 


=H, 00000 


NO, IS IT , 


FT052580 
FT052590 


_.. _.,-,, 




TRA 


*+2 


NO 






LAS 


IQLStl*2#-l 

=0770000000000 


YES» GO TQ lOLSTi 

IS IT END-OF-STATEMENT 


FJ052600 






FT052610 






TRA 
TRA 


*+2 
IOLSTL 


NO 


FT052620 






GO TO PART 2 OF IOLIST PROCESSOR 


FT052630 






LAS 


=H)00000 


NO, IS IT ) 
INVALID LIST 


FT052640 
FT052650 


— — 




ERROR 


47,SKEN0 






TXI 
TRA 


*+2,2,-l 

*-2 


YES, GO TO I0LST9 


FT052660 






NO, AN ERROR 


FT052670 




IGLST9 


LXA 


IOLVL, 4 


PROCESS RIGHT PARENTHESIS 


FT052680 






TXL 


I0LSrB,4,0 


ERROR IF LEVEL ALREADY ZERO 


FT052690 






TXI 

SXA 


*+l,4,-l 


DECREASE LEVEL BY 1 


FT052700 
FT052710 






IOLVL, 4 


SAVE IN IOLVL 






CAL 


COLUMN, 2 


GET NEXT CHARACTER OF STATEMENT 


FT05272G 






ANA 


=0770000000000 


X 


FT052730 






TRA 


I0LST3 
ASTACK+1,1 


GO LOOK FOR , E-OS- ) 


FT052740 
FT052750 




11.LST4 


LOI 


PROCESS LEFT PARENTHESIS 






LNT 


BARRY 


IS THIS AN ARRAY 


FT052760 






ERROR 


47,SKEN0 


SUBSCRIPTED VAR. NOT AN ARRAY 


FT052770 






TXI 


*+l,l,-l 


JUSTIFY THE INDEX 


FT052780 





TSX 


1IND£X,4 




FT052790 
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TXI 


•♦1,1,1 
I0LST4-3 


RESTORE THE INDEX 


FT052800 




TRA 


GO LOOK FOR , E-O-S ) 


FT052810 




I0LST6 LDI 


ASTACK+1,1 


PROCESS = 


FT052320 
FTQ5283Q 




STZ 


ASTACK+1,1 


PICK-UP INDEX VARIABLE 




TXI 


♦+1,1,-1 


CLEAR INDEX VAR. FROM ASTACK 
SAVE ASTACK POINTER 


FT052840 
FT052850 




SXA 


APTR,1 




IIL 


MINTG 
700000 


IS THIS A FIXED POINT INTEGER 


FT05286Q 




LFT 


X 


FT052870 




ERROR 


46,SKEND 
IOLVL 


INDEX VAR. NOT FIXED POINT 


FT052880 
FT052890 




NZT 


CHECK THAT LEVEL IS NON-ZERO 




ERROR 


46,SKEND 


INDEXING AT LEVEL ZERO 


FT052900 
FT052910 




LXA 


I0LVL»4 


GET ASTACK POINTER FOR THIS LEVEL 




CAL 


CURPTR,4 


X 


FT052920 




QRA 


=0700000000000 


X 


FT052930 




LXA 


PPTR,1 


GENERATE PSTACK ENTRY 


FT052940 




SLW 


PSTACK,! 


MTH ASTACK PTR. THIS LEVEL, ,0 


FT052950 




PAX 


t4 


SET DECREMENT OF ASTACK ENTRY TO 


FT052960 




TXI 


♦+1,1,1 


PSTACK POINTER 


FT052970 




PXD 


,1 


X 


FT052980 




STO 


ASTACK,4 


PUT THIS IS ASTACK ENTRY 


FT052990 




STI 


PSTACK, 1 


X 


FT053000 

Ffbsioio 




IOLST7 TSX 


D0ARG,4 


GO SCAN OFF INDEXING PARAMETERS 




TXI 


♦+1,1, I 
PSTACK, 1 


BUMP PSTACK POINTER 

STORE PARAMETERS IN PSTACK 


FT053020 
FT 0530 30 




SLW 




CLA 


NOOOAR 

~"*1 


BUMP NO. INDEX PARAMS BY 1 
X 


FT053040 
FTG53056 




ADO 




STO 


NOOOAR 


X 


FT053060 
FT053070 




rsx 


SKIP,4,RPCHAR 


IS NEXT CHARACTER ) 




TRA 


IQLST8 


NO, MAKE SURE IT IS , 


FT053080 




CAL 


=2 


DETERMINE NO. DO PARAMETERS 


FT053090 




LAS 


NODOAR 


ARE THERE TWO PARAMETERS 


FT053100 
FTb53110 




ERROR 


46,SK£N0 


NO, NOT ENOUGH PARAMETERS 




TRA 


I0LST5 


YES, GO SET THIRD TO 1 


FT05312G 
FT053130 




CAL 


=3 


X 




LAS 


NOOOAR 


ARE THERE THREE PARAMETERS 


FT053140 




NOP 




YES 


FT053150 




TO A 




ICO, WU lU lUUI^TJ 


*.-*. n «. „ m , ^ 




inn 


riy^iou 




ERROR 


46,SK£ND 


TOO MANY INDEXING PARAMETERS 


FT053170 




IOLST5 CAL 


= 1 


SET THIRD INDEXING PARAMETER TO 1 


FT053180 
FT 05 31 90 




TXI 


•+1,1,1 


BUMP P-STACK POINTER 




SLW 


PSTACK, 1 


SET THIS PARAMETER IN PSTACK 


FTO5320O 




TXI 


*+l,l,l 




FT053210 




SXA 


PPTR,1 


SAVE PSTACK PTR. FOR NEXT TIME AROUND 


FT053220 




TXI 


*+l,i,-5 




FT053230 




PXA 


,1 
APTR, 1 




FT053240 
FT053250 




LXA 


RESTORE XR1 TO ASTACK POINTER 




ORA 


=0600000000000 




FT053260 
FTQ53270 




SLW 


ASTACK,1 






TXI 


•+1,1,1 

NOOOAR 




FT053280 
FT053290 




STZ 


RESET NO. DO PARAMS TO ZERO 




TRA 


I0LST9 


GO CONTINUE LIST PROCESSING 


FT053300 
FT0533T0 




I JLST8 TSX 


SKIP,4,CMCHAR 


IS NEXT CHARACTER , 




ERROR 


46,SKEN0 


COMMA EXPECTED IN INDEXING PORTION 


FT053320 




TRA 


I0LST7 


YES, SKIP THE , AND GO FOR NEXT PARAM 


FT053330 




lOARG SXA 


EXD0AR,4 
SCNBCD,4 


SAVE XR4 


FT053340 
FT053350 




TSX 


SCAN OFF NEXT SYMBOL OR CONSTANT 




TMI 


D0ARG1 


TRANSFER IF IT WAS A CONSTANT 


FT05336G 




TSX 


SYMSTB,4 


ENTER IN SYMTAB AND VERIFY FIXED PU 


FT053370 




RIL 


7 


TURN OFF SUBR. ARG. BITS 


FT053380 







RIR 


700000 




FT053390 




STI 
STA 


00ARG2 


GENERATE PSTACK ENTRY 


FT053400 




D0ARG2 


X 


FT053410 




CAL 


D0ARG2 
» » ,4 


X 


FT053420 


tXOOAR 


AA I 


RESTORE XR4 


FTG53430 




TRA 


lt4 


EXIT 


FT053440 


DQARG1 


TSX 


BCDFIX,4 


CONVERT TQ ADDRESS INTEGER 


FT053450 




ARS 


18 


X 


FT053460 




TRA 


EXDOAR 


X 


FT053470 


IOLSTA 


ERROR 


48,SK£ND 


NESTING LEVEL .GRT. 3 


FT053480 


IOLSTB 


ERROR 


48,SKEND 


TOO MANY RIGHT PARENTHESES 


FT053490 


IULSTL 


ZET 


IOLVL 


E-O-S ENCOUNTERED, IS PAREN LEVEL ZEROFT053500 




ERROR 


48.SKEND 


NO, AND ERROR 


FT053510 




SXD 
AXT 


*+5,l 


YES, SAVE LENGTH OF ASTACK 


FT053520 




0,1 


INITIALIZE POINTER FOR PART 2 


FT053530 




CAL 


ASTACK, 1 
IOLSTZ 


PICK UP NEXT ASTACK ENTRY 
PROCESS NON-ZERO ENTRIES ONLY 


FT053540 




TNZ 


FT053550 




TXI 


*+l,l*l 


BUMP PART 2 ASTACK POINTER 


FT053560 




TXL 


*-3,l,.. 


GO FOR NEXT ENTRY IF NOT DONE 


FT053570 


EXIOLS 


AXT 


• • ,4 


FINAL IOLIST EXIT 


FT053580 




TRA 


1*4 


X 


FTQ33590 


IOLSTZ 


PAI 




PUT ASTACK ENTRY IN INDICATORS 


FT053600 




LNT 


700000 


IS THIS A LEFT PAREN ENTRY 


FT053610 




TRA 
LET 


IOLSTQ 
077777 


NO, GO SEE IF RIGHT PAREN 


FT053620 




YES, DOES IT HAVE INDEXING 


FT053630 




TRA 


•+2 
EXIOLS-1,1,1 


YES 


FT053640 




TXI 


NOTHING TO DO WITH THIS ENTRY 


FT053650 




POX 
STZ 


,2 

I0LT11 


SET XR2 TO PSTACK POINTER 


FT053660 




13 


FT053670 




STZ 


I0LT12 


12 


FT053680 




STZ 


I0LT13 


POOL U3) 


FT053690 




STZ 
LDI 


I0LT14 
PSTACK-3,2 


POOL 112) 


FT053700 




PICK UP 13 FROM PSTACK 


FT053710 




LET 
TRA 


1JJJJJ 

*+3" """' 


IS 13 A VARIABLE 


FT053720 




YES 


FT053730 




STI 


I0LT11 


NO, A CONSTANT, PUT IT IN I0LT11 


FT053740 




TRA 


IOLSTM 


GO LOOK AT 12 


FT053750 




STI 


SAVE 


45 « VAKiflOLCf )U OCPICRmIC LAU 1 J , ** 






TSX 


NEXTLP,4 


GET NEXT POOL LOCATION 


FT053770 




SLW 


I0LT13 


SAVE THIS POOL POINTER IN I0LT13 
GENERATE LXD ( 13) ,4 


FT053780 




CODE 


LXD4,SAVE 


FT053790 




CAL 


iOLTia 


GENERATE SXD WITH SPECIAL »R« FLAG 


FT033800 




ORA 


SXD4 


X 


FT053810 




TSX 


CIT6LD,4,R 


GENERATE SXD ..,4 


FT053820 


IGLSTM 


LDI 


PSTACK-2,2 


PICK UP 12 FROM ASTACK 


FT053830 




LFT 


mm 


IS 12 A VARIABLE 


FT053840 




TRA 


*+3 


YES 


FT053850 




STI 


I0LT12 


NO, A CONSTANT, PUT IT IN I0LT12 


FT053360 




TRA 


IOLSTN 


GO LOOK AT 11 


FT053370 




STI 


SAVE 


12 IS VARIABLE, SO GENERATE LXD 12,4 


FT053880 




rsx 


NEXTLP,4 


GET NEXT POOL LOCATION 


FT053890 




SLW 


I0LT14 


SAVE THIS POOL POINTER IN I0LT14 


FT053900 




CODE 


LXD4,SAVE 


GENERATE LXD (12), 4 


FT053910 




CAL 


I0LT14 


GENERATE SXD WITH SPECIAL 'R* FLAG 


FT053920 




ORA 


SXD4 


X 


FT053930 




TSX 


CITBLD,4,R 


GENERATE SXD .,,4 


FT053940 


iuLSTN 


LDI 


PSTACK-1,2 


PICK UP PSTACK ENTRY FOR 11 


FT053950 




LET 
'TRA' 


mm 

lOLSTO 


IS 11 A VARIABLE 


FT053960 




YES, GO TO IOLSTO 


FT053970 




PIA 




GENERATE AXT ( ID, 4 


FT053980 
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ORA 
TSX 


AXT4 
CITBLD»4,N 


X 
X 


FT053990 
FT054000 
FT054010 
FT054020 
FT054030 
FT054040 
FT054050 
FT05406C 




TRA 

IOLSTO ST I 


IOLSTP 
SAVE 

LXD4,SAVE 
IOLT13 


X 

11 IS A VARIABLE 




"CODE 
IOLSTP CAL 


GENERATE LXD (ID #4 

SET UP PSTACK AS FOLLOWS ITHIS INDEX) 




ALS 
ORA 


18 

PCOUNT 

PSTACK-3,2 

IOLT14 

PSTACK,2 

PSTACK,2 


MTH {ASTACK PTR.),,G 
(POOL PTR. I2)»,0 




SLW 

LDQ 


PZE (12). ,113) 


FT054070 
FT054080 
F T 054090 
FT054100 
FT054110 
FT054120 




CAL 
STQ 


<I) 




SLW 
SLW 


PSTACK-2,2 
SAVE 


PZE ( PCOUNT),, i POOL PTR. (13)) 
GENERATE SXD C I), 4 




PAX 
LDI 


t4 

EQUIV,4 


INDICATE INDEXING VARIABLE IN IOLIST 
AS DEFINED 
X 
X 


FT054130 
FT054140 
FT054150 
FT054160 
FT054170 
FT054180 




SIL 
ST I 


BLHSX 
E0UIV,4 




TSX 

CODE 


INDXT,4 
SXD4,SAVE 


VERIFY I NOT DO INDEX 
X 




CAL 
ALS 


IOLT11 
18 


X 
X 


FT054190 
FT054200 




ORA 
SLW 


IOLT12 

PSTACK-1,2 

EXIOLS-1,1,1 

600000 

IOLSTR 

,2 

PSTACK-3,2 

SAVE X 

LXD4,SAVE 

PSTACK-4,2 

3 

,4 


X 
X 


FT054210 
FT054220 
FT054230 
FT054240 




TXI 
10LSTQ LNT 


NOW GO GET NEXT ASTACK ENTRY 
IS THIS A RIGHT PAREN ENTRY 




TRA 
PAX 

"~ "" CAL 

SLW 


NO, GO PROCESS THIS LIST ITEM 
YES, GENERATE LXD CI), 4 


FT054250 
FT054260 
FT054270 
FT054280 
PJQ5429G 
FT054300 
FT054310 
FT054320 
FT054330 
FT054340 




CODE 
CAL 


X 

IF 13 IS A CONSTANT THEN GENERATE 




ALS 
PDX 






TXL 
CAL 


*+3,4,0 
PCOUNT 


X 




SLW 
CAL 


EQUIV,4 
PSTACK-2,2 


X 
X 
X 


FT054350 

!- IUD*fJK>U 

FT054370 
FT054380 
FT054390 
FT054400 
FT054410 
FT054420 
FTQ54430 
FT054440 
FT054450 
FT054460 
FT054470 
FT054480 
FT054490 
FT054500 
FTO 5 45 10 
FT054520 
FT054530 
FT054540 
FT054550 
FT054560 
FT054570 
FT054580 




ANA 
ORA 


=077777000000 

TXI14 

PCOUNT" 

CITBLa,4,P 

PSTACK-1,2 

*+4 

,4 

PCOUNT 




ACL 
TSX 


X 

OtfT GOES TH6 TXI 




CAL 
TZE 
PAX 
CAL 


~- — — - ■ 




SLW 
CAL 


EQUIV,4 

PSTACK-2,2 

=077777 

18 

SAVE 

PSTACK-4,2 

=07777 7 

SAVE 

TXL4 

CITBLD,4,P 

EXIOLS-1,1,1 

SAVE 

,4 

IOFLAG 


NOW PUT OUT THE TXL 




ANA 
ALS 
SLW 
CAL 


X 

X 




ANA 
ORA 
ORA 
TSX 
TXI 
IOLSTR SLW 
"PAX 

hit 


X 
X 

GO CONTINUE ASTACK PROCESSING 

TO OUTPUT LIST ITEMS 

GET EQUIV POINTER 

IS THIS INPUT OR OUTPUT 
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TRA 
RFT 


IOLSTY 
700000 


OUTPUT 

INPUT ... SO FLAG LIST ITEM AS BEING 


FT054590 
FT0546G0 




TRA 
TRA 


*+2 
*+3 

POGL-1,4 
t4 


DEFINED 
X 


FT05461Q 

_FI.Q54620.__ 
F TO 54630 
FT054640 
FT054650 
FT054660 
FT054670 
FT054680 
FT05469G 
FT054700 
FT05471Q 
FT054720 
FT054730 
FTG54740 
FT054750 
FT054760 




CAL 
PAX 


X 
X 




LDI 

SIL 


EQUIV,4 
BLHSX 
EQUIV,4 
MINTG 


X 

X 




STI 
IIL 


X 




LFT 
TRA 


700000 
*+2 

INDXT,4 
ASTACKtl 


NO 




TSX 

IOLSTY LDI 


YES, GO SEE IF •DO* INDEX 
GET THIS ASTACK ENTRY AGAIN 




STI 
SXA 


A 

A+1,1 
700000 
IOLSTK 




RFT 
TRA 


IS THIS ITEM SUBSCRIPTED 
YES 




IQLSTS LFT 
TRA 


8ARRY 
IOLSTU 


IS IT AN ARRAY 
YES 


FT05477Q 
FT054780 
FT054790 
FT054800 
FT054810 
FT05482G 
FT054830 
FT054840 
FTG54650 
FT054860 
FT054870 
FT054880 
FT054890 
FT054900 
FT054910 
FT054920 
Ft054930 
FT054940 
FT054950 
FT054960 
"Ft 054970 
FT054980 
FT054990 
F*m5£000 
FT055010 
FT055020 
FT055030 
FT055040 




LFT 

ERROR 


BEXTF+BINTF 
47,SKEND 


IS IT A FUNCTION OF SOME SORT 
YES, INVALID LIST ITEM 
IS THIS INPUT OR OUTPUT 
INPUT 

GENERATE LDO UTEM) 
STR 




LET 
TRA 
CODE 
CODEN 


IOFLAG 

IOLSTT 

LOQ.A 

STR 

IOLSTX 

STR 

STQ,A 

IOLSTX 

IOFLAG 

IOLSTV 




TRA 
I 3LSTT CODEN 


X 

GENERATE STR 




CODE 
TRA 


STQ (ITEM) 

X 




IULSTU ZET 
TRA 


INPUT OR OUTPUT 
INPUT 




TSX 
P2E 


0UTPTV,4 
(SLO) 


OUTPUT (SLO) IN TRANSFER VECTOR 
X 




TRA 
IOLSTV TSX 

PZE 
lOLSTW CAL 

ANA 

TSX 


lOLSTW 
GUTPTV,4 
(SLI) 
SAVE 
=077777 
CITBLD,4,D 
"SAVET4" 
£0ttfV t 4 
t4 

DIMTBL-1,4 
=077777 
CITBLD,4,N 


X 

OUTPUT CSLI) IN TRANSFER VECTOR 

GENERATE PZE (ARRAY + 1) 

X 




LXA 
CAL 


GENERATE PZE (LENGTH) 




PAX 
CAL 

ANA" 

TSX 


X 
X 

X 




TXI 

iOLSTK PIA 

TSX 

TRA 

REM 
IOLSTX EQU 


EXIOLS-1,1,1 

IC00EX,4 
IOLSTS+2 

EXIOLS-2 


SUBSCRIPTED ITEM. GO PUT OUT CODE 
FOR THE SUBSCRIPT 


FT055050 
FT055060 
FT055070 
FT055Q30 
FT055090 
FT055100 
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A R I T H 
PROCESSOR 



M E T 1 CSTATEMENTS 



TTL P A S S 1 - 

SUBSTITUTION STATE MENT 

ENTRY... 1ARITH 

REM ^ _ . — __._.. 

"the" processor Is '"'entered BY DEFAULT via THE RESERVED word tests* 
in other words , statements fa i ling to mee t REQUIREMENT S FOi^ 

RESERVED WORDS ARE CONSIDERED TO BE ARITHMETIC STATEMENTS. 

THE COMPIL ROUTINE I S ENTERED IMMEDIA TELY, AND THE STATEMENT 

"PROCESSED. THE STATEMENT MUST, OF COURSE, CONTAIN AN EQUAL 

SIGN • ^_ __ _ , ,_.__ _ 

REM 

IF CELL 2 HAS 



BEEN SAVED (FOR OP AND CA STATEMENTS), IT IS 



1ARITH AXC 
TSX 
NZf 



RESTORED PRIOR 
SPACE 3 __ 

0,2 



TO EXITING FROM THIS PROCESSOR. 



SET POINTER TO FIRST LETTER OF STATEMENT 



COMPILE 



ER ROR 
REM 

TRA 



EQULFG 
60,SKEND 

PUTCL2,4 



DID AN EQUAL SIGN OCCUR 
NO = SIGN. THEREFORE NOT 



A SUBSTITUTION 



STATEMENT 
RESTORE CELL 



SKEND 



FT055110 
FT055120 
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FT055130 
FT035140 
FTG55150 
FT055160 



FT055170 
FT055180 



FT055190 
FT055 2QQ 
FT055210 
FT05522Q 
FT055230 
FT055240 
FT055250 
FT055260 
FT055270 
FT055280 



FT055290 
FT055300 
FT055310 



TTL ARITHMETIC STATEMENT C Q M P 

COMPILE SUBROUTINE FOR ARITHMETIC SEQUENCES 

ENTRIES... COMPIL 

_ _ _ CMPLIF 

CMPLCL 



I L E R 



{ARITHMETIC STATEMENTS) 
(IF STATEMENTS) 



(CALL STATEMENTS) 



REM 



THIS ROUTINE IS THE HEART OF ARITHMETIC STATEMENT PROCESSING. 
IT IS ENTERED_FROM THE SUBSTITUTION STATEMENT PROCES_S_PR_t_ TH_E 
IF-STATEMENT PROCE5SOR, AND THE CALL STATEMENT PROCESSOR. 
REM 



ELEMENTS OF THE STATEMENT {OPERATORS AND OPERANDS) ARE SCANNED 
OFF 8Y THE SCAN ROUTINE AND PLACED INTO A STACK {THE ARITHMETIC 



STACK, ASTACK) ACCORDING TO CERTAIN RULES OF OPERATOR 
HEIRARCHY. SEE THE DESCRIPTION OF THE OPERATOR RANK TABLE 



FOR THE ORDER AND HEIRARCHY OF OPERATORS. 
REM 



FT055320 
FT055330 
FT05534Q 
FT055350 
FT055360 
FT055370 
FT055380 
FT055390 
FTQ55400 
FT05541G 
FT055420 
FT055430 
FTG5544G 
^T055450 
FT055460 
FT055470 
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THE GENERATION OF OBJECT PROGRAM CODE IS DELAYED AS LONG 
AS POSSIBLE, I.E. THE STACK IS BUILT UNTIL AN OPERATOR IS 



FT05548O 
FT05549G 



ENCOUNTERED WHICH CANNOT BE PLACED IN THE STACK BECAUSE OF THE 
OPERATOR HEIRARCHY RULES. CODE IS THEN PRODUCED, LAST-ENTERED 



ITEMS FIRST, AND THE STACK SHORTENED UNTIL A POINT IS REACHED 
THAX ALLOWS THE WAI TING OPERATOR TO BE ENTERED I NTO THE STACK. 
STACK BUI LDTnG THE COMMENCES AS BEFORE. WHEN THE 
END-OF-STATEMENT IS REACHED, CODE IS PRODUC ED UNTIL T HE 



FT05550G 
FT055510 
FT055520 
FT05553Q 
FT05554G 
FT055550 



STACK IS CLEARED. 
REM 



THE FORM OF AN ASTACK ENTRY IS AS FOLLOWS... FOR OPERATORS, 
THE OPERATOR KEY {FROM OPERATOR RANK TABLE) IS USED. FOR 



SYMBOLIC OPERANDS, THE EQUIV WORD IS USED, WITH THE SUBROUTINE 
ARGUMENT BITS {BITS 15-20) CLEARED OUT, ANDJJIfH THE EQUIV 
POINTER IN THE ADDRESS FIELD. CONSTANT OPERANDS, AND TEMPORARY 
OPERANDS PRODUCED AT INTERMEDIATE STAGES IN THE CODE GENERATION, 
HAVE ONLY THE CORRECT MODE BITS {PREFIX) SET ON. 
REM 



FT055560 
FT055570 
FT05558G 
FT055590 
FT055600 
FTQ5561Q 
FT05562G 
FTG55630 
FTQ55640 
FT055650 



OPERATORS ARE DISTINGUISHED FROM OPERANDS BY BIT 16... 
BIT 16 = OPERAND 



FTQ55660 
FT055670 



BIT 16 = 1 



OPERATOR 



DPM 



CONSTANT OPERANDS ARE DISTINGUISHED FROM OTHERS BY BIT 17... 

BIT 17 = VARIABLE OR INTERMEDI ATE RESULT 

BIT 17 = 1 CONSTANT 

REM _ _____ _____ _____ 

"an Intermediate "result" held in working storage will have the 
high-order bit of the address {bit 21) on, and the remai nder 
of the address will be the working cell pointer. 

REM _ „ „_ ___ _ 

A SUBSCRIPTED ""VARIABLE WILL HAVE A NON-ZERO TAG FIELD, 



AND 



THE ADDRESS WILL POINT TO THE SUBSCRIPT STACK USTACK) ENTRY, 



FT055680 

CTARRAOA 

« i u y y u y i/ 

FT0557G0 

FT055710 
F TO 55 720 

FTP 5 5 730 
FT05574Q 
FT055750 
FT055760 
FT055770 
FT05578O 
FT055790 



REM 



CMPLCL 



CMPLIF 



BIT 15 IS USED IN PROCESSING OF ARITHMETIC STATEMENT FUNCTIONS 
TO INDICATE A DUMMY ARGUMENT. 

REM 

CE" 3 ~ " " "~ "~" 

ENTRY FOR CALL STATEMENT 
SET SUBPROGRAM LEVEL TO 1 



SPACE 


3 


CAL 


= 1 


SLW 


CALLFG 


TRA 


* + 2 


REM 




STZ 


CALLFG 


STL 


EXITFG 


TRA 


*+3 



ENTRY FOR IF STATEMENT. ZERO CALL FLAG 
ON FOR CALL AND IF STATEMENTS 



FT055800 
FT055810 
FT055820 
FT055830 
FT 055 8 46 
FT055850 
FT055860 
FT055870 
FT055880 
FT055890 
FT05590G 
FT055910 



CQMPIL 


REM 
STZ 
STZ 

SAVE 


EXITFG 
CALLFG 
CMPLX 


ENTRY FOR ARITHMETIC STATEMENTS 


FT055920 

FT055930 






FT055940 
FT05595Q 




REM 
LXA 
CAL 
STA 


M0DFLG,4 
GEND£S,4 
GEN98 


GET MODE OF THIS STATEMENT 


FT055960 
FT05597G 




GET DESCRIPTOR FOR BINARY SEARCH IN GEN 
SET ADDRESS OF 'EQUAL COMPARE* INSTRUCTION 


FT055980 
FT05599G 




STA 
STD 


BAND 
BA 


ORIGIN OF TABLE FOR THIS STATEMENT 
LENGTH OF TABLE 


Fr056000 
FT056010 




CAL 
STA 


GENBIN*4 
BPOWER+1 


GET POWER-OF-TWO LENGTH OF TABLE 
AND THE RAISE/LOWER TABLE POINTER 


FT056020 
FT056030 




ARS 
STA 


18 
BPOWER 


AND PUT INTO THE BINSER INSTRUCTIONS. 


FT056040 
FT056G50 




REM 
CAL 


MODFLG 


GET MODE 


FT056060 
FT056070 




ARS 
STA 


1 
DBLMOD 


GET A POSSIBLE DP OR CA BIT INDICATOR 
SET THE OBLMOD FLAG 


FT056080 
FT056090 




REM 
STZ 


EQULFG 




FT056100 
FT056110 




STZ 
STZ 


REGIST 
REGIST+i 




FT056120 
FT056130 




STZ 
STZ 
STZ 
STZ 
STZ 
STZ 


REGFLG 
PCNT 




FT05614G 
FT056150 




ARITFN 
ARFLAG 




FT056160 
FT056170 




SUBFLG 
CXFLAG 




FT05618G 
FT056190 




STZ 
STZ 
STZ 
AXT 
SXA 
AXT 
REM 
TSX 
TRA 
TRA 


SAVCL2 

SETUP2 

HFLAG 

P00L-ISTKFG,4 

ISTKFG,4 

-ui_ ... 

SCAN, 4 




FT056200 
FT056210 




FT056220 
INITIALIZE THE ISTACK DIRECTOR ADDRESSFT056230 




PUT INTO ADDRESS OF FLAG WORD 


FT056240 
FT056250 


GETNXT 


TO SCANNER TO GET NEXT ITEM 


FT056260 
FTG5627Q 




EOEPRO 
STACK 


END OF STATEMENT ENCOUNTERED. 
CONSTANT ENCOUNTERED. EQUIVALENT 


FT056280 
FT056290 




REM 
TRA 


CMP1 


WILL BE IN LAC. 

OPERATOR ENCOUNTERED. EQUIVALENT WILL BE 

IN LAC. 

OPERAND i SYMBOL ICI ENGGUI4T£R£&. EWIV. 


FT056300 
FT056310 


STACK 


REM 

■■■-TXT 

REM 
SLW 
TXL 
REM 


ASTACK,! 


FT056320 
•F-T056S34 




IN LAC. 

STACK ITEM IN ARITHMETIC STACK 


FT056340 
FT056350 




GETNXT, 1,LASTAK GO FOR MORE, UNLESS STACK OVERFLOWS 


FTG56360 
FT056370 




STR MSG100,,SKEND 

SPACE 6 

OPERATOR PROCESSOR 

STA *+2 

SLW SYMTS 

TRA ** 


ARITHMETIC STACK OVERFLOW 


FT056380 
FT056390 


* 
...CMPi__ 


SAVE OP EQUIV TEMPORARILY AND GO TO 
OPERATOR PROCESSOR. 


FT056400 
FT056410 
FTG56420 
FT056430 
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EJECT 



PLUS PROCESSOR 



PLUSP 



LDI 



ASTACK,L 



LFT 
TRA 



BOPRX 
GETNXT 



ADTESr 



AOTST2 



REM 
CAL 
LDQ 
ANA 

slw 

STQ 
CAL 
ANA 



IS THE TOS AN OPERATOR. 

-PLUS_I_S_ UNARY. WE IGNORE IT. 



FT056440 
FT056450 
FT056460 
FT056470 



SYMTS 

ADDXXX 

=03760 000000 

CMPSl 

ADDXXX+1 



GET_PPERATOR LEVEL OF OPERATOR XQ_ BE ADDED 
GET INSTRUCTION TO BE INSERTED 



ASTACK+1,1 

=03760000000 



SET 'EQUAL CONDITION' INSTR UCTION 
GET PREVIOUS OPERATOR KEY 



ADDXXX 



LAS 
TRA 



IPR0C3 



REM 



LEV ELS OF OPS PERMIT STACKING 






TSX 

TRA 



GEN,4 
ADTST2 



OF NEW OPERAND 

INSTRU CTION IS INSERTED HERE. 



CANNOT ADD. GENERATE CODE AND RECYCLE FOR 
ANOTHER TEST. 



JIMJT GENERATE COD E IF OPERATOR LEVEL OF OP. TO BE ADDED IS GREAT- 



* 
M^NUSP 



ER THAN THAT OF TOP OPERATOR INSTaCKT OR CONVERSE LYT"TF~T0P" 
-OPERATOR Of STACK H AS A L UHER LEVEL THAN OPERATOR TO BE ADDED. 

THE ACTION TAKEN FOR EQUAL OPERATOR LEVELS" VARIES FROM OP To OP 
JM._PERIINENT .TRANSFER INSTRUCTION IS SET FOR EACH TYPE OF OP. 

SPACE 6 yr 

___ MINUS PROCESSOR 



LDI 
LNT 
TXL 

TXI 

REM 
REM 
REM 



J ASTACK i J : 

BOPRX 

*+2,l,-l 

STACK+1,1,1 



M UST DECIDED IF M INUS IS BINARY OR UNARY 
IS TOS AN OPERATOR 

BINARY MINUS UNLESS STACK IS EMPTY 
UNARY MINUS. STACK IT. 



REM 

REM 
REM 
CAL 



CHANGE MINUS KEY 

SCANNER ALWAYS RETURNS THE UNARY MINUS 



FT05648G 
FT056490 
FT056500 
FT056510 
FT056520 
FT056530 
FT056540 
FT056550 
FT056560 
FTO 565 70 
FT05658G 
FT056590 
FT056600 
FT05661Q 
FT05662b~ 
FT056630 
FT056640 
£T056650 
FT056660 
FT056670 
FT05668G 
FT056690 
FTG56700 
FTO 56710 
FTO 56 720 
FT056730 
FT056740 
FT056750 
FT056760 
FT056770 



EQUIVALENT. MUST BE REPLACED BY BINARY 
MINUS FQUIRAi FWT fNPntfPVl re mtmiic tc 



FT056780 
FT056790 



NEGKEY 



BINARY. 



M1NUS1 



SLW 
LDQ 



SYMTS 

MINXXX 



TRA 
REM 



AUTEST+2 



GET INSTRUCTION TO BE INSERTED 



MINXXX 



TSX 
SPACE 



STKPRT,4 
6 



£QUALP 



NZT 
ZET 

ERROR 

TXH 

REM 

STL 

REM 

LDI 

LFT 

ERROR 

REM 

LXA 



= SIGN PROCESSOR" 

EQULFG HAS EQUAL SIGN APPEARED" ALREADY^ 
EXITFG NO. IS THIS AN IF OR CALL STATEMENT. 
45.SKEND YES 
QTHR0P+l,i>-2 ERROR IF STACK IS EMPTY 



EQULFG 

ASTACK,! 
BOPRX+BCNST 

8^,SKEND 

SCAN5B»4 



TURN ON EQUAL SIGN FLAG 

GET SYMBOL 

CANNOT BE OPERATOR OR CONSTANT 



GET EQUIV ADDRESS FOR PREVIOUS SYMBOL 



FT056800 

r* f r% t t o \ r, 
r j W3001U 

FT056820 

F 1Q56830^ 

FTO 56 840 

FX05i>B5a 

FT056860 

FT056870 

FT056880 

FT056890 

FT056900 

FT056910 

FT056920 

FT056930 

FT056940 

FT056950 

FT056960 

FT056970 

FT056980 

FT056990 

FTO 5 7000 

FT057010 

FT057020 

FT057030 
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LDI 
SIL 



STI 

TRA_ 

SPACE 



REM 



0IV1DP TXH 
TRA 



SPACE 



GTHRQP TXL 



ERROR 
REM 



SPACE 



EQUIV.4 
BLHS_X_ 
EQUIV»4 
ADTEST+1 



GET EQUIV WORD 

TURN ON THE DEFINITION FLAG FOR SYMBOL 



FT057G40 
FT05705G 



RESTORE 



DIVIDE PROCESSOR 



TREATMEN T IS SAME AS OTHER ARITHMETIC OPERAT ORS, 
EXCEPT THAT TWO CONSECUTIVE DIVIDE OPERATORS CANNOT 
BE ALLOW ED INTO THE STACK (THIS_RESULTS IN INCORRECT 
COMPILATION)/ 



OTHROP+1,1,-2 
MINUS1 



EXPRESSION MAY NOT START WITH DIVIDE 



MULTIPLY PROCESSOR 



APT EST+1,1,-2 STACK NO T_EM IPJY 
~U',SKEND 



EXPONENTIAL PROCESSOR 



[XPONP TXH 



LDQ 
TRA 
REM 
EKPXXX ERROR 



OTHROP+lt lt-2_ ** MAY NOT BEGIN AN EXPRESS ION 
EXPXXX GET INSTRUCTION TO BE INSERTED 
ADTEST+2 __ .. .. 



74,SKEND 



CONSECUTIVE *» OPS ARE ILLEGAL 



FTG57060 
FT057070 
FT057080 
FT057090 
FTG57I00 
F TO 571 10 
FT057120 
FT057130 
FT 057 140 
FT05715G 



FT057160 
FT057170 
FT057180 
FT057190 
FT05f200 
FT057210 



EXPRESSION MAY NOT START WITH ONE OF THESE 
OPERATORS 



FT057220 
FT05723G_ 
Ft 057240 
FT05725G 
>f 057260 
FT057270 
FT057280 
FT057290 
FT05730C 
FT057310 
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EJECT 



PAREN PROCESS I NG. .. .CURRENT PAREN COUNT IS KEPT IN CEIL 



FT057320 
FT05733G 
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PCNT. THE MEANING OF A LEFT PAREN IS DETERMINED BY THE 
lit* I MMEDIATELY PRECEEDING IT IN THE ARITHMETIC STACK . 
THERE ARE ESSENTIALLY 3 TYPES OF PARENS... 

TYPE _Q_ ~_N£STING PAREN ONLY 

TYPE 1 - EXTERNAL LIBRARY FUNCTION PAREN 
TYPE 2 - OPEJj_LlNTERNA_L)__FyNCT10N PAREN 
TYPE 3 - ARITHMETIC STATEMENT FUNCTION PAREN 
TYPE 4 - EXTERNAL FORTRAN FUNCTION PAREN _ _. 



FTG57340 
FTQ5735G 



TYPE 5 "-"CALL STATEMENT PAREN 
TYPE_6 - I F STATEMENT PAREN 
TYPE 7 



FT057360 
FT057370 
FTO 573 80 
FT057390 
FT05740Q 
FI057410 
FTO 57420 
FT057430 



SUBSCRIPT PAREN (DOES NOT GET INTO ASTACK) FT057440 

FT057450 



THE~TYPE THAT A LEFT PAREN IS WILL BE FOUND IN THW PAREN FT057460 



STACK (PSTACK), AS FOLLOWS... 

PZE ASTACK POINTER OF ITEM BEFORE PAREN, , TYPE 

PCNT SERVES ALSO AS THE POINTER FOR PSTACK . 

PNFLAG HOLDS THE SAME AS THE CURRENT PSTACK ENTRY 



a 




* 


LEFT PAREN PR 


LPARNP LDI 


ASTACK, 1 


LFT 


BOPRX 


TRA 


♦+3 


REM 




LFT 


BARRY 


TRA 


(PR0C4 


REM 




LXA 


PCNT, 4 


TXI 


*+l,4,l 


SXA 


PCNT, 4 


ST2 


PSTACK, 4 


TXH 


(PR0C5,l,-2 


PXA 


tl 


STA 


PSTACK, 4 



FT057470 
FT057480 
FT057_49G 
FTO 5750 6 

FT05751Q 

TN^ODlTiWTHE~IPAREN TYPE IS ALSO ENTERED IN THE ADDRESSFT057520 
FIELD OF THE ASTAC K EQUIVALENT OF THE PAREN. . _FJ057530 

FT057550 
FT057560 
FT057570 
FT057580 
FT057590 
FT057600 
FT057610 
FT057620 
FT057630 



GET CURRENT STACK ENTRY, 



BIT ON DUE TO OPERATOR, OR DUE TO THE 
ALL-BIT ASTACK+1 WORD {ENCOUNTERED FOR 
IF AND CALL STATEMENTS) 

IS IT AN ARRAY 

YES. PROCESS SUBSCRIPT. 



REMEMBER LOCATION IN ASTACK OF FT057640 

ITEM BEFORE LEFT PAREN FOR LA TER CLASSIFIC-FTQ5765Q 

- FT057660 



AT ION. 



IF STACK IS EMPTY, IT MUST BE IF OR CALL 



REM 
REM 



SET ASTACK POINTER IN PSTACK ADDRESS FOR 
ALL BUT 'IF' (UNNECESSARY) AND 'CALL' 



FTQ57670 
FT057680 

r- t e\ *r ™* • *■»/-« 

riu?fo r, u 
FTO 57700 
FT057710 



TaTreaoy~pr6perly SET TO ZERO). 



FT057720 
FT 05.7 7 30 



AXT 



STACK 



0,4 



LFT 


BOPRX 




TRA 


(PR0C1 




SPACE 


6 




REM 






REM 






REM 






REM 






REM 






REM 






LFT 


BINTF 




REM 






TRA 


(PR0C2 




REM 






SPACE 


6 





NOW CLASSIFY TYPE OF PAREN ACCORDING TO NATURE OF TOP OF FT057740 

FT057750 

FT057760 

FT057770 

FT057780 

FT057790 

FT057800 

ITEM PRECEDING PAREN IS AN OPERAND OF SOME FT057810 

KIND. MAY BE EXTERNAL FUNCTION (LIBRARY OR FT057820 

OTHERWISE), AN ARITHMETIC STATEMENT ( INTER-FT05783Q 



SET TH E PAREN TYPE FLAG INDICATOR 

AN OPERATOR, SO PAREN _IS_ ME RELY JNEXT ING 



>7alTTuNCTI0N, "AN i ARRAY, OR AN OPEN INTERN AFT 057840 
L FUNCTION. FT057850 

FT057860 

IS IT AN INTERNAL FUNCTION JOP_EN_ OR _ FT05787G 

FT05788G 



ARITHMETIC STATEMENT.) 
YES 



FT057890 



FT057900 
FT057910 



REM 
REM 
REM 

ERROR 



NOT AN ARRAY OR INTERNAL FUNCTION. 

IS IT AN EXTERNAL LIB RARY OR AN EXTERNA L 



FORTRAN FUNCTION 



"bvarb+bcohn+bequv 

69 , SKEND VA RIABLE-TYPE FLA GS MUST BE OFF 



REM 
LNT 



TRA 
REM 
REM 
LFT 
TXI 
TRA 



BEXTF 
*+4 



BLIBF 



NOT FLAGGED AS EXTERNAL AND IS ALSO NOT 
AN ARRAY. THEREFORE DEFINE IT TO BE A 



FORTRAN (EXTERNAL) FUNCTION. 



{PROCl-2,4,1 FLAG AS EXTERNAL LIBRARY FUNCTION 
(PR0C6 FLAG AS EXTERNAL FORTRAN FUNCTION 



REM 
PIA 
PAX 
REM 



t4 



CAL 
ERA 



SYMTA8,4 
SBNAME 



GET BCD NAME 

COMPARE WITH THIS PROGRAM'S NAME 



( PR0C6 



TNZ 
ERROR 
"REM"'" 
LDI 
SIL 

SIX 
ST I 

PXA 

STA 

REM 

LXA 

TXI 



*+2 

10**+! 

EQUIV,4 
BEXTF 
EQUIV,4 
ASTACK, 1 

ASTACK, 1 

CALLFG,4 
*+l,4,l 



PROGRAM MAY NOT CALL ITSELF 
GET EQUIVALENT OF__OPERANO..._ 



FLAG IT AS AN EXTERNAL FUNCTION 



EQ^V__P01NJER ___ 
FIX UP 'ASTACK WORD 



BUMP SUBPROGRAM COUNT BY I 



SXA 

ML 
TXH 

ERROR 



CALLFG,4 

4,4^ __ 

*+2,l,0 
84, SKEND 



EXTERNAL FUNCTION CANNOT BEGIN ASTACK 



CPRGC1 



PXD 
REM 



f4 



ENTER PAREN TYPE NO. IN DECREMENT OF 
PSTACK ENTRY FOR THIS LEFT PAREN. 



(PR0C3 



(PR0C2 



( PR0C4 



{FROCt> 



LXA 

STD 

CAL 

SL¥ 

CAL 

TXI 

REM 

REM 

REM" 

LNT 

TXI 

TXI 

REM 

REM 

TSX 

CAL 

TSX 

STL 

TRA 

REM 

REM 

NZT 



PCNT,4 
PSTACK, 4 
PSTACK, 4 
PNF1AG 
SYMTS 
STACK+1,1,1 



BOPNF 

(PR0C1,4,3 

<PRGC1,4,2 



HNDEX,4 
ASTACK,! 



RESET PNFLAG 



FT057920 
FT057930 
FT057940 
FTG57950 
FT057960 
FT057970 
FT 05 79 80 
FJ057990 
Ff05866d 
FJ058010 
FT058G20 
FT058030 
FT0S8040 
FT058Q50 
FT058060 
FT058070 
FT058G8G 
FT058090 
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DECIDE IF AN ARITHMETIC ATATEMENT FUNCTION 



NAME OR AN OPEN FUNCTION NAME. 



IC0DEX,4 

SUBFLG 

GETNXT 



EXITFG 



ARITHMETIC STATEMENT FUNCTION. MARK IT 3. 
OPEN ROUTINE. MARK IT 2. 

PROCESS ARRAY SUBSCRIPT 

GET I STACK POINTER IN ADDR. ESS _ 

PUT OUT ANY CODE NEEDED fb FORM SUBSCRIPT 

SUBSCRIPT HAS OCCURRED IN STATEM ENT 



ON FOR IF AND CALL STATEMENTS 



FT058100 
FTO 58110 
FT058120 
FT058130 
~FT05814b 
FT05815G 
FT058160 
FJ058170 
FT058180 
FT058190 
FT05820G 
FT058210 
FT05822G 
FT058230 
FT058240 
FJ058250 
FT058260 
FT058 270 
FT05828Q 
jFTGJ>8290 
FT058300 
FT05831G 
FY058T20 
FT05B33Q 
FT05834G 
FT058350 
FT058360 
FT058370 
FT058380 
FT058390 
FT0584Q0 
FT058410 
FTO 5 8420 
FT058430 
FT058446 
FT058450 
FTO 5 8460 
FT058470 
FT 05 8 480 
FJ058490 
FT058500 
FT05851G 





ERROR 
REM 


7, SKEND 




FT05852G 
FT058530 
FT058540 
FT058550 
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AXT 

NZT 


5,4 
CALLFG 


PAREN TYPE FIVE FOR CALL STATEMENT 
ON FOR CALL STATEMENT 






TXI 

REM 


(PRGC1,4,1 


PAREN TYPE 6 FOR IF STAETMENT 


FT058560 
FT058570 
F TO 5 85 80 
FT058590 
FT058600 
FT058610 
Ff058620 
FT058630 
FT058640 
FT058650 
FT058660 
FT058670 
FT058680 
FT058690 
FT058700 
FT058710 
FT058720 
FT058730 
FT058740 
FT058750 
FT058760 
FT058770 
FT058780 
FT058790 
FT058800 
FT058810 
FT058820 
FT058830 
FT058840 
ISFT058850 






TXI 
REM 
REM 
SPACE 


<PRGC1,1,1 
6 


SUBROUTINE NAME WAS SNUCK INTO ASTACK 
BY 1CALLX ROUTINE. NOW ADJUST THE 






ASTACK POINTER. 




* 

* 




COMMA PROCESSOR 




fi- 




THIS SECTION DECIDES IF COMMA IS ... 

A) AT PAREN LEVEL ZERO IN WHICH CASE MUST BE END OF 
EXPRESSION. VALID FOR I/O LISTS ONLY, 

B) A POSSIBLE COMPLEX CONSTANT IF PAREN BEFOR THIS 




5- 
# 






* 

* 




COMMA IS MEAR 
C) END OF A 


:£LY NEXTING. 

k SUBPROGRAM ARGUMENT IF PAREN BEFORE 

i OF TYPE 1,2,3,4, OR 5. 




* 
*- 




THIS COMMA IS 




CQMMAP 


NZT 
TRA 


PCNT 
ADTEST+1 


I/O LIST. TREAT AS END OF EXPRESSION. 

GET TYPE OF PREVIOUS PAREN 
STACK IF PAREN NOT NESTING 






REM 
LXD 


PNFLA6,4 






TXH 
REM 
STL 
TRA 


ADTEST+1, 4,0 






CXFLAG 
(PROC3 


POSSIBLE COMPLEX CONSTANT. 

SET THE FLAG AND STACK THE COMMA 




£ 


SPACE 


6 

CLOSE PAREN PROCESSING 




* 

* 
fi 
* 




CLOSE PARENS 

1. AT PAREN 

2. AS MATCHIN 
ON, EXPRESSIO 
PAREN SIMPLY 


OF OF THE FOLLOWING TYPES... 

LEVEL ZERO. ERROR 

IG PAREN FOR NESTING LEFT PAREN. IF CXFLAG 




* 




IN MUST BE COMPLEX CONSTANT. OTHERWISE, CL0SEFT058860 
FORCES GENERATION OF CODE. FT05887Q 




* 
fi 




3. INDICATE 
EXTERNAL 


END OF CALLING SEQUENCE FOR INTERNAL AND 
FUNCTIONS, AND SUBROUTINE CALLS* 
END OF ARITHMETIC EXPRESSION IN 


FT058880 




* 
* 




4. INDICATES 
IF STATEMENT. 


FT058900 
FT058910 
FT058920 
FT058930 




fi 

RPARNP 


2ET 


CXFLAG 


HAS A POSSIBLE COMPLEX CONSTANT SITUATION 






TRA 
REM 


CXCHK 


YfcS. CHECK IF TOP OF STACK IS A COMPLEX 
CONSTANT OR IF IT IS AN ERROR 


FT058940 
FT058950 
FT058960 
FT058970 
FT05898b 
FT058990 






NZT 
ERROR 


PCNT 

91, SKEND 


TOO MANY RIGHT PARENS 






REM 
REM 
REM 
TSX 
CAL 
LAS 
TRA 
TRA 
LAS 
TRA 
TRA 
TSX 
TRA 
REM 


STKPRT,4 

ASTACK+1,1 

LPNKEY 

*+2 

RPN2 

CMAKEY 

*+2 


NOW GENERATE CODE UNTIL FORM {A OR ,A IS 

REACHED. 

DUMP ASTACK 




'""$PNl" """ 


FT059000 
FT059010 
FT059020 
FT05903G 
FT059040 
FT059050 
FT059060 
FT059070 
Ft659080 
FT059090 
FT059100 
FT059110 












RPN2 
GEN, 4 


GENERATE 






RPN1 







RPN2 


LDC 
TRA* 


PNFLAG,4 
* + l»4 




FT059120 
FT059130 




TRA 
TRA 


)PROCO 
)PROCl 


- MATCHING PAREN MERELY NESTING 

1 - EXTERNAL LIBRARY FUNCTION 


FT059140 
FT059150 




TRA 
TRA 


)PR0C2 
)PROC3 


2 - OPEN (INTERNAL) FUNCTION 

3 - ARITHMETIC STATEMENT FUNCTION 


FT659160 
FT059170 




TRA 
TRA 


) PR0C4 
)PROC5 


4 - EXTERNAL FORTRAN FUNCTION 

5 - CALL STATEMENT 


FT059180 
FT059190 




TRA 
SPACE 


)PR0C6 
6 


6 - IF STATEMENT 


FT059200 
FT059210 




REM 
REM 
CAL 
SLW 




NESTING PAREN 


FT059220 
FT059230 


}PROC0 


ASTACK»1 
ASTACK+1,1 


REMOVE THE NESTING PAREN 

MOVE THE OPERAND UP IN THE STACK 


FT059240 
FT059250 




PXA 
TXI 


,1 
«+l f l,-l 


DETERMINE IF THIS OPERAND IS IN A REGISTER 
ADJUST THE ASTACK POINTER 


FT059260 
FT059270 




ERA 
TNZ 


REGIST+1 
)2.1 


NOT IN REGISTER 


FT059280 
FT059290 




SXA 
TRA 
SPACE 


REGIST+1. 1 
)2.1 


REVISE THE REGISTER CELL POINTER 


FT059300 
FT05931G 


♦ 


6 


LIBRARY FUNCTION PROCESSING 


FT059320 
FT059330 


)PR0C1 


TXi 
SXD 
SXD 
SXD 
SXD 
STZ 
LXA 
TXI 

ZET 


#+1.1,-1 

)1.4,1 
)1.6,1 
) 1 . 1 1 , 1 
ARFLAG 

pnTlagVi 

♦+i,lt2 

DBLMOD 

11.19 

REGIST 

)1.19 


ADJUST THE END OF STACK POINTER 
SET END OF STACK-1 IN TESTING CELLS 


FT059340 
FT059350 






FT059360 
FT059370 






FT059380 
FT059390 




SET POINTER TO START OF FUNCTION STACK 


FT059400 
FT059410 






FT059420 
FT059430 




TRA 
CAL 


SKIP IF DOUBLE OR COMPLEX 


FT059440 
FT059450 




LBT 
TRA 


IS A RESULT IN THE ACCUM. 

NO 


FT059460 
FT059470 




REM 
CAL 
ERA 
TZE 

Tsx 

T-S*X? 


ASTACKtl 
REGIST+1 
)1.1 


bfc I A^iaCiv wuku rUK uPERAriu 
IS IT SAME AS THE ACCUMULATOR. 
YES. SKIP THE CLA INSTRUCTION 


FT059480 

r* men*. Qrt 
r I U^7*t7U 

FT059500 
FT059510 


U.19 


STORE, 4 
1 1*22 *4 

MODFLG 

= 1 

)1.18 


NO. STORE OFF THE PRESENT REGISTER 
Ga LOAD UP THE CODE ROUIJLME CELLS 


FT059520 
FX9S953.0 




REM 
CAL 
LAS 
TRA 


FT059540 
FT059550 




DETERMINE COLUMN 1 MODE OF STATEMENT 
DOUBLE OR COMPLEX STATEMENT 


FT059560 
FT059570 




TRA 

CODE 

REM 

TXH 

TXI 

TXH 

AXT 

SXA 

REM 

TXI 

TSX 

CODE 

REM 

CAL 


)1.8 
CLA t A 

)1.2,1,»* 
*+l,l,2 
)1.3,1,*» 
TOPCOR-1,4 
STOCEL, 4 

*+l,l,2 

)1.22,4 
LDQ,A 

STOCEL 


LOGICAL 

PUT OUT THE CODE TO LOAD THE AC 


FT059580 
FT059590 


U.l 
J 1.4 


QUIT IF NO MORE ARGUMENTS 

GO LOAD MQ IF ONLY ONE MORE ARGUMENT 


FT059600 
FT059610 
FT059620 
FT059630 


)l.i> 


INITIALIZE THE STORAGE LOCATION 
FOR THE FUNCTION ARGUMENTS. 


FT059640 
FT059650 
FT059660 
FT059670 




GO LOAD UP THE CODE ROUTINE CELLS A, A+l 
PREPARE TO STORE OFF THIS ARGUMENT 

GET LOCATION FOR THIS ARGUMENT 


FT059680 
FT059690 
F f 059700 
FT059710 
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)1.6 



U.3 



)1.2 



)1.21 



)1.7 



)1.10 



11.13 



SUB 

CODEO 
TXL 



= 1 
_SJOC£L_ 

STQtU 
)1.5,1, ** 



REM 

LXA 

TXI 

TSX 

CODE 

REM 

Tet 

TRA 



STORE OFF THIS" ARGUMENT 
RETURN IF M ORE ARGUMENTS 



PNFLAGt 1 
*+ 1,1,4 
)1.22,4 
LDQ,A 



ARITFN 
)1.20 



.GtI_ASTACK POINTER TO TOP OF FUNCTION S 
BUMP TO THE MQ ARGUMENT ~ 
GO LOAD UP THE CODE ROUTINE CELLS A f A+l 



ARE ME IN AN ARITH. STATEMENT FUNCTION, 
YES 



REM 
LXA 
CAL 

JtPJL 
ANA 

LFT 

TRA 

REM 



P_NFLAG,1 



ASTACK,1 
ASTACKjrl 
=077777 
BARGT 



)1.7 



SAVE ONLY EQUIV POINTER 

I S IT A SUBPR OGRA M PARAMETER. 

YES. 



CODEO 
T R A 

REM ~~" 
TSX 
CODEC 
TRA 



TSX4,T,XRFLAG CODE IS... TSX FUNCTI0N74 

,15*6*2 PUT OUT RESULT 



FT059720 
__. _F_T059730 
FTQ5974G 
_ FTQ5975Q 
FT059760 
TACKFT059770 
FT 05 9780 
FT059790 
FT059800 
_ FT059810 
FT 6 59820 
_FTG59830 
FT659840 
FT059850 
FT059860 
FT059870 
FT059880 
FT059890 
FT059900 
__F_J059910_ 
FT059920 
FT059930 



PROLOG, 4 



TSX4,N,XRFLAG 
)5.6+2 



MAKE PROLOG ENTRY 



CODE IS... TSX **,4 





REM 


J1.8 


CODE 




TRA 




SPACE 


)1.18 


TSX 




CAL 




SLW 




TRA 




REM 


)1.16 


TSX 



CAL, A 



)1.1 
2 

PUTCL2T4 
=0100000 
STOCEL 
U.10 



LOGICA L STATEMENT . CODE IS... CAL A 



RESTORE CELL 2 

Th IT I AL 1 2 E H I GH-CORE >0 INTER 



REM 
LFT 



TRA 
CODE 
CAL 
SUB 



TTTTz 

J1.14 

) 1.20 



cof)€a 

CAL 

SUB 

_SLW_ 

LFT 
TRA 
CODEO 
TXH 
f'XI 
REM 
CODLD 
TRA 
CODEO 
TRA 
REM 
CAL 
"ADD 
ORA 



JA*2A*A 

/MINTG*700000 

)1.12 

CLA,A 

STOCEL """"'" 

= 1 

STO,N 

STOCEL 

=2 "" 

SJOCEL 

/MINTG»700000 

)1.14 

STZ,N 

)1.2,1,** 

)1.16,i,2 



GO_LOAD_UP T HE CODE ROUTINE CELLS A, A+l 



REAL {DP OR CA) VARIABLE 
INTEGER 



GET POINTER 
LOWER BY 1 



LOWER BY 2 

RESTORE THE POINTER 



NOT AN INTEGER 

ZERO THE OTHER HIGH-CORE "LOCATION 

QUIT WHEN ALL ARGUMENTS DONE 

BUMP ASTACK POINTER AND RETURN FOR MORE 



A 
U.13 

STQ,N 
)1.U 

PCOUNT 

=2"~ 

SXA4 



GET "STORAGE INTO AC ~~AND~MQ~ 



FT059940 
FTG5995G 
F TO 59960 
FT059970 
FT059980 
FT059990 
FT060060 
FT060010 
FT060026 
FT060030 
FT060040 
F TO 60 50 
FT060060 
FT060070 



ARlTFNJjJjN^ SAV £ XR4 IN THE CODE 



BUMP PCOUNT TO AFTER THE T TSX T 
GET OP CODE 



FT060080 

FT060100 

FT060110 

FT060120 

FJG6Q130 

FT060140 

FT060150 

FT060160 

FT060170 

FT 060 180 

FT060190 

FT 060200 

FT060210 

FT060220 

FT060230 

FT060240 

FT060250 

FT060260 

FT06G27G 

FT060280 

FT060290 

F"F0603b0" 

FT060310 
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TSX 
TRA 



CITBLD,4,P 
U.21 



CODE IS,".. SXA *+2,4 



F TO 60 320 
FT060330 
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)1.22 



REM 
JLDI 
LFT 
ERROR 



STI 
SXA 



TRA 
SPACE 



ASTA CK,! 
BEXfF+BlNTF 
76,SKEND 
A 

A+^,1 

1,4 
6 



GET THE FIRST A RGUMENT 



ARGUMENT CANNOT 8E SUBPROGRAM NAME 



SET WORDS FOR CODE ROUTINE 



FT060340 
FT060350 
FT060360 
FT06037G 
FT660380 
FT060390 



JPR0C2 
) 2. 1 



TSX 
LXA 



0PNG£N»4 
PCNT.4 



TXI *+l,4,-l 

^>AA ruin ,* * 

CAL " PS TACK, 4 

SLW PNFLAG 



"PUT OUT^THE^TODE FOR BUILT-IN FUNCTION 

REMOVE PAR EN FROM S TACK 

LOWER PCNT 



TRA 
SPACE 



GETNXT 
6 



RESET PNFLAG TO C URRENT PAREN TYPE 
EXIT AND CONTINUE THE SCAN 



MTfHMETlt STATEMENT FUNCTION PROCESSING 
REM 



)PRGC3 



ThFcALLING "SEQUENCE" FOR ARITHMETIC STATEMENT FUNCTIONS IS 
THE SAME AS FOR FORTRAN FUN CTIONS, EXCEPT THAT ANY DOUBLE -LJNGlii 
"ARGUMENTS "WILL HAVE TWO ENTRIES IN THE CALLING SEQUENCE. 
JHE SECOND ENTRYHAS THE ADDRESS OF THE SECOND jj^eORPERj.. _. 
PART OF THE ARGUMENT. 
REM 

ARFLAG 
PNFLAG»4 



STL 
LXA 
CAL 
PAX 
CAL 
PAX 
TXI 
SXD 



ASTACK, 4 

,4 

EQU IV, 4 

,4 

*+l,4,l 
)5.35»4 



FLAG THAT THIS IS INTERNAL FUNCTION CALL 
GET START OF TH IS F UNCT I ON ST R I NG ■__ 
"AS0'"G0 GET THE FUNCTION KEY FROM STACK 

EQUIV POINTER 

EQUIV WORD 

ARITH. STATEMENT FUNCTION STACK POIN TER 



BUMP TO SECOND WORD 

SET DECREMENTS FOR LATER T ESTS 



SXD 
CAL 



)5.37,4 
POOL, 4 



)PR0C4 
JPR0C3 



)->.30 



Tr.10 



ERA 

ANA 

TZE 

ERROR 

SPACE 

EQU 
EQU 
REM 
LXA 
TXI 
SXA 
STZ 
REM 
TSX 
NZT 
TSX 
REM 
SXD 
SXD 
STZ 

"REM 
LXA 



MODFLG 
=077777 



MOD E IS IN ADDRESS O F SECOND STACK WORD 

Compare with this statement's mode 



J5.30 
35,SKEND 

6 "' ~ " 



SAME MODES. OKAY 
INCONSISTENT MODES 



CALLFG,^ 
*+ 1,4,-1 
CALLFG,4 
ARFLAG 

ST ORE, 4 " 

ARFLAG 

PUTCL2,4 

) 571,1 
)5.4,1 
ARGCNT 
SPCELL 



CALL AND FORTRAN FUNCTION PAREN PROCESSING 
ENTRY FOR FORTRAN FUNCT ION PAREN 
ENTRY FOR CALL STATEMENT _PAREN_ 

&e oucE. JJ-!L.Mg f- R0GRAM co UNr 8Y I 



PNFLAG,! 



NOT AN ARITH. STATEMENT FUNCTION 

STORE OFT" ANY REGISTER RESULT 

SKIP IF THIS IS A CAL L TO AN I NTER NAL FN, 

RESTORE CELL 2 

STT END OF St ACK" IN THE TESTTNG CELLS 

ZERO THE NUMBER OF ARGUMENTS 

ZERO THE SPECIAL PCOUNT INDICA TOR 

BEGINNING OF SUBPROGRAM STRING IN ASTACK 



FT060400 
FT060410 
FT060426 
FT060430 
FT 060440 
FT060450 
FT060460 
FT060470 
FTG6G480 
FT060490_ 
FT060500 
FTQ60510__ 
FT060520 
FT060530 
~F 1060540 
FT060550 
FT060560 
FT060570 
FT060580 
FT060590 
FT060600 
FT060610 
FT060620 
FT060630 
FT060640 
FT060650 
FT 06 066 6 
FT060670 
FT060680 
FT060690 
FT060700 
FT060710 
F TO 60 720 

FT060740 
FT060750 
FT060760 
FT060770 
FT660730 
FT060790 
FT060800 
FT060810 
FT060820 
.FT060830 
FT060840 
FT060850 
FT060860 
FT060870 
FT 060880 
FT060890 
FT060900 
FT060910 





TXI 


*+l»l,2 


BUMP TO FIRST ARGUMENT 


FT060920 
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) :i.l 


TXH 
REM 


)5.2,1,** 


QUIT IF OUT OF ARGUMENTS 


FT060930 








FT060940 






LDI 


ASTACK,1 


GET ARGUMENT 


FT060950 
F f 060960 






TSX 


ARG8MP § 4 


BUMP ARGUMENT COUNTER BY 1 






REM 
LNT 






FT060970 






BCNST 


SKIP IF THE ARGUMENT IS A CONSTANT 


FT060980 






RFT 
TXI 


40000 
)5.13,1»2 


OR IN WORKING STORAGE 


FT060990 
FT061000 










REM 






FT06101G 
Ff061020 






PIA 




GET EQUIV POINTER OR ISTACK POINTER 






PAX 

RFT 


,4 
700000 




FT061030 






IS VARIABLE SUBSCRIPTED. 


FT061040 






CAL 
PAX 


POOL-1,4 
,4 


YES. GET EQUIV POINTER 
SET XR FOR GOOD THIS TIME 


FT061050 






FT061060 






CAL 


LHSXWD 


GET A DECREMENT BLHSX BIT 


FT061070 
FT061080 






mi 


ARFLAG 


SKIP IF THIS IS A CALL TO AN INTERNAL FN. 






ORS 


EQUIV»4 


PUT INTO THE EQUIV WORD 


FT061090 
FT061100 






REM 










RFT 


700000 
35.17 


IS ITEM SUBSCRIPTED. 


FT061110 






TRA 


YES 


FT061120 






LNT 
TXI 


8ARIT 


IS THIS ARGT FROM AN INTERNAL FUNCTION... 


FT061130 






)5.13,1,2 


NO 


FT061140 






REM 




ARGUMENT IS ALSO AN ARGUMENT IN THIS 


FT061150 
FT061160 






PIA 








ANA 
CODEO 


=077777 
CAL4,N 


ARITHMETIC STATEMENT FUNCTION. 


FT061170 
FT061180 






CODE IS... CAL ARG.N0,4 






ZET 


SPCELL 


HAS A SPECIAL CELL ALREADY BEEN OBTAINED. 


FT06H90 






TRA 


* + 3 




FT061200 






TSX 
SLW 


NEXTLP,4 
SPCELL 




FT061210 
FT061220 












REM 






FT061230 
FT061240 






CAL 


ARGCNT 


GET ARGUMENT NUMBER IN THIS FUNCTION 






TSX 


CITBLN,4,Q 


PUT OUT AS A CONSTANT ADDEND 


FT061250 
FT06126G 






COOECO 


STA, SPCELL, R 


CODE IS... STA ARGCNT+SPCELL 






REM 






FT061270 






ZET 


DBLMOD 


CHECK IF THIS IS A DOUBLE-LENGTH ARGUMENT 


FT061280 






NZT 


ARFLAG 


AND IF THIS IS ALSO AN ARITH. STATE. FN. 


FT061290 






TXI 


)5.1,1,2 


NO 


FT061300 






REM 
LNT 






FT061310 






MREAL 


YES, IT IS. IS THIS A REAL ARGUMENT. 


FT061320 






TXT 

REM 


15t» 1,1,2 


TO 


FT061330 
FT061340 












PIA 




PUT OUT THE CODE 


FT061350 






ACL 


=1 


BUMP ARG NO BY 1 


FT061360 






ANA 


=077777 


SAVE ONLY EQUIV POINTER 


FT061370 
FT061380 






CODEO 


CAL4,N 


CODE IS... CAL ARG+1,4 






REM 






FT061390 






TSX 


ARGBMP,4 


BUMP ARGUMENT COUNTER BY 1 


FT06X400 






TSX 


CITBLN»4,Q 


PUT OUT AS CONSTANT ADDEND 


FT061410 






CODECO 


STA, SPCELL, R 


CODE IS... STA ARGCNT+1+SPCELL 


FT061420 






TXI 


)5.1,1,2 


RETURN FOR ANOTHER ARGUMENT 


FT061430 






REM 






FT061440 




J5.17 


PIA 




GET THE ISTACK POINTER 


FT061450 






PAX 


,4 




FT061460 






CAL 


POOL, 4 


IF EITHER POOL WORD HAS A MINUS SIGN, 


FT061470 






ORA 


POQL-2,4 


THEN THE SUBSCRIPT INVOLVES A VARIABLE. 


FT061480 






PBT 
TXI 






FT061490 
FT061500 






)5.13,1,2 


NO MINUS SIGNS. IGNORE 






REM 






FT061510 





)5.11 



REM 
REM 



REM 
ZET 
TRA 
TSX 



SPCELL 



NEXTLP,4 



SUBSCRIPTED ARGU MENT INVOLVING VARIABLE _ 

SUBSCRIPT 

HAS A SPECIAL CELL ALREADY BEEN OBTAINED. 



FT061520 
FT06153G 
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YES. 
GET A 



SLW 

REM 



SPCELL 



DON'T GET ANOTHER 
POOL POINTER (R ELATI VET JEQUI V ) 

TO 



FT061540 
FT061550 
FT 06 15 60 
FT061570 



SAVE THE POINTER, THIS CELL IS USED 
RETAIN THE DEFINITION OF OF THE 



FT061580 
FT061590 



REM 
REM 



BEGINNING OF THE CALLING SEQUENCE. IT 
REFERS TO EQUIV AS ITS BASE, AND NEEDS 



REM 

SJ I _ 
SXA 

CODE 



THE CIT FLAG «R» 



A + 1,1 
PXA4*A 



CODE IS. 



LXD VARB,4 



REM 
CAL 



PXA ARRAY+C0NADD,4 



PCOUNT 



FT061600 
FXQ61610 
FT 061620 
FT06163G 
F TO 6 1640 
FT061650 
FT061660 
FT061670 



SUB 
CODEO 



= 1 
SUB.P 



CODE IS... SUB *-l 



FT061680 
FT061690 



REM 
CAL 



ARGCNT 



FT061700 
FT061710 



TSX 

CODECO 



REM 
LET 

mi 

TXI 
REM 
L_MT 
TXI 
LXA 
CAL 
PAX 



CITBLN,4,Q 
STA,SPCELL,R 

DBLMOD 
ARFLAG 
)5. 1 1 1 1 2 



PUT OUT THE ADDITIVE CONSTANT 

CODE IS... STA SPECIAL. CELL+ARGCNT 



FT06172G 
FT061730 



IS THIS A DOUBLE-LENGTH STATEMENT. 



AND A CALL TO AN ARITH. STATEMENT FN 

NO 



MREAL 

) 1.1, 1,2 

A,4 

POOL -1,4 

,4 



YES. IS THIS A RGUMENT REAL 

NO 

GET ISTACK POINTER 



2ND ISTACK WORD 
GET EQUIV POINTER 



FT061740 
FT061750 
FT06176G 
FT061770 
FT 06 1780 
FT061790 
FT061800 
FT061810 
FT061820 
FT061830 



PAX 



EQUIV, 4 
»4 



EQUIV WORD 

GET DIMT8L POINTER 



CAL 
ANA 

CODEO 
REJi 
CAL 
SUB 

"CODEO" 

ft€M 

Tsx~ 

TSX 

CODECO 
TXI 



POOL-1,4 
=077777 



GET LENGTH OF THIS ARRAY 
SAVE EQUIV POINTER 



FT061840 
FT061850 
FT 06 I860 
FT061870 



NOP,N 



CODE IS... NOP LENGTH. OF. ARRAY 



PCOUNT 
= 1 
ADO,P 

ARGBMP,4 
CITBLN»4,Q 



CODE IS... ADD *-l 



BUMP ARGUMENT COUNTER BY 1 
PUT OUT AS AN ADDEND 



STA,SPCELL,R 
)5. 1,1,2 



CODE IS... STA SPCELL+ARGCNT+1 
RETURN FOR ANOTHER ARGUMENT 



FT061880 
FTG6189G 
FT061900 
FT061910 
FTO61920 
l : T0619 30 
Ff06l940 
FT061950 
FT06196G 
FT061970 



)b.l3 



)5.2 



REM 

NZT 
TRA 
REM 
LNT 
TRA 
TSX 
TRA 
REM 
REM 
REM 
NZT 
TRA 



DBLMOD 
ARFLAG 
)5.1 

MREAL 

TsTi " 

ARGBMP,4 
)5.1 



ARITFN 
)5.16 



IF THIS ARGUMENT IS A DOUBLE-LENGTH 



ARGUMENT FOR AN ARITHMETIC STATEMENT 
FUNCTION, THEN BUMP ARGCNT BY 1. 



NOT A REAL ARGUMENT 

BUMP ARGUMENT COUNTER BY 1 



SECOND PASS. 



IS THIS AN ARITH. STATE. 

NO 



PREPARE THEJ^ALLING SEQUENCE 

FN. 



DEFINITION.. 



FT061980 
FT061990 
FT062000 
FT062010 
FT062020 
FT062030 
Ft 062 040 
FT062050 
FT062060 
FT062070 
FT062080 
FT062090 
FT062100 
FT062110 





REM 
CAL 


ARGCNT 
= 1 
CITBLN,4,Q 


YES* SAVE XR4 


FTQ62120 
FT062130 






ADD 
TSX 


PUT OUT ADDEND 


FT062140 
FT062150 
FT062160 
FT062170 
FT062180 
FT062190 
FT062200 
FT062210 
FT062220 
FT062230 
F f 062240 
FT062250 






CODECO 
REM 


SXA4,SPCELL,R 


CODE IS.,. SXA END.0F.LIST+1,4 




35.16 


LXA 
TXL 


SPC£LL,4 
35.9,4,0 

PCQUNT 


TRA IF NO PRELIMINARY CODE WAS PRODUCED 






REM 
CAL 


DEFINE THE SPECIAL CELL AS THE BEGINNING 






STA 
REM 
LXA 
CAL 


EQUIV,4 


OF THE CALLING SEQUENCE. 




35.9 


PNFLAG,1 
ASTACK, 1 


GET ASTACK POINTER 






STZ 
ZET 


ARGCNT 
ARFLAG 


RESET THE ARGUMENT COUNTER 

IS THIS A CALL TO AN INTERNAL FUNCTION. 


FT062260 
FT0622 70 
FT062280 
FT062290 






TRA 
REM 


)5.14 


YES 






LDI 
LFT 
TRA 
REM 


ASTACK,! 
BARGT 


GET FLAGS 

IS IT A SUBROUTINE PARAMETER. 


FT062300 
FT062310 






35.8 


YES 


FT062320 
FT062330 






ANA 

CODEO 

REM 

TXI 

TXH 

LOI 

STI 

REM 


=077777 
TSX4,T,XRFLAG 

*+L»l*2 
3 5.t>,l, ** 
ASTACK, 1 

A 


CODE IS... TSX SUBPROGRAMS 


FT062340 
FT062350 
FT062360 
FT062370 
FT062380 
FT062390 
FT062400 
FT062410 
FT062420 
FT062430 
FT062440 
FT062450 
fT062460 
FT062470 






8UMP ASTACK POINTER 




) }.4 


QUIT WHEN ALL ARGUMENTS DONE 






TSX 

REM 
NZT 
TRA 


ARGBMP,4 

ARFLAG 
35.38 


BUMP ARGUMENT COUNTER BY 1 






CONTINUE TO PROCESS THE ARGUMENTS IF THIS 
IS NOT AN ARITH ST. FN. CALL 






REM 
LXA 


ARGCNT, 4 


GET NUMBER OF THIS ARGUMENT 




J5.35 


TXI 

PlA 

ERA 
ARS 


*+l,4,»* 

POOL, 4 
33 

*+2 

36,SKEN0 


BUMP BY ORIGIN OF THE STACK 


FT062480 
FT062490 
FT062500 
FT062510 
FT062520 
FXQ62530 
FTG62540 
FT062550 
FT062560 
FT062570 
FT062580 
FT062590 
FT0626QG 
FT062610 
FT062620 
FT062630 
FT062640 
FT062650 
FT06266G 
FT062670 
FT062680 
SFT062690 
FT062 700 
FT062710 






COMPARE THIS MODE WITH DEFINED MODE 






TZE 
ER£OR 


OKAY 

DIFFERENT MODES. ERROR 

IS ARGUMENT SUBSCRIPTED. 

YES. CODE MAY HAVE ALREADY BEEN INSERTED 




J-- 38 


REM 
RFT 
TRA 

REM 


700000 
3 5.5 




3S.12 


LFT 
TRA 
REM 
SXA 
ZET 
NZT 
TRA 
REM 
LNT 
TRA 
REM 
CAL 
SLW 
STL 


BARIT 
15.20 

A+1,1 

DBLMOD 

ARFLAG 
y 57l 9 

MREAL 
)_5.19 

TSX 

C0D31 
SPCDFG 


IS THIS ARGT OF AN INTERNAL FUNCTION. 

YES 

IS THIS A DOUBLE-LENGTH STATEMENT, 

AND ARE WE CALLING AN ARITH. STATE. FN... 




„ „ 


NO 

YES. IS THIS A REAL ARGUMENT. 

NO _ __ _ _ 

YES. PREPARE TO PUT OUT BOTH TSX INSTRUCT 
2ND INSTRUCTION FOR THE CODE ROUTINE 
SIGNAL CODE ROUTINE FOR 2 INSTRUCTIONS 
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TSX 


C0D£+1,4 


GO PUT OUT THE CODE 


FT062720 


PAG 




PZE 


TSX,, A 
ARGBMP,4 




FT062730 






TSX 


BUMP ARGUMENT COUNTER 8Y 1 


FT062740 






TXI 

""RE|f 


..).5.4,_lr2 




FTG6275G 
FT 062 760 










35.19 


CODE 


TSX, A 


CODE IS... TSX ARGUMENT 


FT062770 






TXI 


35.4,1,2 




FT062780 






REM 






FT06279G 




35.5 


LXA 


A, 4 


GET ISTACK POINTER 


FT062800 






CAL 


POOL, 4 


IF EITHER ISTACK WORD HAS A MINUS SIGN, 
THE CODE HAS ALREADY BEEN PRODUCED. 


FT062810 
Ft 6 62 820 






OR A 


POQL-2,4 






PBT 






FT062830 
FT062840 






TRA 


35.12 


CONSTANT SUBSCRIPT. PUT OUT CODE 






REM 
CODEN 






FT062850 




3 5.20 


TSX 


NO ARGUMENT ADDRESS. CODE IS... TSX ** 


FT062860 






REM 






FT062870 






ZET 


DBLMOD 




FT062880 






NZT 
TXI 


ARFLAG 




FT062890 
FT062900 






35.4,1,2 








REM 






FT062910 






LNT 


MREAL 


IS IT REAL 


FT062920 






TXI 


35.4,1,2 


NO. GO DO NEXT ARGUMENT 


FT062930 


_ 




REM 






FT062940 






CODEN 
TSX 


TSX 

ARGBMP,4 


PUT OUT SECOND TSX 


FTG62950 
FT062960 






BUMP ARGUMENT COUNTER BY 1 






TXI 
REN 


35.4,1,2 




FT062970 
FT062980 










35. o 


LXD 

TXH 


PNFLAG,! 
35.7,1,4 


GET PAREN TYPE 


FT062990 
FT063000 






TRA IF CALL STATEMENT 






REM 
CAL 


AXT4 




FT063010 
iEFf06302b 






PREPARE TO POSSIBLY RESTORE XR4 IN THE COD 






ZET 
TSX 


ARITFN 
CITBLD,4,N 


IS THIS IN AN ARITH. STATEMENT FUNCTION... 


FT063030 






YES. CODE IS... AXT **,4 


FT063040 






REM 






FT063050 
FT063060 






NZT 


ARFLAG 


IS THIS A "CALL TO AN ARITH ST FN... 






TRA 


35.36 


NO 


FT063070 






LXA 


ARGCNT,4 




FT063080 




3 5.37 


TXI 
PXD 


*+l,4,** 
t4 


BUMP BY ORIGIN OF STACK +1 


MU63UVU 

FT063100 












LXD 


*-2,4 

" POGL,V 


GET POINTER TO 2ND STACK WORD 


FT063110 
-1FY063120 






ERA 


COMPARE ARGCNT+ORIGIN+1 WITH OR IGIN+LNGT H* 






ARS 


18 


- • ■ - - •■■--■■ 


FTO6.3130 






TZE 


*+2 


OKAY 


FT063140 






ERROR 


36,*+l 


DIFFERENT NUMBER OF ARGUMENTS 


FT063150 






REM 






FT063160 




35.36 


AXC 


32.1-1,4 
~GENXIT,4 


SET EXIT POINT FOR RESULT ROUTINE 


FT06317G 






SXA 




Ffb63180 






LXA 
CAL 


PNFLAG, 1 
ASTACK, 1 


FUNCTION PAREN. RECORD RESULT IN 


FT063190 
, FT0632G0 






ASTACK, AND CONTINUE TO PROCESS STATEMENT. 






ALS 


2 


MOVE PERTINENT MODE BIT INTO P-BIT 


FT063210 






PBT 




BIT IS ON IF REAL RESULT 


FT063220 






RESULT 
RESULT 


integr.ac 
rMalVac" 




FT063230 
FT063240 












REM 

SKIP 


63 




FT063250 
FT063260 




"B.7 


END OF STATEMENT EXPECTED FOR CALL 






ERROR 


3,SKEND 




FT06327G 






TRA 


CMPLX 




FT063280 






REM 






FTG63290 




17.8 


ANA 


=077777 


SAVE EQUIV POINTER 


FT063300 






TSX 


PROLOG, 4 


MAKE PROLOGUE ENTRIES 


FT063310 







CODEC TSX4,N,XRFLAG CODE IS... TSX **,4 
TXi )5.4,1,2 


FT063320 
FT063330 


M.14 


REM 

PAX ,4 PUT OUT TSX TO INTERNAL FUNCTION 


FT063340 
FT063350 




CAL EQUIV,4 GET THE EQUIV WORD 

PAX ,4 AND GET THE ARITH. STATE. FN STACK POINTER 


FT063360 
FT063370 




CAL POOL, 4 DEFINITION OF FUNCTION 
ANA =077777 


FT063380 
FT063390 




CODEO TSX4,P,XRFLAG CODE IS... TSX INTERNAL. FUNCTION, 4 
TXi )5.4,1,2 


FT063400 
FT063410 


ARGBMP 


REM 

CAL ARGCNT SUBROUTINE TO BUMP ARGUMENT COUNTER BY 1 


FT063420 
FT063430 




ADD =1 
SLW ARGCNT 


FT063440 
FT063450 




TRA 1,4 
REM 


FT063460 
FT063470 


LHSXWD 


VFD 018/BLHSX 
SPACE 6 


FT063480 
FT063490 


* 


TERMINATION OF IF STATEMENT COMPILE 
REM 


FT063500 
FT063510 


JPR0C6 


TSX PLACE, 4 PUT RESULT INTO THE AC 
TSX PUTCL2,4 RESTORE CELL 2 


FT063520 
FT063530 




LXA CMPLX,4 

TRA 1,4 RELOAD XR4 AND RETURN 


FT063540 
FT063550 
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* 


EJECT 
FINAL 


PROCESSING FOR 

;d via the code 


ARITHMETIC STATEMENT FUNCTION DEFINITIONS. 
GENERATORS AT END-OF-STATENENT PROCESSING, 


FT063560 
FT063570 






FT063580 
FT063590 




* 


ENTERE 
REH 




ASFENO 


2ET 

ERROR 


SU8FLG 
90,*+l 


WAS THERE ANY SUBSCRIPTING, 
YES. NOT ALLOWED 


FT063600 
FT063610 
"Tf 063620 
FT063630 
FT063640 
FT063650 
FT063660 
FT063670 






LXA 
CAL 
STO 
ARS 


ARITFN, 4 
POOL-1,4 


START OF THE STACK 

SECOND STACK WORD (HAS END OF STACK POINT) 






ASFEN1 
18 


SET TRANSFER INSTRUCTION DECREMENT 
MOVE INTO ADDRESS 






SUB 
ORA 


ARITFN 
TRA04 


GET LENGTH OF STACK+1 

OR IN THE TRANSFER INSTRUCTION 






TSX 
CAL 


CITBLD,4,N 
PCOUNT 


PUT OUT THE RETURN CODE 

SET LARSTS TO THE CURRENT LENGTH OF 


FT063680 
FT063690 






SLW 
REM 


LARSTS 


ARITHMETIC STATEMENT FUNCTIONS. 


FT063700 
FT063710 
FT063720 
FT063730 
FT063740 
FT063750 






LXA 

TXI 


ARITFN, 4 
*+l,4,2 


GET START OF STACK 

BUMP TO START OF ARGUMENTS 




ASFEN2 


CAL 
TZE 


P00L*4 
ASFEN1-1 


CHANGE ALL ARGUMENTS FROM THEIR BCD 
NAMES TO THEIR 'EQUIV-LIKE" MODE 






LDI 
LAS 


=0 
=HI000G0 


REPRESENTATIONS. 


FT063760 
FT063770 
FT063780 
FT063790 






TRA 
LAS 
SIL 
TRA 


*+l 
=HN<(((( 








MREAL 

*+2 

MINTG 

POOL, 4 

* + 1 ,4,1 

ASFEN2,4,»* 

CITBLF,4 




FT063800 
FT063810 
FT063320 
FT063830 
FT063840 
FT063850 
FT063860 
FT063870 
FT063880 
FT063890 
FT063900 
FT063910 




ASFEN1 


SIL 
STI 
TXI 
TXL 
"REM" 
TSX 


BUMP TO NEXT ARGUMENT 
CONTINUE IF MORE ARGUMENTS 






TELL CITBLD THAT THIS FUNCTION IS OVER 






LXA 

SXD 
SXD 
TRA 


LWGRKS,4 
GETWR1,4 


UPDATE THE GETWRK ROUTINE TO RESERVE AND 
REMEMBER ANY WORKING CELLS USED IN 






FREWR1,4 
SKEND 


THIS ARITHMETIC STATEMENT FUNCTION CODE. 
QUIT 
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EJECT 






FT063920 


PAGE I" 


* 


ROUTINE 


TO CHECK VALIDITY OF A COMPLEX CONSTANT 


FT063930 






REM 






FT063940 




*l» X I* H K 


CAL 


MODFLG 


GET COLUMN 1 MODE 


FT063950 






ERA 


=3 


IS IT A COMPLEX STATEMENT. 


FT063960 






TNZ 

REM 


ERROR7 


NO. BAD FORM SOMEWHERE 


FT063970 
FT06398G 














LDI 


ASTACK,1 


GET CURRENT ASTACK WORD 


FT063990 






LNT 


MREAL+BCNST 


SITS MUST BE ON 


FT064000 




CXCHK2 


ERROR 


43,SKEND 




FT064010 
FT064020 






REM 










CAL 


ASTACK+l,i 


GET EITHER A MINUS OR A COMMA 


FT064G30 






LAS 


UNEGKY 


IS IT MINUS. 


FT064040 






TRA 


*+2 


NO 


FT064050 






TXI 


CXCHK1,1,-1 


YES. BUMP POINTER AND GO 


FT064060 




CXCHK3 


ERA 


CMAKEY 


MUST BE A COMMA 


FT064070 
FT064080 






TNZ 


CXCHK2 






REM 


ASTACK+2,1 


GET" FIRS f PART "KEY WORD" 


FT064090 
FT064100 






LDI 






LNT 


MREAL+8CNST 


BITS MUST BE ON 


FT064110 
FT064120 






ERROR 


43,SKEND 








REM 
CAL 






FT064130 






ASTACK+3,1 


GET EITHER A MINUS OR THE LEFT PAREN 


FT064140 






LAS 


UNEGKY 


IS IT MINUS. 


FT064150 
FT064160 






TRA 


*+2 


NO 






TXI 
ERA 


CXCHK4,1,-1 


YES. BUMP POINTER AND GO 


FT064170 
FT06418G 




CXCHK5 


LPNKEY 


MUST BE THE LEFT PAREN 






TNZ 

REM 


CXCHK2 


ERROR IF NOT 


FT064190 
FT664200 














CAL 


CXI 


GET THE TWO PARTS OF TH£ CONSTANT 


FT064210 






LOQ 


CX2 




FT064220 






TSX 
OR A 


ASCQN2,4 
REALCT 


GO PUT IN CONSTANT TABLE 


FT064230 
FT064240 






OR MODE AND BCNST TO THE CONSTANT POINTER 






LXA 


PNFLAG,1 


RESET ASTACK POINTER 


FT064250 






TXI 


*+l»l,l 


ADJUST ASTACK POINTER TO POINT AT PAREN 


FT064260 






SLW 
STZ 


ASTACK,1 


PUT CONSTANT WORD INTO ASTACK 


FT064270 






CXFLAG 


ZERO OUT THE COMPLEX CONSTANT INDICATOR 


FT064280 






TO A 


i *> i 


anitiCT ocTAfv A*m aiitt 


FT064300 






REM 


/*-»*. 












CXCHKi 


CLS 


CX2 


SET SIGN OF SECOND PART MINUS 


FT064310 






STO 


CX2 




FT064320 






CAL 


ASTACK+1,1 
CXCHK3 


GET THE NEXT ASTACK WORD 


FT064330 
FT064340 






TRA 






REM 






FT064350 




CXCHK4 


CLS 


CXI 


SET SIGN OF FIRST PART MINUS 


FT064360 






STO 
CAL 


CXI 


GET THE NEXT ASTACK WORD 


FT064370 
FT064380 






ASTACK+3,1 






TRA 

REM 


CXCHK5 




FT064390 
FT064400 












RLALCT 


VFD 


018/MREAL+BCNST 


FT0644I0 





EJECT 

END OF STATEMENT. PROCESS THE STACK 



REM 

EOEPRQ TXL 
""~""""fSX 

REM 



TSX 

TXH 

REM 
CNPLX RESTOR 
TRA 



CMPLX,1,0 
STKPRT,4 



GEN, 4 
*-ltl»0 



1,4 



IS STACK EMPTY 
"**»»»♦**** DUMP ASTACK 



NO 

GENERATE UNTIL ONLY ONE ITEM REMAINS 



FTQ64420 
FT064430 
FT 064440 
FJ064450 
Ff064460 
FT064470 
FTO 64480 
FT064490 



FT064500 
FT064510 
FT064526 
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EJECT 

* . 


ROUTINE TO 


DUMP THE CONTENTS OF ASTACK ON THE LIST TAPE 


FT064530 
FT064540 


REM 
STKPRT TRA 


lt4 


ALTER THIS INSTRUCTION TO GET ASTACK 


FT064550 
FT064560 


REM 
SAVE 


EXSTKP 
LIST f 4 
XYZYX,,4 
*+lt It 1 
ASTACK+1,1 


PRINT-GUT. 


FT064570 

FT064580 


TSX 
PON 




FT064590 
FT064600 


TXI 

LDQ 




FT064610 
FT064620 


TSX 
SLW 


CINSTR,4 
E0EP1+3 




FT064630 
FT064640 


STQ 
TSX 


E0EP1+4 
LIST, 4 




FT064650 
FT064660 


TIX 


EOEPlt v 5 
*-6,l,l 




FT064670 
FT064680 


EXSTKP RESTOR 
TRA 


lt4 


RETURN 


FT064690 
FTQ64700 


REM 
EQEPi BCI 


3, 




FT064710 
FT064720 


PIE 
P2E 


3, 




FT064730 
FT064740 


REM 
XYZ'YX 8CI 




FT064750 
FT064760 


BCI 


1, ASTACK 




FT064770 
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* 

* 
ft 
ft 
* 
ft 

ft 

* 
* 

* 

s 



TTL A R I ThI 
SCAN ROUTINE 



E T I C 



STATEMENT 



SCANNER 



REM "" " ' " 

THE SCAN ROUTINE IS DIVIDED IN TO SEVERAL SECTIONS... T HE 
SYMBOLIC NAME SCANNER, THE NUMBER SCANNER, THE HOLLERlfH 
LITER AL SCANNER, AND THE OPERATOR SCANNERS. 



ft 


REM 
ENTRY... 


# 


REM 
EXITS... 


ft 

ft 




ft 


SPACE 2 



TSX SCAN, 4 



TRA 

Tra 

TRA 



FT064780 
FT064790 
FT064800 
FJO 64810 
FT 064820 
FT06483Q 
F TO 64 840 
FT064850 
Ff 064860 
FT064870 
Ff064880 

_FT064890 

RETURN HERE IF A SYMBOLIC OPERAND Tf 064900" 

FT064910 
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R ETURN HERE IF END OF STATEM ENT 
RETURN HERE IF A CONSTANT 
RETURN HERE IF OPEARTOR 



ALL CONSTANTS ENCUUNTERED HILL BE ENTERED INTO THE CONSTANT 
T ABLE CONTAB, AND THE CONSTANT EQUIVALENT HILL BE RETURNED TO 
THE LOGICAL ACCUMULATOR ON EXITING FROM SCAN. "FORMAT OF THE 
CONSTANT EQUIVALENT IS... 



REM 



BITS S,l-2 



MODE 



BITS 
BIT 



SPACE 



BITS 
BITS 
2 



3-16 
17 



18-20 



NOT USED 

=1. INDICATES A CONSTANT. 



THIS BIT IS 



USED TO FLAG ENTRIES IN THE ASTACK ONLY. 
THIS BIT WILL BE OFF FOR VARIABLES IN 



ASTACK. 
NOT USED 



21-35 POINTER ADDRESS TO CONTAB. 



FOR SYMBOLIC QPERANOS AN ENTRY WILL BE MADE IN SYMTAB iFThE 
SYMBOL IS NOT ALREADY THERE. THE MODE WILL BE SE]N IF THE 
SYMBOL IS ALREADY IN SYMTAB AND THE NAME DOES NOr END IN -F, 
WILL BE ASSUMED TO BE CORRECT, AND THE EQUIVALENT WILL BE 
RETURNED TO THE LOGICAL ACCUMULATOR ON EXITING FROM THE SCAN. 
THE EQUIVALENT FOR SYMBOLIC OPERANDS WILL HAVE THE FORM... 



IT 



REM 



BITS S,l-14 SAME AS IN SYMTAB. 



BITS 15-20 ALL ZERO. IF THESE BITS ARE NEEDED, 

TUCV MUCT DC noTATMpn earn* enntu 



BITS 21-35 



EQUIV POINTER. ALLOWS ACTUAL SYMBOL 

EQUIVALENT TO BE OBTAINED. THIS ADDRESS 

MAY BE CHANGED "TO POINT TO ISTACK IF THE 

___. ; _ VARIABLE IS SUBSCRIPTED. 

REM 

NOTE T HAT THE ARGU MENT NU MBER FOR PARAMETERS IS NOT AVAILABLE 
IN THE ASTACK EQUIVALENT. " 

SPACE 2 _ _ ___ __ _ ___ _ 

OPERATORS RE TURN AN EQUI VALENT ALSO TO THE LOGI CAL ACOJMTaTOR 
BEFORE EXITING FROM SCAN. THIS EQUIVALENT IS TAKEN F ROM THE 
OPERATOR RANK TABLE (Q.V., AND ALSO THE DEFINITION OF THE 

RANK MACRO). 

REM "'"'"" "' '"" " "'"" "" " "'■""' " ■ 



THEY 



THE ORDER OF TH£ SECTIONS OF THE SCANN ER IS IMPORTAN T. 
MUST BE... SYMBOL 1 C, NUMBER, "OPERATOR S7~ THIS THEN "AFFOROT"" " 
A CONVENIENT RAPID TEST, USED IN MANY PARTS OF FASTRAN, TO 
DETERMINE IF A CHARACTER IS NUMERICV ALPHABETIC, OR SPECIAL. 
THE TES T IS MADE BY CONVERTING ONJTHE SCAN TABLE, AND DETERMINI 



FT064920 
FT064930 
Ft 064940 
FT064950 



FT064960 
FT064970 



IF THE RESULTING LOCATION IS BELOW {LETTER), EQUAL, OR ABOVE 
(.SPECIAL) THE ENTRY FOR NUMERAL (SCAN1). 

REM "'" " " '" "" " 

SPACE 3 



FT064980 
FT064990 
FT065600 
FT065010 
FT065020 
FT065030 
FT065040 
FT065050 
FT065060 
FT065070 
FT065080 
FT065090 
FT 06 5 100" 
FT06511G 
FT065120 
FT065130 
FT065140 
FT065150 
FT065160 
FTG65170 
FT 065 18 6 
FT06519a 
FT065200 
FT065210 
FT065220 
FT065230 
FT065240 
FJQ6525G 
FT065260 
FT065270 
F TO 65 2 80 
FT065290 
TT 065 300 
FT065310 
FT065320 
NGFT06533G 
FT065340" 
FT065350 
FT065360 
FT065370 



SCAN 


SXA 
SXA 
LOQ 
CRQ 
SXA 
TRA 
REM 
MP 


SCANX,! 
SCANX+1,4 




FT065380 
FT065390 


SCANA 


COLUMN, 2 
SCANT tl_t_l. 
"•+1 , 1 

** 


PICK UP CHARACTER AND CLASSIFY 


FT065400 
FT065410 






FT065420 
FT065430 


SCANT 


SCAN 
1,10 
SCANl 
SCAN2 
SCAN13 
SCAN2 


CONVERSION TABLE 


FTG65440 
FT065450 




00-11 NUMBERS 
12 ERROR 


FT065460 
FT065470 




13 * 

14 * (ERROR) 


FT065480 
FT065490 




DUP 


1,3 
SCAN 2 
SCAN20 

_„ltJL. 

SCAN5 

SCAN2 

SCAN33 

SCAN34 

1,3 

SCAN2 


15-17 ERROR 


FT065500 
FT065510 




DUP 


20 + 


FT065520 
FT065530 




DUP 
DUP 

DUP 
DUP 


21-31 LETTERS 
32 ERROR 


FT065540 
FT065550 




33 • 

34 ) 

35-37 ERROR 


FT065560 
FT065570 




FT065580 
FT065590 




SCAN40 

1,9 

SCAN5 

SCAN2 

SCAN2 

SCAN54 

It 3 

SCAN2 

SCAN60 

SCAN61 

1,8 

SCAN5 


40 - 

41-51 LETTERS ~~ 
52 ERROR 


FT065600 
FT065610 
FT065620 
FT065630 




53 $ 

_ j>4 J __. _ 

55 - 57 ERROR 


FT065640 
FT065650 
FT065660 
FT065670 




60 BLANK 

61 / 


FT065680 
FT065690 




62 - 71 LETTERS 


FT065700 
FT065710 







SCAN2 
SCAN73 
SCAN74 
SCAN2 


72 ERROR 

73 . 


FT065720 
FT065730 




74 { 

75 ERROR 


FT065740 


• 




SCAN2 
SCAN77 


76 ERROR 

77 END OF STATEMENT 


FT065760 
FT065770 








FT065780 
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EJECT 
REM 



SYMBOLIC NAME OR KEY HGR P PROCESSOR 



REM 

SCANS SXD 
-'- — C£ L ' 

TXI 



SCAN5A,j2 
COLUMN,'2 
*+l,2,-i 



JSAV E POINTER POS ITION OF 1ST CHARACT ER 
GET NEXT CHARACTER 



FTG6579G 
FT065800 
FT065810 
FTQ6582Q 
'F TO 65 830 
FT06584G 
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LOQ 
CRQ 



TXL 

_ SXA 
AXC 

SCAM5A TXI 



COLUMN, 2 

SCANTtit 1 

*-3»l»SCANl 
*+l,2 



FT065850 
FT065860 



IF iT«s ALPHAMERIC GO BACK FOR NEXT CHAR 
CALC. NUMBER OF CHARACTERS IN S YMBOL 



2ET 
TRA 



**»4 

»-H,4,*» 
AR1TFN 
SCAN A E 



IS THIS STATEMENT AN ARITH. STATE. FN, 
YES* GO CHECK FOR FUNCTION ARGUMENT 



REM 

SCA N5L LfiJL 
IIL 
LFT 



CQ LUMN-1 ,2 

260000 

770000 



TRA 

TXH 



TXH 
REM 
ANA 
OR A 



»+2 

SCAN5H f 4,3 

lRRG15,4»~6 

"SCANfllT 
SCANT2,4 



SLW 


F0RM16+6 


SLW 


F0RM69 


XCL 




TSX 


LOCATE, 4 


STA 


SCAN5N 


TMI 


SCAN5J 


REM 




LFI 


BINTF 


ERROR 


16,SKEND 


SCAN5C RIL 


700000 



LFT 
RIL 



BEXTF 
BLIBF 



REM 

SCAN5J CAL 



F0RM69 



SLAN5T 



SCAN5N 



it AN 5 J 



SLW 
LAS 
TRA 
LAS 
SIL 
TRA 
SIL 
REM 

TRA 
REM 
SKIP1 

fxi 

LFT 
TRA 
SIL 
AXT 
STI 
STI 
SXA 
CAL 
ANA 



F0RM23+3 

=Hiqoooo 

1m- 1 

=fm< i i i ( 

MREAL 

SCAN5S 

MINTG 



DOES NAME END IN AN F. 



NO 

YES . IS IT 4 OR MORE LETTERS LONG 

NO, IS IT MORE THAN 6 CHARACTERS LONG. 

SYMBOLIC NAME FOUND. 



NO* APPEND TRAILING BLAMKS. 



PUT SYMBOL I C NAME I N SYMBOL T ABLE 
EQUTV To INTER" 
SKIP IF NEW SYMBOL 



INTERNAL FUNCTION MUST HAVE TERMINAL F 
RESET MODE BITS 



IF BEXTF" IS" ON, RESET POSSIBLE BLIBF BIT 



BCD NAME OF SYMBOL 



MODE TEST 



FLOATING POINT 
FIXED POINT 



BARRY 
SCAN5N-1 

LPCHAR 

SCAN5K,2,1 

BARGT+BEXTF 

*+2 

BVARB 

• *t 4 

EQUIV,4 

SCAN5B 

SCAN5B,4 

SCAN5B 

=0777770077777 



IS IT AN ARRAY, 
YES. 



IS THERE A LEFT PAREN NEXT. 
YES. RESTORE POINTER AND SKIP 



CANNOT TAKE ANY ACTION 

S E T VARI ABLE _BI_T _0N_ 

RESTORE THE EQUIV WORD 
FIX UP ASTACK EQUIV ENTRY 

IM§ RT J^ UIV PQINTE * - ™ 

CCLEAR OUT POSSIBLE ARG NO. AND 



FT065870 
FT065880 
FT065890 
FT065900 
FT065910 
FT 065 920 
FT065930 
FT065940 
"FT065950 
FT065960 



FT065970 
FT06598Q 
FT065990 
FT 066000 
Ff 0660 10 
FT066020 
F TO 660 30 
FT066040 
FT066050 
FT066060 
FT066070 
FT066080 
FT066090 
FT066100 
FT066110 
FT066120 
FT066i30 
FT066140 
FT066150 
FT066160 



FT066170 
FT066180 
FT066190 
FJ066200 
FT 0662 10 
FT066220 
FT066230 
FJ066240 
FT066250 
FT066260 
FT066270 
FT066280 
FT066290 
FT066300 
FT066310 
FT066320 
FT066330 
FT066340 
FT066350 
FT066360 
FT066370 
FT06638G 



SCANX 



AXT 

AXT 



TRA 

___ REM 
SCAN5K LFT 

ERROR^ 

SIL 
TRA 
REM 
SCAN5SJIZT _ 
TRA 

LFT 

LFT 

T8A 



ERROR 
SIL 



**,4 
4,4 



BVARB+BCOMN+BEQUV 

69,SKEND 

BEXTF 
SCAN5N 



ALL FLAGS MUST BE OFF 



DBLWOD 

SCAN5T 

BARRY 

BDOUB 

#+2 

49»*+2 

BDOUB 



HARK IT AS AM EXTERNAL FUNCTION 



IS IT DOUBLE OR COMPLEX 



NO 
IF 



BARRY IS ONi BDOUB MUS_T__AL READY BEJQN 



SINGLE ARRAY USED IN DOUBLE CONTEXT 
TURN ON THE DOUBLE LENGTH FLAG 



FT066390 
FT06640G 
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FT06641Q 
JFT066420 
FT066430 
FTQ66440 
~Ft066450 
FT066460 



TRA 



SCAN5T 



FT066470 
FJ066480 
FT066490 
FT066500 
FT066510 
FT066520 
FTG66530 
FTG66540 
FTG6655Q 



EJECT 
_____ J*__L 

SCANAE ANA 

___ ORA 

LXA 

TXI 

SXD 
TXI 



TEST SYMBOL FflRARITHMETIG STATEME NT FUNCTION ARG UMENT 



REH 
SCANAH LAS 
TRA 
TRA 



TXI 

SCANAF T XL 
TRA 

REM 



SCANAG LDI 
LAS 



TRA 
LAS 



SIL 
SIL 
STI 

SCANAI TIX 



SXA 
CAL 
TRA 



SCANT1,4 
SCANT2»4 

ARITFN»1 

SCANAI, 1 



REMOVE NON-ESSENTIAL CHARACTERS 
AND AOO BLANKS 



GET START OF STACK 



POOL,! 

*+2 

SCANAG 



•+ltlfl 

SCANAH, 1, 



SCAN5L 



=0 
=HIOOOOO 



=HN{(((( 



SIL MREAL+BARIT 
TRA *+2 



MINTG+BARIT 
BARIT _ 
SCAN5B 

*+J L flt*» 

SCAN5B,! 

SCAN5B 

SCANX 



SAVE IN FUTURE INSTRUCTION 



TEST IF THIS SYMBOL IS AN ARGUMENT 



YES. MATCHES A MEMBER OF THE STACK 



**L_ RETURN FOR MOR E IF NOT THROUGH THE ST ACK 
RETURN TO MAIN SCANNER. NOT AN ARGUMENT 



DETERMINE THE MODE OF THE ARGUMENT 



REAL MODE + ARGUMENT SIT 



FIXED MODE + ARGUMENT BIT 

TURN ON THE ARGUMENT BIT 

THE SAVE CELL 

BY START OF STACK, THUS GETTING 



RESET 
LOWER 



the argument number 
"exit" The scanner 



FTG66560 
JMTQ6637G 
FT 0665 80 
FT066590 
FYO 66600 
FT06661CL 
FT06662G 
FT066630 
FT066640 
FT066650 
TT06666G 
FT066670 
FT066686 
FTG6669G 
FT06670G 
FTG66710 
F TO 66720 
FT066730 
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FTG6674G 
FT066750 



FT066760 

FT066770_ 

FT 6 667 80 

FT066790 

FT06680Q 

FT066810 

FT06682G 

FTQ6683G 

FT066840 



EJECT 

REM 
REM 



SCAN5H TXH 



FUNCTION NAME E NCOUNTERED 
ERR015,4,7 



SXA 
SLW 
TXL 
REM 
SKIP 

ERROR 

CAL 
TXI 



SCAN5Q,4 
F0RM69 



SCAN5M»4»6 

LPCHAR 
15 f SKEND 
F0RM69 ~~ 
SCAN5U,2»1 



REM 
SCAN5M ANA 



SCANT1,4 



On A 

SLW 



F0RM69 



REM 
XCL 



TSX 
STO 



LOCATE, 4 
SCAN5B 



STA 

_LFT_ 
ERROR 

REM 

skip! 

TXI 



SCAN5N 
BARRY 



20,»+l 



LPCHAR 
SCAN5R,2,1 



LFT 

JRRQR 

TRA 

REM 



BINTF 
57, SKEND 



SCAN5C 



5CAN5R CLA 
TPL 
PAX 
STZ 



SCAN5B 

*+4 

t4 

SYMTAB,4 



REM 
CAL 



F0RM69 



SCAN5Q AXT 
TXI 



**,4 
*+l,4,-l 



ANA 
jORA 
SCAN5U SLW 
SLW 
NZT 
TRA 



SCANT1,4 
SCANT2,4 



FQRM23+3 
F0RM69 
DBLMW 
SCAN5P 



REM 
LXD 
TXL 
XCL 
SXA 
TSX 
LFT 
TRA 
REM 
TPL 
PAX 
STZ 
SCAN5TAXT 
TXH 
LD1 
LDQ 



SCAN5A,1 



SCAN5P,1,0 

SCAN5I,4 
LOCATE, 4 
BINTF 

^CAN50 

SCAN5I _ 

»4 "" 

SYMTAB,4 

**,4 

ERR015, 4,5 

MODFLG 

F0RM69 



IS NAME TOO LONG (GREATER THAN 7 CHAR.) 
SAVE LENGTH OF SYMBOL 
SAVE BCD NAME OF SYMBOL 



IS IT LESS THAN SEVEN CHARACTERS. 



NO. LEFT PAREN MUST BE NEXT 



R EST ORE TH£__POINTER AND CONTINUE 



KILL T HE NO N-ESSE NTIAL BITS OF SYM BOL 

n J"- f\ j * **' •" r» *« n a * a. • i< #» 

KCPLfltC OY BLANKi 

SAVE BCD NAME OF SYMBOL 



FIND IN SYMTAB 

SAVE EQUIV POINTER AND ACCUM SIGN 



SET EQUIV ADDRESS 
IS IT AN ARRAY. 



YES. NOT ALLOWED 



IS THERE A LEFT PAREN NEXT. 

YES . RES TO RE THE POINTER AND GO 



NO PAREN. IS FUNCTION BIT ON. 
YES. NOT ALLOWED WITHOUT PAREN 



TREAT AS REGULAR VARIABLE 



•LOCATE* SIGN 
A OLD SYMBOL 



GET THE 

SKIP IF 

GET EQUIV POINTER 

ZERO OUT INDICATIONS 



INDICATION 



OF -F SYMBOL 



GET BCD NAME OF SYMBOL 



REGAIN THE LENGTH OF SYMBOL 
PREP ARE TO DELETE THE TERMINAL F 



IS IT DOUBLE PRECISION OR COMPLEX. 
NO. SKIP 



DOUBLE-LENGTH STATEMENT. MUST ADD A 



»D« OR »I« TO NAME... EXCEPT FOR 

ARITHMETIC STATE MENT FUNCTION NAMES. 

SAVE XR4 

LOOK UP THE NAME IN SYMTAB 

IF AN INTERNAL FUNCTION, THEN GO ON 

*ITH PROCESS I NG _ 

IF NOT A NEW SYMBOL, SKIP 

NEW SYMBOL. REMOVE THE SYMBOL FROM 

THE TABLE 

RESTORE XR4 AND APPEND •D* OR • I • . 

IS THE NAME TOO LONG. 

GET COLUMN 1 MODE 

A •!• IS INSERTED FOR THE •!•, AND A «4« 



FT066850 
FT066860 
FT066870 
FT066880 



FT066890 
FT066900 



FT066910 
FT066920 
FT06693G 
FT066940 
FT066950 
FT066960 
FT06697G 
FT066980 



F r066990 
FT067000 



FT067010 
_FT067020 
FT067036 
FT067040 
FT067050 
FT067060 
FT067070 
FT067080 
FT 06 70 9 6 
FT067100 
FT067110 
FT067120 
FT067130 
FT067140 
FT067150 
FT067160 
FT067170 
FT067180 



FT067190 
FT0 67200 
FT06721G 

i i w »_» ■ t_ C \J 

FT067230 
FT067240 
FT067250 
FT067260 



FT067270 
FT06728Q 
FT067290 
FX067300 
FT067310 
FT067320 
FT067330 
FT067340 
FT067350 
FT067360 
FT067370 
FT067380 
FT067390 
F TO 6 74 00 
FT 06 74 10 
FT067420 
FT067430 
FT067440 
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CAL 
RNT 



= 1 

1 



CAL 

REM 

REM 



=4 
30 



FOR THE «D« . P0ST-PASS1 CHANGES THESE 

IS^ THIS A COM PLEX STATEMENT* 

NO." 



SET UP THE 
RESTORE THE NEW 



DP LEADING BIT 
NAME TO THE ACCUM 



SCAN5P AXT 

LAS 

TRA 
TRA 
TIX 
REM 



SEARCH BUILT-IN FUNCTION TABLE 

L0PENT74 LENGTH OF OPEN FUNCTION TABLE 
LIBTAB+LOPENT+1,4 NAME FROM TABLE 



*+2 
ROPEN 



NOT FOUND YET 

OPEN FUNCTION LOCATED 



*-3 t 4f 2 



XCL 

T<i_ 



SCAN50 STO 

_ LFT 

"". ERROR 
REM 



LOCATE ,4 

"SCAN5B" SAVE EQUIV POINTER AND ACCUM SIGN 
BARRY+BV ARB+BC0M N+8EQUV ALL FLAGS MUST BE OFF 
69,SKEND ~ 





PAX 


t4 




RIL 


700000 




CAL 


FQRM69 




ERA 


=HX 




ARS 


30 




TZE 


SCAN5F 




SIL 


MREAL 




TRA 


SCAN5G 




REM 




SLAN5F 


SIL 


MINTG 




ZET 


DBLMOD 




ERROR 

REM 


34,«+l 






SCAN5G 


LXD 


SCAN_A,1 




TXL 


SCANAA»l*0 



GET EQUIV POINTER 
RESET THE MODE BITS 



FT067450 
FT067460 
FT067470 
FT067480 

TT067490 
FT067500 

"FT667510 
FT067520 
FT067530 
FT067540 
FT067550 
FT067560 
FT667570 
FT 06 75 80 
FT067590 
FT067600 
FT067610 

_FJ067620 
Ff_67630 
FT067640 
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GET BCD NAME OF SYMBOL 



FIXED MODE 

SET REAL MODE BITS 



INTEGR MODE BITS 



is it "'double-Length statement . 



IS THIS THE START OF A STATEMENJ. 
TF~S07"G0 TO ARITH STATEMENT FN. PROCESSOR 



REM 
LNT 
SIL 



BINTF 
BEXTF+BLIBF 



IF OFF, THEN TURN ON BEXTF+BLIBF 
NO. DEFINE AS EXTERNAL LIBRARY FUNCTION 



TRA 
REM 



SCAN5E-1 



ROPEN 



CAL LIBTAB+LGPENT,4 

LXD SCAN5A,4^ 

fXH SCANXT4,Cr 

ERROR 88.SKEN0 



GET KEY WORD FOR THIS FUNCTION 



QPERAfOR ( BU ILT- TN f ROUT INE NAME 

OPEN FUNCTION CANNOT BE DEF I-HED BY PROGRAH 



FT067650 
FT067660 
FT067670 
FT06 7680 
FT 067690 
FT06770G 
FT067710 
FT067720 
FTQ67730 
FT067740 
FT067750 
FT0_67760 
FT067770 
FT067780 
Ft 067790 
JFT067800 
FT067810 

r--i" e\ * -_■ rt <-» IS 
r I WO IO_U 

"~Ff067830 
FT067840 

'F"f06"7850 
FT 06 7860 



EJECT 

ARITHMETIC_STATEMENT FUNCTION DEFINIIION._ _ 

REM 

THE EQUIV ENTRY FOR AN ARITHMETIC STATEMENT FUNCTION HAS THE 



ARITH. STATE. FN. STACK LOCATION IN THE ADDRESS* AND BINTF IS 
TURNED ON. THE MODE OF THE FUNCTION IS SET IN THE PREFIX. 



FT06737G 
FT06788G 
FT067890 
FT067900 
FT067910 
FT067920 
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REM 

THE ARGUMENTS AND OTHER I NFORMA TION FOR_ EACH FU NCTION ARE KEPT 
IN A STACK IN POOL. THE STACK IS INITIALLY FORMED AS FOLLOWS... 
THE_FIRST .WORD CONTAINS THE EQUIV ENTR Y WITH THE ADDRES S ALTE RED 
TO CONTAIN THE DEFINITION OF THE FUNCTION (CURRENT VALUE OF 
PCQUNT). THE SECONDWORD HAS THE CO LUMN 1 MO DE I N ITS ADDRESSt 
AND THE POOL POINTER TO THE END OF THIS STACK IN THE DECREMENT. 
SUBSEQUEN T WO RDS CONTAIN THE_BCD_ NAMES OF THE DUMMY ARGU MENTS. _ 
IF AN ARGUMENT IS REAL AND THE COLUMN 1 MODE IS «D» OR 
ONE EXTRA CELL IS SKIPPED TO AID IN LATER FO RMING CAL LING 
SEQUENCES TO THIS FUNCTION. 
REM 



THE FLAG CELL ARITFN CONTAINS THE LOCATION OF THE STACK 
IN ITS ADDRESS. 



REM 

AS THE STATEMENT IS SCANNED, THE LIST OF DUMMY ARGUMENTS IS 



FT067930 
FT067940 
FT067950 
FT067960 
FT067970 
FT067980 
FT067990 
FT 06 8 GOO 
FT068010 
FT068020 
FT06803G 
FT068040 
FT068050 
FJ068G6G 
FT068070 
FT068080 



SEARCHED WHENEVER A VARIABLE NAME IS ENCOUNTERED. 

W HEN A DU MMY NAME IS LOCATED, THE ASTACK ENTRY IS SET TO 



CONTAIN A BARIT BIT {BIT 15). 

THIS WILL CAUSE THE^ CODE ROUTINE TO PICK UP S UCH ARGUM ENTS 

FROM THE CALLING SEQUENCE INDIRECTLY (WHENEVER POSSIBLE). 

RfL*L 

AFTER THE STATEMENT IS PROCESSED, THE DUMMY ARGUMENT NAMES IN 

THE STACK ARE REPLACED WITH EQUIV-LIKE MODE DESIGNATIONS. 

REM 

GET THE RETURNED WORD FROM LOCATE ROUTINE 
ERROR IF ALREAOY IN SYMTAB 

„„„________ 

RESTORE THE SAVE CELL 



SCAN A A CLA 


SCAN5B 


TMI 


»+2 


ERROR 


78,SKEND 


SIL 


BINTF 


STI 


SCAN5B 


CAL 


NXTLOC 


4T T * 
O i rt 




CAL 


SCAN5B 


SLW 


EQUIV, 4 


REM 




to I 


PROCSW 


RIL 


BXEQ 


STI 


PROCSW 


REM 




LXD 


FIRSTF,1 


TXL 


**2,1,0 


ERROR 


89,*+l 


REM 




LXA 


NXTLOC, 1 


SXA 


ARITFN, 1 


SLW 


P0QL,1 


CAL 


PCOUNT 


STA 


P00L,1 


CAL 


MODFLG 


STA 


POGL-1,1 


TXI 


*+l,l,2 


TXI 


♦♦1,2,-1 


REM 




SCANAC TSX 


SCNBCD,4 



FT068090 
FT068100 
FT068110 
FT068120 
FT068130 
FT068140 
FT068150 
FT068160 
FT068170 
FT068180 
FT068190 
FT068200 
FT068210 
FT068220 



GET POOL POINTER 

SET SAVE CELL ADDRESS 



TO START OF STACK 



RESTORE THE EQUIV WORD 



GET THE PROCESSOR SWITCH 

TURN OFF THE"Yx~ECUTABl^~STAf"EMENT BIT 

RESTORE SWITCH 



JDETERMINE THAT NO EXECUTA BLE STATEMENT 
HAS ALREADY OCCURRED. 



GET POINTER TO START OF STACK 



SAVE POINTER AND MARK THIS AS AN ARITH FN. 

SET DESCRIPTOR WO RD IN THE STACK 

DEFINE" THE FUNCTION, AND SAVE THE 
DEFINITION IN THE FIRST STACK ADDRESS 
SAVE THE MODE IN THE SECOND STACK ADDRESS 



BUMP POINTER 

SKIP THE LEFT PAREN (ALREADY CHECKED FOR) 



GET AN ARGUMENT 



FT068230 
FTG6824G 
FT068250 
FT068260 
FT068270 
FT0682&0 
FT068290 
FT068300 
FT068310 
FT068320 
FT068330 
FT068340 
FT06835G 
FT068360 
FT068370 
FTQ68380 
FT068390 
FT068400 
FT068410 
FT068420 
FT068430 
FT068440 
Ff068450 
FT068460 





TMI 
SLW 
REM 
NZT 
TRA 


ERRORS 
POOL,l 


MUST BE SYMBOLIC 
SAVE IN THE STACK 


FT068470 
FT068480 




DBLMOD 
SCANAJ 
=HIOOOOO 


IS THIS A DOUBLE-LENGTH STATEMENT. 

NO 

YES. IF THIS IS A REAL VARIABLE, 


FT068490 
FT068500 
FT068510 
FT068520 




TRA 
LAS 


*+l 
=HNUU( 


THEN SKIP A CELL IN THE STACK 

SO THAT THE CALLING SEQUENCE WILL 


FT068530 
FT068540 




TXI 
NOP 


*+2,l,l 


COME OUT RIGHT. 


FT068550 
FT068560 


SCANAJ 


REM 
SKIP1 


CMCHAR 


IS IT A COMMA. 


FT068570 
FT068580 




TXI 
CAL 


SCANAC,1,1 
COLUMN, 2 


YES. GO GET ANOTHER ARGUMENT 
GET NEXT TWO CHARACTERS, AND 


FTQ68590 
FT068600 




ERA 
ARS 


24 


DETERMINE THAT THEY ARE )= 


FT068610 
FT068620 




TNZ 
REM 


ERR0R7 




FT068630 
FT068640 




LXA 
SXD 


SCAN5B,4 
SCANAF.l 


GET THE START OF STACK 

SET TEST INSTRUCTION DECREMENT 


FT068650 
FT068660 




PXD 
STO 
TXI 
SXA 
REM 
LDI 
RIL 
STI 
CAL 
SLW 
AXT 
REM 


,1 

PQOL-1,4 


TERMINATION OF STACK 

SAVE END-QF-STACK IN 2ND WORD DECREMENT 


FT068670 
FT068680 





*+i,i 5 i 

NXTLOCi 

POOL, 4 

BINTF 

ASTACK 

ASF KEY 

ASTACK-1 

1,1 


BUMP POOL POINTER 

ALL DONE. RESET THE POOL POINTER 

GET THE DEFINITION WORD FROM STACK 


FT068690 
FT068700 
FT068710 
FT068720 




RESET THE INTERNAL FUNCTION BIT 
PUT INTO THT FIRST ASTACK WORD 


FT068730 
FT068740 




GET OPERATOR KEY FOR ARITH. ST. FUNCTIONS 
PUT INTO SECOND ASTACK WORD 


FT06875C 
FT068760 




SET ASTACK POINTER TO PROPER VALUE 


FT068770 
FT068780 




TSX 
TXI 


CITBLE,4 
GETNXT,2,-2 


TELL CITBLD OF START OF ARITH. STATE. FN. 
GO TO COMPIL ROUTINE, AND SKIP THE )= 


FT068790 
FT068800 
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EJECT 

NUMBER .PROCESSOR^.. __ 

"THIS ROUTINE IS ENTERED WHEN 
IS A DIGIT. IF TH E COLUM N 1 
SECTION IS 
IS SCANNED 



THE INITIAL 
MODE IS "8« 



ENTERED. OTHERWISE , ANY INTEGER PART OF THE 
OFF AND COMPUTED. WHEN A NON-DIGIT C HARACTER I S 



FTQ68S10 

FT068820 

CHARACTER SCANNED FT068830 
. THE OCTAL CONS T ANT SCANFTQ6884Q 

NUMBER SFTQ68850 
FT068860 



PAGE 189 



ENCOUNTERED, THIS INTEGER SECTION IS EXITED. IF THE CHARACTER 
IS NOT A DECIM_AL POINT. OR AN_H, THE IN TEGER IS STASHED IN CONTAB 
AS A FIXED POINT DECREMENT INTEGER. 

REM _„.., 



FT068870 
FT068880 



TF~THE "CHARACTER IS AN H, THE HOLLERITH LITERAL SCANNER IS 
ENTERED, WITH THE C OMPU T ED INTEGER BEING JHE CHARACIERjCWNJi 
REM 

IF THE CHARACTER 

FLOATING POINT SCANNER IS 
ENTERED WHEN THE ORIGINAL 



AFTER THE INTEGER IS A DEC IMAL POINT, TH E 



"ENTERED. THIS SECTION IS ALSO 
SCAN IDENTIFIES A DECIMAL POINT. 



„__«_ n „_ pART |- jp- ANY } OF THE NUMBER IS SCANNED OFF. 

THE BINARY EQUIVALE NT OF EACH DIGIT OF THE F RACT ION IS COMPUTED 



FT068890 
FT068900 
FT068910 
FT068920 
FT068930 
FTG6_8940 
FT068950 
FT068960 
FT068970 
FT068980 



1Y~MULT I PLYING IT BY THE APPROPRIATE FULL WORD FIXED POINT 
POWER OF 10 UN DOUBLE PRECISION), AND ADDIN G THE RESULT TO 



* 
* 

* 

* 

* 



WE PREVIOUS FRACTION COMPUTATION. IF THE INTEGER PART IS 
ZERO, ANY LEADING FRACTIONAL Z EROES ARE COUNTED^^ND^IHE 



FRACTION "COMPUTATION BEGINS WITH THE FIRST NON-ZERO DIGIT, 

AS IF IT WERE THE DIGIT REPRESENTING 10**-1. ... _ 

IF AN E IS ENCOUNTERED, THE EXPONENT IS SCANNED OFF. THIS 
EXPONENT IS COMBINED WITH THAT_ONE GENERATED JECAUSE__OF^ ANY 
LEADING "FRACTIONAL ZEROES. WHEN THE END OF THE CONSTANT IS 
ENCOUNTERED, THE INTE_GER AND FRACTION, AR_E_ COMBINED AND 
NdRMALIZED IfTrST N0N-ZERC3 BIT IN POSITION 9). THE RESULTING 
DOUBLE PRECISION CONSTANT IS MULTIPLIED J OOUBiE_PREC_lSiON_>_ BY 
THE APPROPRIATE POWER OF 10 AS SPECIFIED BY THE PREVIOUSLY 
COMPUTED EXPONENT. (A FLO ATI NG POINT T RAP M AY OCCUR HERE... 
ANY REGISTER INVOLVED IS SET TO ZERO.) 

IF THIS IS A SINGLE PRECISION OR COMPL EX STATEMENT, TH E HIGH- 
ORDER PART^TThT CONSTANT TS ROUNDED AND STASHED IN CONTAB. 
IF DOUBLE PRECISION, BOTH PARTS 0^ THE CONS TANT ARE ST ASHED. 



SCAN! 



SPACE 
CAL 



2 

MODFLG 



SCANIT 



SCAN1X 



SCANIA 



ERA 

REM 
CLA 
ARS 
STO 
REM 
STZ 
STZ 
STZ 
STZ 
STZ 
REM 
TXI 
CAL 
ARS 
SLW 
J.AS 
TRA 
MACER 
REM" 
CLA 



= 1 
SCNOCT 

C0tU«N,2 

30 
INTG 

EXPONA 
DECPT 
FRAC 
FRAC+1 

EXPON 

»+l,2,-l 
COLUMN, 2 
30 

CHAR 
= 10 
SCAN1B 



INTG 



GET THE COLUMN 1 FLAG 

IS If A BOOLEAN STATEMENT. 

YES. NUMBER MUST BE OCTAL 



RESET 
OUT 



DOUBLE PRECISION FLAG 



GET NEXT CHARACTER 



♦GEEATER THAN 
MACHINE ERROR. 

ANOTHER DIGIT 



10 
OCTAL 



FT068990 
FT0690J5G 
F TO 690 10 
FT069020 
JFT069030 
FT069040 
FT069050 
FT069060 
FT069070 
FT069080 
FT069090 
FT069100 
FT069110 
FT069120 
FT069130 
FTO69140 
FT069150 
FT069160 



12 FROM DECIMAL TAPE 



FT069170 

FT069190 
F TO 69200 
"FT069216 
FT04922O 
FT069230 
FT069240 
F TO 692 50 
FT069260 
FT069270 
FT069280 
FT069290 
FT069300 
FT069310 
FT069320 
Ft 069330 
FT069340 
FT069350 
FT069360 
FT069370 
FT069380 
FT069390 
FT069400 



ALS 
ADD 



ALS 
ADD 
STO 
TRA 



2 

INTG _ 

1 

CHAR 

INTG 

SCANIA 



"MULTIPLY OLO DIGITCS) 8Y 10 AND 

ADD ON THE NEW DIGIT 



*G0 BACK FOR MORE 



REM 
SCAN18 LAS 




TXI 



REM 
CAL 



ALS 

SCAN1Z TSX 



STA 
CAL 



ANA 

* LS 

ORA 

ORA 



TRA 
SPACE 



REM 
SCAN1C Axr 



STL 

TXI 



CAL 

ARS 



TNZ 
TXL 



ZET 
TRA 



CLA 
SUB 



TSX 

REM 
L'DQ 
HPY 



=Hogooq. 
#+2 

SCAN1C 

=HOOOOOH 

*+2 



WHAT IS NEW CHARACTER 



FT06941G 
FT06942G 
FT06943Q 
FT069440 
FT069450 
JHT069460 
FT069470 
FT069480 
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♦DECIMAL POINT 



TsTtHIS A POSSIBLE HOLLERITH FIELD. 



SCANHT^T^l "YES. ADJUST COLUMN POINTER AND GO SCAN L 



INTG 



ENTER INTEGER INTO CONSTANT TABLE 



18 
ASC0N1,4,INTEGR 



PUT CONSTANT INTO CONTAB 



FT069490 
FT069500 
FT069510 
FT069520 
ITFT069530 
FT069540 
FT069350 
FT069560 
FT069570 
FT069580 



SCAN14 
,4 



^=07000000 

15 

= 1817 

SCAN14 

SCANX 

6 

21, 1 
DECPT 

JL + _L»2t-l 

COLUMN, 2 
30 



BUILD KEY WORD. 

GET _MOD^ BUS 

SAVE ONLY THE MODE BITS 
TO LEFT END OF THE WORO 



SAVE CONTAB POINTER 



FTG69590 
FT069600 



ADD THE CONSTANT FLAG BIT 
ADD CONTAB POINTER 



RETURN AND "EXIT FROM SCANNER 



FLOATING NUMBER 

SEJ K = ^i D OUBLE PRECISION 

DEC I MAL PO I NT " E NCOUNT ERE D 



SCAN1M 
SCAN1M,!, 
INTG 
S CAN1 M 
EX PON A 
= 1 



20 



FT069610 
FT069620 
FT 06 96 30 
FT069640 
FT06965Q 
FT069660 
FT069670 
FT069680 
FT069690 
FT06970G 
FT069710 
FT069720 
F TO 697 30 
FT069740 
FT069750 
FT069760 



FT069770 
FT069780 



EXPONA 
SCAN1C+3, 

"=io*'~ 

-SCATUE 




2,-1 



»ftCm»NtmERTC 
MACHINE ERROR 



OCTAL 12 FROM DECIMAL TAPE 



TURN OFF OVERFLOW INDICATOR 



FRAC+1 
FRAC+1 
* + 2 
AF,4 

SYMBOL+3 
F10L,1 



FT069790 
FT069800 
FT069810 

FT 069 8 30 
FT069840 
FT069850 
FT069860 
FT069870 
FT069880 
FT069890 
FT069900 
FT069910 
FT069920 
FT069930 
FT069940 
FT069950 
FT069960 
FT069976 
FT069980 
FT 069990 
FT070000 



LRS 

ADD_ 

STO 

TOV 
ADD 



31 

FRAC 

FRAC 



STO 

im 

TSX 

JiA 

TRA 
REM 



A 



CLA 

ADD 

STO 

TNG_ 

MACER 
REM 

SCAN1E ERA 
_ TZE 

SCAN1J CAL 
ORA 



ORA 
LDQ 
TZt 

REM 
CLA 
AMIR STO 
LDI 
LFT 
TRA 
LFT 
TRA 
REM 



CLA 
LDQ 



LLS 
STO 



* 

FRAC+1 
FRAC+1 
*+2 

af ,4 

*+!,!, 1 



STEP POWER 



SCAN1C+2 

FRAC - 
= 1 



GO BACK FOR MORE 



FRAC 
1,4 



MUST BE OFF 



OVERFLOW LOGIC ERROR 



=H0GOQOE 
SCAN1D 



IS IT E 
♦YES 



INTG 
FRAC 



FRAC+1 

=0 
SCAN1Y 



IS FLOAT ING POINT HORD ZERO 

ERASE THE GARBAGE IOM. _MQ 
YES 



=0233000000000 SET INITIAL 

symbol normal i ze the 
TnTg 

777000 
SCAN1P 
400 



EXPONENT 
FLOATING 



POINT NUMBER 



*G0 TO SHIFT RIGHT 



SCAN1Q 

SHJJFT 

INTG 
FRAC 



*IT IS NORMALIZED 



LEFT 



1 
INTG 




34 

FRAC+1 

1 

FRAC 

FRAC+1 

SYMBOL 

= 1B8 

SCAN1R 



SHIFT RIGHT 
FRAC 
=1 
35 

INTG 
1 

INTG 
FRAC 
SYMBOL 
= 1B8 
SCAN1R 

NUMBER 
FRAC 



IS NORMALIZED 



APPEND MACHINE EXPONENT 



FT070010 
FT070020 
FT070030 
FT070040 
FT070056 
FT070060 
FT07007Q 
FT070080 
FT070090 

FTG70li6 
FT070120 
FT070130 
FT070140 
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FT070150 
FT070160 
F TO 70 170 
FT070180 
F TO 70 190 
FTO 70200 
FT070210 
FT070220 
FT07023Q 
FT070240 



FT070250 
FT070260 
FT070270 
FT070280 
FT070290 
FT070300 
FT070310 
FT070320 
FT070330 
FT070340 
FT070350 
FT070360 



FT070370 
FT0703S0 
FT070390 
FT070400 
fT070410 
FT07a420 
FT070430 
FT070440 
FT07045G 
FT070460 
FT070470 
FT070480 
FT070490 
FT070500 
FT070510 
FT070520 
FT070530 
FT070540 
FT070550 
FT070560 
FT070570 
FT070580 
FT070590 
FT070600 





ORA 


SYMBOL 




SUB 


= 27BS 




XCA 






CLA 


INTG 




ORA 


SYMBOL 




STO 


FRAC 




STQ 


FRAC+1 




CLA 


EXPQN 



ADO 
LAI 
TRA 
NOP 



ADD 

PAX 



RFT 
TRA 



REM 
SCAN1N FRN 
TSX 
TfU 
REM 
SCAN1S FRN 
SLW 

jaj 

TSX 
REM 
it, AN ID TXI 
AXT 
CAL 
AKS 
LAS 
TRA 
TRA 
LAS 
TRA 
TRA 
REM 



EXPONA 

=38 

SCAN1F 



•EXCESSIVE EXPONENT SIZE 



=2B2 
.4 





LDQ 

FMP 


FRAC 
P10M,4 




STO 
STQ 


SYMBOL+1 
SYMBOL+2 




LDQ 
FMP 


P10M,4 
FRAC+1 




FRN 
UFA 


SYMBQL+2 



FRN 




STO 


SYMBOL+2 


LDQ 


FRAC 


FMP 


P10L,4 


FRN 




UFA 


SYMBOL+2 


FRN 




FAD 


SYMBOL+1 


REM 




SuANLY LDI 


MODFLG 


RNT 


2 


TRA 


SCAN1N 



IS THIS A DOUBLE-LENGTH STATEMENT 
NO. SINGLE PRECISION 



SCAN1S 



DP OR CA. 
YES. 



IS THIS COMPLEX STATEMENT 



TSX ASC0N2,4,REAL PUT DOUB. PREC. CONSTANT INTO TABLE 
TRA SCAN1Z+1 PREPARE THE KEY WORD 



ROUND THE SINGL E-PRECi^ 



ASCdNiV47REAr" REAL CONSTANT 
SCAfUZ^i PREPARE THE KEY WORD 



CX2 

CXFLAG _ _ _____ 

CXI " NO, 
SCANlZ+l t 4,REAL 



ROUND THE PART O F C OMPLEX CON STANT 

SAVE VALUE OF CONSTANT 

HAS ONE PART OF CONSTANT ALREADY BEEN GOT 



FT070610 
FT070620 
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FT070630 
F TO 70640 
FT 07 06 50 
FT070660 



FT070670 
FJG7068G 
FT 07 06 90 
FT070700 
FT070710 
FT070720 
Ff070730 
FT070740 



FT070750 
FT070760 



•+l,2t-l 

ERR071,4 

C0LUMN»2 

30 

=H00OO0+ 

*+2 

SCAN1G 

=H0Q000- 

* + 2 

SCAN1H 



E ENCOUNTERED. GET NEXT CHARACTER 
GET PROPER TRANSFER ADDRESS 



WHAT I S T"I 



*+ 



FT070770 
FT 070780 
F TO 70790 
FT070800 



SAVE IN FIRST-PART CELL 

BUILD ASTACK WORD. NO CONSTANT ST ASH 



FT070810 
FT070820 
FT670830 
FT070840 
FT070850 
FT070860 
FT070870 
FT070880 
FT07089G 
FJ070900 
F f 070910 
FT070920 
Ff070930 
FT070940 
"F TO 709 50 
FT070960 
FT070970 
FT070980 



FT070990 
FT071000 
FT 07 10 10 
FT&71G2£ 
FT071Q30 
FT071040 
FT071050 
FT071060 



FT071070 
FT071080 
FT071090 
FT071100 
FT071110 
FT071120 
F TO 7 1130 
FT071140 
Ft 07 1150 
FTQ7 1160 
FT071170 
FT071180 
FT071190 
FT071200 



SCAN1K 



SLW 
SXA 



LAS 
TRA 



CHAR 
*+2»4 
= 10 

*# 



SET TRANSFER ADDRESS 



ADDRESS SET PREVIOUSLY 



MACER 
CLA 



MACHINE ERROR. OCTAL CHARACTER 12 



ALS 

ADD 
ALS 
ACL 



STO 
AXT 



SUAN1G 



SCAN1H 



TXI 

AkS 
JM. 

REM 
CLS 



EXPON 

2 

EXPON 

1 

CHAR 

EXPON 

SCAN1J.4 

*+l,2,-l 

COLUMN, 2 

30 

SCAN1K 



GET PROPER TRANSFER ADDRESS 



=0 



- AFTER E 



SCAN1F 



STO 

TRA 

REM 

ERROR 

LGR ~ 

TRA 

REM 

REM 



EXPON 
SCAN1G 

72,*+l 

74 

SCAN1Y 



ZERO EVERYTHING 

PUT OUT A ZERO CONSTANT 



FLOATING POINT TRAP ROUTINE 



ifPT). 



EXFPT 



SCNflCT 



TRA 

LDI 

LFT 

ERROR 
------ 

ZAC 
LDQ 
TRA*_ 
SPACE 



* + l 



4 

72,EXFPT-2 

2 

=0 




CELL 8 TRA INTO FPT ROUTINE 
GET THE TRAP WORD 



IS IT OVERFLOW. 

YES. PRINT MESSAGE AND CONTINUE 

IS IT AC AND MQ. 

YES. ZERO THE ACCUM 

ZERO THE MQ 

RETURN 



OCTAL CONSTANT SCANNER 



REM 
STZ 
SXA 
AXT 



iNTG 

SCNOC272" 

13,4 



/eon rue rnMCTAMT um nco 



SAVE THE COLUMN POINTER 



CAL 
TXI 



LGR 

TNZ 



COLUMN, 2 
»+l,2,-l 

SCN0C1 



NOT AN OCTAL CHARACTER 



REM 
CAL 
LGL 
SLW 



INTG 

"3 "~ 

INTG 



TIX 


SCNOCT+2,4,1 


ERROR 


72,SKEND 


REM 




^CNOCl LGL 


3 


LAS 


=HOOOOJH 


TRA 


*+2 


TRA 


SCN0C2 


LAS 


=060 


TRA 


♦ + 3 


TRA 


SCNOCT+2 


LAS 


=012 


CAL 


INTG 



MOVE DIGIT INTO NUM8ER 
RESTORE THE PARTIAL INTEGER 



OCT AL NUMBER TOO BIG FOR _COMPUT ER 

RESTORE THE WHOLE CHARACTER 

IS IT AN H. 

NO 

YES. HOLLERITH LITERAL 

IS^IT A BLANK. 

NOT PREPARE TO EXIT 
YES. SKIP THE BLANK 



IS THIS AN ILLEGAL OCTAL DIGIT 
NO. PREPARE TO EXIT 



FT071210 
FTG71220 
FT07123G 
F TO 71240 
FT071250 
FT071260 
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FT071270 
FT071_280 
FT071290 
FJ071300 
Ff07l310 
FTG7132Q 
FT071330 
FT071340 
FT07I350 
FT071360 
FT071370 
FT071380 
FT071390 
FT071400 
FT071410 
FT071420 
FT07i43d 
FT071440 
FT07145C 
FT071460 
FT071470 
F JJ>JJA8G 
FT071490 
FT071500 
FT071510 
FT 071520 
FT071530 
FT071540 



FT071550 
FTG71560 



FT071570 



FT071590 
FT071600 
FT071610 
FT071620 
FT071630 
FT071640 
FT071650 
FT071660 
F TO 71 670 
FT071680 
FT071690 
FT071700 
FT071710 
FT071720 
FT071730 
FT071740 
FT071750 
FT071760 
FT071770 
FTQ71780 
F TO 71 790 
FT071800 





TXI 

ERROR 


SCANlN+1,2,1 

4.SKEND 

**j2____ ^ 

Jr ^^> r\ ' i A. ! 


PUT IN CONTAB AS A 'REAL' NUMBER 
ILLEGAL OCTAL DIGIT. ERROR 

HOLLERITH LITERAL. RESTORE THE COLUMN 
POINTER AND RETURN FOR LITERAL SCAN 


FT071810 
FT071820 


SCM0C2 


REM 
AXT 


FT071830 
FTQ7184G 




TRA 
REM 


FT071850 
FT071860 
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* 
» 

ft 

ft 
* 
# 
* 
* 
a- 
* 

* 
# 
* 
* 
* 

* 
ft 

* 

* 
* 



EJECT 
HOLLERITH 



LITERAL 



SCANNER. 

WHEN 



AND SINCE THE LITERAL 
NECESSARY TO SCAN THE 



THIS SCANNER IS ENTERED WHEN A FIXED POINT INTEGER IS FOLLOWED 

BY_ THE CHARACTER H. SINCE THE FORM OF THE STATEMENT AS IT 

APPEARS IN 'COLUMN* CONTAINS NO BLANKS , 

MAY HAVE _BLA_NK CHARACTERS, IN IT,_IT IS 

ORIGINAL STATEMENT (IN •CARD") TO OBTAIN THE LITERAL. 
THE COUNT OF NON-BLANK CHARACTERS THUS FAR ENCOUNTERED 
(DOWN THROUGH THE H) IS THE COLUMN POINTER ( XR 2). THIS SAME 
^U_MBI R QF_ NON-BLANK C HAR ACTERS JJ> SCANNE D OFF THE CA RD ARRAY. 

"""OF 



THE CORRECT NUMBER OF HOLLERITH CHARACTERS IS THEN 
FROM CARDt A_ND PACKED JO THE LEFT TO FORM CONSTANT 
IF THIS IS NOT IN A SUBPROGRAM CALLING 
WORD IS STASHED IN THE CONSTANT TABLE. 



SCANNED 
WORD(S), 



SEQUENCE, ONLY 
IF THIS IS IN 



SOANH 



.CANHO 



SCANH4 
SCANH3 

5CANH1 



SuANHC 



SEQUENCE, ALL THE SCANNED CHARACTERS ARE STASHED (6 TO A 
CONTAB. IN THIS LATTER CASE, A WORD OF ALL SEVEN S (OCTAL) 
IS ADDED TO THE end" OF THE LITERAL. 
REM 



ONE 

A CAL LING 
WORD) I 



INFORMATION IS SAVED TO ENABLE A RESTART OF THE SCAN FROM 
THIS LITERAL, IN CASE ANOTHER LITERAL IS ENCOUNTERED IN THIS 



FT071870 
FTD7188Q 
FT071890 

f!Q7190p 
FT07I910 
FT071920 
F TO 71 930 
FT071940 
FT071950 
FT071960 
FT071970 
FT071980 
FT071990 
FT072000 
NFT072010 
FT072020 
FT072030 
FT072040 
FTQ7205G 
FT072060 
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SAME STATEMENT. 

REM _ _ , . 

notT That literals in double precision and complex statements 
are usually meaning less, but allowied nevertheless, also, 
while t literals in boolean statements will not work correctly 
in ibm's fortran compiler, th ey will function c orrectl y in 

FASTRAN. 



SPACE 
SXD 
ZET 
TRA 
REM 
STL 
AXT 
AXC 
AXT 
LDQ 
REM 
ZAC 
LGL 
"ERA 
TZE 
REM 
TXI 
TXL 
REM 

Tix 

TXI 

REM 
SAVE 
STQ' 
REM 
"REM" "* 
AXT 
SXA 
LXA 
REM 
CAL 
LDCi 
XEC 



2 

SCANH4,2 
HFLAG 
SCANH2 

HFLAG 
0,1 
1,2 
6,4 



IS THIS THE FIRST LITERAL OF STATEMENT. 
NO. PICK UP THE SCAN WHERE WE LEFT OFF 



CARD, 2 



6 

=H00"000"" 

SCANH3 

• 4-1,1,-1 
SCANH1.1, 



YES. FIRST TIME IN STATEMENT 

SET NON-BLANK CHARACTER COUNT TO ZERO 

SET FOR FIRST" WORD OF STATEMENT 

SET BYTE CO UNT TO 6 

GET STATEMENT WORD 



FT072070 
FJ072080 
FT072090 
FT072100 
FT07211Q 
FJ072120 
FTQ72130 
FJ072140 
FT 0721 50 
FT072160 
FT072170 
FT072180 
FT072190 
FT072200 



** 



SCANH0,4,1 
SCANHO-2,2, 

SCANH2 
SCANHT 



COLUMN, 1 
SCANHA.l 
INTG,l 

CARD,2 
CARD +1,2 
SCANHB,4 



IS IT A NON-BLANK CHARACTER. 
NO 

YES. UP THE NON-BLANK CHARACTER COUNT 
HAVE CORRECT NUMBER "OF NON-BLANK 
CHARACTERS BEEN FOUND YET. 
NO. IS tHIS WORD USED UP. 

YES. GET NEXT WORD ON CARD 

SAVE MQ AND XRS FOR POSSIBLE RESTART 



NOW 
PUT 



SCAN OFF THE LITERAL 

•COLUMN' INTO INSTRUCTION ADDRESS 



GET NUMBER OF HOLLERIT H CHA RAC TERS N EEDED 
GET CURRENT WORD FROM CARD 



ALSO GET NEXT WORD 
LEFT-JUSTIFY THE LITERAL 



FT072210 
FT072220 
FT072230 



FT072250 
FT072260 
FT072270 
FJ0J2280 
FT072290 
FT072300 
FT072310 
FT072320 
FT072330 
FT072340 
FTC72350 
FT072360 
FT072370 
FT072380 
FT072390 
FT072400 
FT072410 
FT072420 
FT072430 
FJ072440 
FT072450 
FT072460 



TXH 

REM 


*+3,l,5 


SKIP IF LITERAL FILLS WORD (OR MORE) 


FT0724T0 
FT072480 




ANA 
ORA 


SCANT 1,1 
SCANT2,1 


SAVE ONLY PERTINENT CHARACTERS 
ADD TERMINAL BLANKS 


FT072490 
FT072500 
FTQ72510 
FT072520 
FT072536 
FT072540 




REM 
SuANHA SLW 


*# 


SAVE WORDS IN THE COLUMN REGION 
BUMP ADDRESS OF THE STORE WORD 




CAL 
ACL 


*-l 
= 1 




STA 

REN 


*-3 


RESTORE THE ADDRESS 


FT072550 
FT072560 
FT072570 
FT072580 




TXI 
TIX 


*+l,2,-l 
SCANHC,1,6 


BUMP »CARD» WORD COUNTER BY 1 

RETURN IF MORE LITERAL CHARACTERS NEEDED 




REM 
LAC 


SCANHA.4 


GFT COUNTER FOR NUMBER OF LITERAL WORDS 


FTQ7259Q 
FT0726GQ 
FT072610 
FT072620 
FT072630 
FT072640 
FT072650 

TFT072660 
FT072670 
FT072680 
FT072690 
FT072700 
FT072710 
FT072720 
FT072730 
FT072740 

"F TO 727 50 
FT072760 
FT072770 
FT072780 




TXI 
LXD 


Hi, 4, COLUMN 
SCANH4,2 


GET RID OF ALL BUT THE WORD COUNT+1 
RELOAD THE COLUMN POINTER 
INITIALIZE TO SIX BYTES PER WORD 
GET A WORD FROM THE STACK 




AXT 
LDQ 


6,1 
COLUMN-1,4 




REM 
SCANHF ZAC 




COUNT NUMBER OF NON-BLANK CHARACTERS IN LI 




LGL 
ERA 


6 
=HOOOOO 


SHIFT IN A CHARACTER 




!Z£ 
TXI 
TIX 
TXI 


*+2 

*+l,2,-l 
SCANHF,1,1 
*+l»4,l 


SKIP IF A BLANK 
ADJUST THE COLUMN POINTER 
"RETURN IF NOT DONE WITH THIS WORD 
BUMP THE WORD COUNT 




TXH 
REM 
CAL 
NZT 
TRA 
REM 


SCANHF-2,4,0 

COLUMN""" 

CALLFG 

SCAN1N+1 


RETURN FOR ANOTHER WORD IF NECESSARY 

'N^-BLANITCOUNT DONE. GET WORD OF LITERAL 
CAN THIS BE IN A SUBPROGRAM ARGUMENT LIST* 
NO. GO STASH THE LITERAL 




LXA 
TXH 

LDQ 


INTG,1 
.SCANHD_tlf6 

ALLSVN 


YES, POSSIBLY. GET NUMBER OF CHARACTERS 
IF MORE THAN ONE WORD, GO USE THE 
BRUTE-FORCE STASHING ROUTINE. 
TERMINAL WORD FOR SUBROUTINE ARGUMENTS 


FT072790 
FT072800 
FT072810 
FT072820 


— • 


XCL 
TSX 


ASC0N2,4,REAL 

= 1 

SCAN1Z+1 


EXCHANGE TO EFFECT CORRECT STASHING 
GO STASH CONSTANT 


FT072830 

FT072850 
FT072860 




SUB 
TRA 


POINTER POINTS TO WRONG WORD OF THE PAIR 
PREPARE ASTACK WORD _. 




REM 

TvCrfT 

SCANHO LXA 
SXA 


NOCONT, 4 
SCANHG,2 
Ot2 
COLUMN, 2 


L&H& LITERAL. BRUTES-FORCE STASHING. USED 
GEf PRESENT NUMBER OF CONSTANTS IN TABLE 
SAVE THE COLUMN POINTER 


Ft 072 8 70 
FT0JZ880 
FT072890 
FT072900 
FT072910 
FT072920 
FT072930 
FT072940 
FT072950 
FT072960 
FT072970 
FT072980 
FT 072990 
FT073000 
FT073010 
FT073020 
FT073030 
FT073040 
FT073050 
FT073060 




AXT 

SCANHV CAL 


GET A WORD OF THE LITERAL 




SLW 
TXI 


C0NTAB,4 
*+l,4, 1 

SCANHH»4,N0a 
«+l»2,-l 
SCANHV, 1,6 

ALLSVN™"" 

C0NTAB.4 

* +1,4,1 

SCANHH,4,N0Cf 

NOCONT 

N0C0NT,4 

**,2 

SCAN1Z+1,4,RI 


PUT INTO THE CONSTANT TABLE 
BUMP TABLE POINTER 




TXH 
TXI 

fix 

REM 


4ST RESET TABLE IF FULL, AND PUT OUT MSG 
BUMP THE LITERAL WORD COUNTER 
STASH ANOTHER WORD IF MORE TO GO 




1q A L 

SLW 


"TTRWlNAlT'WORb' "FOPT'SUBROUT INE CALLS 
STASH IT 




TXI 

TXH 
CAL 
SXA 
SCANHG AXT 
TSX 


tfST RESET TABLE IF FULL, AND PUT OUT MSG 
ADDRESS OF ACCUM GETS THE START OF STRING 
RESET NOCONT TO ITS NEW VALUE 
RESTORE THE column POINTER 

EAL GO PREPARE THE ASTACK WORD 
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REM 

SCANHH AXT 


FT073070 
0,4 RESET TABLE IF FULL FT073080_ 
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STR 
SPACE 


MSG1GG,,SCANHG-1 ERROR MESSAGE FT073090 
2 FT073100 




REM 
LGL 


SHIFT TABLE FT073L10 
6 FT073120 




LGL 
LGL 


12 FT073130 
18 FT073140 




LGL 
LGL 


24 FT073150 
30 FT073160 




LGL 

SCANHB EQU 


36 FT073170 
* FT073I80 




REM 
SGANH2 RESTOR 


FT073190 
ENTER HERE FOR ALL BUT FIRST TIME IN STATE, FT073200 




LDQ 
TRA 


SCANHT FT073210 
SCANH3 FT073220 





SCAM13 
SCAN3A 



EJECT 
.OPERATOR 
SPACE 
REM 
CAL 
TXI 



SCANNERS 



= SIGH PROCESSING 



LXA 
TRA 



"SCAN20 



SPACE 
REM 
CAL 
TRA 



EQLKEY 

»+lt2,-l 

SCANX*1 

3,4 

3 

PLUSKY 
SCAN3A 



SPACE 
REH 



+ PROCESSING 



- PROCESSING 



SCAN33 



LDQ 

_c_r% 

TXl 

TXH 



STZ 
CAL 
ERA 
TZE 
TXI 
REM 



COLUMN+1,2 

SCANT, 1,1 

E~RR079,1,SCAN1-1 

ERRQ79,1,SCAN1 

INTG 

MODFLG 



GET NEXT CHARACTER 



NON-NUMERIC ERROR 



FT073230 

FTG73240 

FTG73250 

FT073260 

F f 0732 70 

FTQ73280 

FT073290 

FT073300 

FT07331G 

FT073320 

FT073330 

FTG7334G 

FT073350 

FT073360 

FT073370 

FT073380 

FTO 73390 

FT0734G0 
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FT07341G 
FT073420 



SPACE 
REM 



SCAN34 



CAL 
TRA 



SPACE 
REM 



= 1 

ERRQ79 
SCAN IX ,2 , 1 

3 

RPNKEY 
_SCAN3A 

3" ~™ '" 



ADJUST COLUMN POINTER SO THAT 
NUMBER SCANNER WJ L L CATCH THE 

) PROCESSING 



THE 
DECIMAL 



- PROCESSING 



SCAN40 



CAL 
TRA 



UNEGKY 
SCAN3A 



FT073430 

FT07344CL 
FT 07 3450 

P0INTFJTQ73460 
'F TO 73470 
FT073480 
FT073490 
FT073500 
FT073510 
FT073520 
FT073530 
FT073540 



SPACE 

REM 



SCAN54 



CAL 
ERA 



COLUMN+1,2 
=H* 



^processing 
* sTgn ~""~~ 



ARS 


30 


TZE 


*+3 


CAL 


MPYKEY 


TRA 


SCAN3A 


" " ~ RE~M" 




CAL 


EXPKEY 


TXI 


SCAN3A,2,-1 


SPACE 


3 


REM 




SCAN6Q TXI 


SCANA,2,-1 


SPACE 


3 


REM 




SCAN61 CAL 


DIVKEY 


TRA 


SCAN3A 


SPACE 


3 


REM 




SCAN 7 3 CAL 


CMAKEY 


TRA 


SCAN3A 


SPACE 


5 


REM 




Si,AN74 CAL 


LPNKEY 


TRA 


SCAN3A 


"'SPACE 


5 


REM 





* ONLY 



•♦ 



BLANK PROCESSING 



/ PROCESSING 



PROCESSING 



( PROCESSING 



END-QF-STATEMENT PROCESSING 



FT073550 
FT07356p_ 
FT073570 
FTG7358G 
F T 073590 

r \\j i jouw 

FT 07 3610 

FJO 73620 

FT0T3630 

FTG7364G 

FT073650 

FT073660 

FTO 73670 

FT073680 

Ft 07 3690 

FJ073700 

FTO 737 10 

FT073720 

FTO 7 3730 

FT073740 

FTO 73750 

FT073760 

FT073770 

FT07378G 

FTO 73 790 

FT073800 

FT073810 

FT073820 



SCAN77 LXA 
TRA 


SCANX, 1 
1*4 


SPACE 
* ILLEGAL 


6 

FIRST CHARACTER 


REM 
SUAN2 ERROR 


77,SKEND 



FTG7383G 
FJG7384G 
FT073850 
FT073860 
F f 073370 

FT073880 



PAGE 199 



# 


TTL PASS 1 - SUBSCRIPT SCANNER 
THIS ROUTINE SCANS A SUBSCRIPT EXPRESSION AND PREPARES A 


FT073890 
FT073900 




* 


SUMMARY 
REM 

CALLING 
WHERE 

REM 


OF THE DATA 

jfc WUfc HlL»fc • • e 

XR2 POINTS 
XR1 HAS THE 


NEEDED TO COMPUTE THE SUBSCRIPT, 


FT073910 
FT073920 




* 
* 


TSX 1INDEX,4 
ro THE BEGINNING OF THE SUBSCRIPT PROPER. 


FT073930 
FT073940 
FT073950 
FT073960 
FT073970 
FT073980 
" FT 073990 
FT074000 




* 


ASTACK POINTER 




i INDEX 


REM 
SXA 


1INDX1,4 








SXA 
AXT 
STZ 
TIX 
REM 
CAL 
STA 
PAX 


1INDX1+1,1 
.£NT-.STT,4 
.ENT f 4 
*-l,4,l 


ZERO THE WORKING CELLS 








FT074010 
FT074020 






ASTACK, 1 

1IND16 ' 
,4 


GET SYMBOL REFERENCE 


FT074030 
FT074040 
Ft 074050 
FT074060 
FT074070 
FT074080 






SAVE POINTER FOR POSSIBLE USE LATER 






CAL 
PAX 


EQUIV, 4 
t4 


EQUIV POINTER 






REM 
CAL 


P00L-1,4 


GET DIMTBL INFORMATION 


FT074090 
FTG74100 






ARS 
STA 


18 

DIMl 

15 

DIMN 


FIRST DIMENSION 


FT074U0 
FT074120 
F TO 74 130 
FT074140 






ARS 
STA 


NUMBER OF DIMENSIONS 






REM 
CAL 
ARS 
STA 


POGL-2,4 

18 

DIM2 


GET NEXT DIMENSION, IF ANY 
SECOND DIMENSION 


FT074150 
FT074160 
F TO 74 170 
FT07418G 
FT074190 
Ff 074200 
FT074210 
FT074220 






REM 
AXT 

Tsx 

TMI 
REM 
LAS 


Otl 

SCNBCD,4 

1INDX2 

=HIOOOOO 


XR1 BUMPED FOR EACH NEW SEGMENT 




HNDX4 


GET VARIABLE OR CONSTANT 
CONSTANT 




11 MD 13 


CHECK FOR FIXED POINT 


FT074230 
FT074240 






TRA 
LAS 


* + l 
=HNi C ( ( i 




FT074250 

r i v f -rtov 






ERROR 
HACER 


12,*+2 

SYMSTO,4 
VARB, 1 
VIND,1 

COLUMNty 
•+1,2,-1 


NOT FIXED POINT 
MACHINE ERROR 

FIX UP SYMBOL 

SAVE EQUIV POINTER 
SAVE EQUIV WORD 


FT074270 
FT074280 
Ff074290 
FT074300 
FTC74310 
FT074320 
F TO 74330 
FT074340 
FT074350 
FT074360 






REM 
TSX 






SLW 
STI 

REM 
REM 
CAL 
TXI 
ARS 
STZ 
LAS 
TRA 












GET BREAK CHARACTER 






30 

ASIGN 
=HQ0000+ 
* + 2 




F TO 743 70 
FT074380 
FT074390 
FT074400 
FT 0744 10 
FT074420 
F TO 74430 
FT074440 






IS IT PLUS SIGN. 






TRA 
REM 
STL 
LAS 
fRA 

TRA 

R pf 

LAS 


1INDX5 

ASIGN 
=H00000- 

•+2" 

1INDX5 
=HO0OO0) 


YES 






NO. INDICATE A POSSIBLE MINUS SIGN 
IS IT A MINUS SIGN. 






YES 


FT074450 
FT074460 
FT074470 
FT074480 




i A NDX6 


IS IT CLOSING PAREN. 
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TRA 


*+2 




FT074490 




TXI 


1INDX3*1,1 


YES. SCAN COMPLETED 


FT074500 




REM 






FT074510 




ERA 


=HOOOOO, 


NO. IS IT A COMMA, 


FT074520 
FT074530 




TNZ 


1IND16 


ILLEGAL FORM OF SUBSCRIPT 




TXI 


1INDX4,1,1 


RETURN FOR ANOTHER SUBSCRIPT 


FT074540 
FT074550 




REM 






UNDX5 TSX 


SCNBCD»4 


GET CONSTANT 

ERROR. NOT A CONSTANT 


FT074560 
FT074570 




TPL 


1IND16 




REM 






FT074580 
FT074590 




TSX 


BCDFIX,4 


CONVERT CONSTANT 




ZET 


A SIGN 


SET SIGN OF CONSTANT 


FT074600 
FTO 746 10 




SSM 






ARS 


18 




FT074620 




1INDX7 STO 


CADO»l 


ADDITIVE CONSTANT 


FT074630 




REM 






FTO 74640 
FT074650 




CAL 


COLUMN»2 


GET BREAK CHARACTER 




ARS 


30 




FT074660 




TXI 


1INDX6,2,-1 


GO TEST BREAK CHARACTER 


FT074670 




REM 






FT074680 




11NDX2 TSX 


BCDFIX,4 


CONSTANT MULTIPLIER 


FT074690 




ARS 


18 




FT074700 
FT074710 


__ 


xct 




SAVE THIS CONSTANT 




REM 






FT074720 
FTO 74730 




CAL 


C0LUMN,2 


GET BREAK CHARACTER 




ARS 


30 




FT074740 




LAS 


=H00000* 


IS IT AN ASTERISK. 


FT074750 




TRA 


*+2 




FT074760 




TXI 


*+3,2,-l 


YES 


FTO 74770 




XCL 


1INDX7 


GET THE CONSTANT AGAIN 


FT074780 
FT074790 




.____ 






REH 




CONSTANT IS A MULTIPLIER 


FT074800 
FT074810 




STQ 


CMLT,1 




TSX 


SCNBCD,4 


ASTERISK. GET VARIABLE 


FT074820 




TPL 


1IND13 


PROCESS REST OF EXPRESSION 


FT074830 




TRA 


1IND16 


NOT A VARIABLE. ILLEGAL FORM 


FT074840 




REM 






FT074850 








•*...» -~ .- « , *^ * ... »»»•«•"*,»»■»»-«.»« »-«■* J"» i i. ri i~ i"» <"» f f»T At 1 «-k > »l"" *** 


r- tt r\-f /. r» <_ n 




1IMDX3 TXL 


1IND14-I,l,i 
t'l 


AMY bllMbLY-UintNiiUNtU iUDiWiri mllumcu 


FT074870 




PXA 






SUB 


DIMM 
1IND14 


CHECK FOR CORRECT DIMENSIONING OF SUBSCRI 


PTFT074880 
FTO 74890 




TZE 


CORRECT NUMBER OF DIMENSIONS 




REM 






FT074900 




1IND16 AXT 


** f 4 


GET SYMTA8 POINTER 


FT074910 




CAL 


SYMTAB.4 
FQRM42+6 


GET BCD NAME OF OFFENDING ARRAY 


FT074920 
FTO 74930 




SLW 


PUT INTO ERROR MESSAGE 




ERROR 


42,SKEND 




FT074940 
FT674950 




REM 








SXA 


DIMN.1 


FOR PSEUDO-SINGLY DIMENSIONED ARRAYS 


FT074960 




UNO 14 LUQ 


=0 


COMPUTE THE CONSTANT ADDEND 


FT074970 




CAL 


= 2 

DIMN 




FT074980 
FT074990 




LAS 


HOW MANY DIMENSIONS. 




TRA 


1INDX8 


ONE DIMENSION 


FT075000 
FT075010 




TRA 


1INDX9 


TWO DIMENSIONS 




REM 






FT075020 




CLS 


= 1 


THREE DIMENSIONS 


FT075030 




ADO 


CADD-2 


THIRD ADDITIVE CONSTANT 


FT07504G 




XCA 






FT075050 




MPY 


DIM2 


TIMES SECOND DIMENSION 


FT075060 




REM 






FT075070 




IINDX9 XCA 






FT075080 
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SUB 


= 1 




FT075090 






ADO 


CADD-1 


SECOND ADDITIVE CONSTANT 


FT075100 






XCA 






FT075110 






MPY 

"rem" 


0_IM1„_______ 


TIMES FIRST DIMENSION 


FT075120 

FT075130 










IIN0X8 


XCA 






FT075140 
Ft 0751 50 






ADD 


CADD 


FIRST ADDITIVE CONSTANT 






PAC 


t4 


TAKE COMPLEMENT FOR POSITIVE CONSTANT ADD. 


FT075160 
FT075170 






TPL 


*+2 






PAX 


t4 


FOR MINUS CONSTANT ADDEND 


FT075180 
FT675190 






TXI 


*+l»4,l 


ADD ONE FOR ARRAYS 






SXA 

REM 


CON ADD, 4 


CONSTANT ADDEND 


FT075200 










FT075210 






CAL 


=2 


GET CONSTANT MULTIPLIERS FOR ISTACK 


FT075220 






LAS 


DIMN 




FT075230 






TRA 


IINDIO 
1IND11 


ONE DIMENSION 


FT075240 
FT075250 






TRA 


TWO DIMENSIONS 






REM 






FT075260 
.FT075270 






HIT 


VIND-2 


THREE DIMENSIONS, IS THERE A 3RD VARIABLE 






TRA 


1IND11 


NO, 


FT075280 
FT075290 






REM 










LDQ 


DIM2 


YES 


FT075300 






MPY 


DIM1 




FT075310 






ZET 
MPY 


CMLT-2 


IS THERE A THIRD MULTIPLIER. 


FT075320 
FT075330 






CMLT-2 


YES 






STQ 


SAV3 


SAVE THIRD CONSTANT 


FT075340 
FT07535G 






REM 






UNOli 


NZT 
TRA 


VIND-1 
IINDIO 


IS THERE A SECOND VARIABLE. 


FT075360 






NO. 


FT075370 






REM 
LDQ 


DIM1 




FT075380 
FT07539G 






YES. 






ZET 


CMLT-1 
CMLT-1 


IS THERE A SECOND MULTIPLIER. 


FT075400 
FT075410 






MPY 


YES 






STQ 

REM 


..SAV2__ 


SAVE SECOND CONSTANT 


FT075420 








FT075430 




UNDID 


NZT 


VINO 


IS THERE A FIRST VARIABLE. 


FT075440 






TRA 


IBUILD 


NO. PROCEED TO BUILD ISTACK 


FT075450 






UAL 




to rtirnr * r infT mih i-tnt t c r» 


FT075470 






THl 


*+2 








CAL 


= 1 


NO MULTIPLIER EXPLICITLY GIVEN 


FT075480 
Ft 075 4 90 






SLW 


SAV1 






— ~ ■ ■ 


R£M 




NOW GO BUILD THE ISTACK ENTRY 


FT075500 
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EJECT 

THIS SECTION 



BUILDS THE I STACK ENTRY. 



THE FORM OF THE ENTRY IS.. 
FIRST WORD ADDRESS 



HAS THE ASTACK 



POINT E R. T HE _ 

NEXT UNUSED" 



DECREMENT MAY CONTAIN THE ADDRESS OF THE 

SIX-WORD ISTACK ENTRY, 

SECOND WORD IS THE ORIGINAL ASTACK WORD. " 

THIRD WORD ADDRESS IS THE CONST ANT_ADDE_ND_. 

FOR A SUBSCRIPT WHICH REQUIRES NO EXTRA CODE, THE 

THIRD WORD DECREMENT HAS THE EQUIV POINTER (IF ANY) 

FOR THE SINGLE VARIABLE INVOLVED" (THIS ISTACK WORD HAS A 

MINUS SIGN). 



FT075510 
FT07552G 
FT07553G 

EI075540 
FTO 75 5 50 

FT075560 



IF CODE MUST BE GENERATED TO COMPUTE THE SUBSCRIPT, 
THE THI RD WORD DECREME NT HAS _ ZERO UNXIL THE CODE IS 
GENERATED, AT WHlCH I IME IT 
OF THE WORKING CELL USED TO 



FTQ75570 
FT075580 
FT075590 
FTQ75600 
FT075616 
FT075620 
FT075630 
FT075640 



WILL RECEIVE THE 
COMPUTE AND HOLD 



SUBSCRIPT. THE ISTACK WORD HAS A PLUS SIGN FOR 
IF THE SUBSCRIPT HAS ONLY A CONSTANT ADDEND, THE 

SIGN). 



NUMBER 
THE^ 
THIS 



DECREMENT OF 



ALSO IF CODE 



THE THIRD WORD IS 
MUST BE GENERATED 



ZERO (PLUS 
TO COMPUTE 



THE SIGN OF THE FIRST ISTACK WORD IS MADE MINUS. 



ONE 
THE 



OR MORE OF THE NEXT 
LINEAR COEFFICIENTS 



SUBSCRIPT 
ANY WORDS 



THREE WORDS MAY 
(IN DECREMENTS) 



CONTAIN 
FOR THE 



VARIABLES (EQUIV POINTERS" 
NOT USED ARE ZEROED OUT. 



PART OF THE ISTACK ENTRY. 



THE ASTACK ENTRY GETS THE ADDRESS 
ADDRESS FIELD, AND A NON-ZERO TAG 



UF THE 
FIELD. 



BE 



THE ISTACK ENTRIES ARE LINKED TOGETHER SO THAT THEY MAY 
RE-USED FOR EACH STATEMENT. THE LINKING DIRECTOR IS THE CELT 
JSTKFG, WHICH WILL CONTAIN THE START OF ISTACKS IH ITS ADDRESS 



AND THE ADDRESS OF 
IN ITS DECREMENT. 



THE LAST-USED (IN THIS STATEMENT) ISTACK 
THIS CELL IS INITIALIZED TO ZERO AT THE 



FT075650 
FT075660 
CASEFT075670 
FT075680 
FT075690 
JHE_ SUBSCRIPT, FTO 75700 
FT075Y10 
PLQ75720 
FT075736 
FT075740 
FTQ75750 
FT075760 
FT075770 
F J0J5780 
FT07579Q 
FT075800 
FT075810 
FT075 820 
FT075830 
FT075840 



IN ADDRESSES). 
THEY ARE STILL 



ISTACK ENTRY IN ITS 



BEGINNING OF EACH COMPILATION. ON ENTRY TO THE COMPIL ROUTINE, 
THE DECREMENT IS SET EQUAL TO THE ADDRESS. 



ENTRYFT075850 
FT075860 



REM 
REM 



IbUILD CAL 
ACL 



CMLT 

VIND-2 



ACL 
SLW 

REM 
LXA 



CAL 
PDX 
TXH 
REM 
LXA 





STD 




TXI 




SXA 




TXI 




REM 


IELD2 


SXA 



LXA 
LDQ 



VINO-1 
ASIGN 

ISTKFG,! 
POOL,! 
,4 
iBLD2,4,d 

NXTLOC, 4 
t4 

POOLti 
*+l,4,6 
NXTLQC,4 
»+l,4»-6 

ISTKFG, 4 

UNDXlTl,! 

ASTACK,! 



IF THESE THREE WORDS ARE ZERO T THE 
SUBSCRIPT I S JUST A VAJRIAfiLf .IN THE 
FIRST DIMENSION POSSIBLY PLUS A CONSTANT 



GET 
GET 
GET 



ADDRESS^ OfL LAST-USED ISTACK ENTRY 

FIRST WORD OF ENTRY 

LINKER TO NEXT ISTACK ENTRY 



SKIP IF NON-ZERO 

NO MORE AVAILABLE SPACE. GET NEW SPACE 



SET LINKER INTO PREVIOUS ISTACK ENTRY ~ 

BUMP NXTLOC 

RESET NXTLOC 

AND RESTORE THE POINT ER 

SET JHE FLAG TO C URRENT ISTACK ENTR Y USED 
RESTORE XR1 (ASTACK POINTER) 
GET ASTACK WORD 



FT075870 

C T r\ ~» c- n n .f\ 
MUI300U 

FT 075 890 
FT075900 
FT075910 
FID 75 920 
FTC75930 
FT075940 
FT075950 
FT075960 
FT075970 
FT075980 
FT075990 
FTO 76000 
FT076010 
FTO 76020 
FT076030 
FT076040 
FT076050 
FT076060 
FTO 760 70 
FT076080 
FT076Q90 
FT076100 
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STQ 
PXA 


POOL- 1,4 
,4 


PUT INTO SECOND ISTACK WORD 
PUT POINTER INTO ACCUM 


FT076110 
FT076120 
FT076130 
FT076140 
FT076150 
FT076160 
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STA 

COM 


ASTACK»1 


SET ASTACK POINTER TO ISTACK 




STT 

REM 


ASTACK,! 


NON-ZERO TAG INTO ASTACK 




PXA 
STA 


,1 
POOL, 4 


GET ASTACK POINTER 

PUT IN ADDRESS OF FIRST ISTACK WORD 


FT076170 
FT076180 
FT076190 
FT076200 
FT076210 
FTC76220 




STP 
REM 


POOL, 4 


ERASE ANY PREVIOUS SIGN BIT 




ZAC 
ZET 


ASIGN 


DETERMINE IF ANY CODE IS NEEDED 




TRA 
CAL 


IBUIL1 
VIND 


YES. CODE IS NEEDED. 

GET A POSSIBLE FIRST VARIABLE 


FT076230 
FT076240 
FT076250 
FT076260 
F TO 76270 
FT076280 
FT 076290 
FT076300 




TZE 

REM 


*+3 


IF ZERO, SUBSCRIPT IS ONLY A CONSTANT 




CLS 
ALS 


VARB 
18 

CONADD 
POOL-2,4 


GET VARIABLE EQUIV POINTER 
TO DECREMENT 




1BUIL1 ORA 
STO 


INSERT THE CONSTANT ADDEND 

PUT C.A. AND POINTER INTO ISTACK 3RD WORD 




REM 
ZET 


ASIGN 


IS CODE NEEDED. 


FT076310 
FT076320 
FT076330 
FT076340 
FT076350 
FT076360 
FT076370 
FT076380 
FT 6 76 3 90 
FT076400 
FT076410 
FT076420 
FT076430 
I FT076440 




TRA 
REM 


IBUIL2 


YES. CONTINUE BUILDING ISTACK 




liNDXl AXT 
AXT 


**, 4 
**,1 




TRA 
REM 

™ """"REM 

IBUIL2 PXA 


1,4 

,4 
,1 


._ - --- - — • - — ■ — — — - 




PAX 
REM 






CLS 
STO 


POOL,l 
POOL,l 


SET" SIGN MINUS IN FIRST POOL WORD. 

THIS INDICATES THAT CODE MUST BE GENERATED 

TO COMPUTE THE SUBSCRIPT 




REM 

REM 




FT076450 
FT076460 




STZ 
STZ 


POOL-3,1 
POOL-4,1 




FT076470 

rtmt Aon 
r l v * o'f'O w 

FT076490 
FT076500 
F TO 765 10 
FT076520 
FT076530 
FT076540 
FT076550 
FT076560 
FT076570 
FT076580 
FT076590 
FT076600 
FT076610 
FT076620 
FT076630 
FT076640 
FT076650 
FT076660 
FT076670 
FT076680 
FT 076690 
FT076700 




STZ 
REM 


POOL-5,1 






TXi 
CAL 
TZE 
ALS 


*+l,l,3 
SAV1 
IBUIL3 
18 


GET FIRST MULTIPLIER 
SHIFT INTO DECREMENT 




TSX 

ALS 


ASC0N1,4 
18 


PUT CONSTANT INTO CONSTANT TABLE 
MOVE POINTER INTO DECREMENT 




ORA 
SLW 


VARB 

POOL,l 

*+l,l,l 

SAV2 
IBUIL4 
18 
ASC0N1,4 


ADD IN EQUIV POINTER FOR FIRST VARIABLE 
MAKE ISTACK (POOL) ENTRY 




TXI 
REM 


BUMP POOL POINTER 




TUJIL3"CAL 
TZE 






ALS"""""" 
TSX 






ALS 
ORA 
SLW 
TXI 

REM 
IbUIL4 CAL 


18 

VARB-1 
POOL,l 
♦+1,1,1 

SAV3 


OR IN NEXT EQUIV POINTER 
PUT INTO ISTACK 





TZE 
ALS 


1INDX1 
18 




FT076710 
FT076720 


TSX 
ALS 


ASC0N1,4 
18 

VARB-2 
PGGL,1 




FT076730 
FT076740 


ORA 
SLN 


ADD IN THIRD EQUIV POINTER 
PUT INTO ISTACK 


FT076750 
FT076760 


TRA 


1INDX1 




FT076770 
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EJECT 
ROUTINE 



TO PRODUCE CODE NECESSARY TO EVAL UATE A SUBSCRIP T, 



FT076780 
FTG76790 
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ENTRY IS.,. 

CAL ISTACK. POINTER 
TSX ~I CODEX ,V 
RETURN, THE DECREMENT OF 



THE THIRD ISTACK WORD HAS THE 



ON 

WORKING CELL" POINTER WHERE THE RESULT OF THE COMPUTATION 
IS STORED, IF ANY CODE WA S PRODUCED. 



ICQDEX 



REM 
REM 
SAVE 
STZ 



TXICOD 
ASIGN 



PAX 
CLA 



,2 

POOL, 2 



TPL 
REM 



EXICOD 



TXI 

SXD 



*+l,2,3 
1IND24,2 



TXI 
TSX 



*+l,2,2 
STORE, 4 



1IND15 



REM 
TSX 
SLH 

REM 
CAL 
TZE 
PAX 
ARS 
"CODED 
REM 
NZT 
TRA 



GETWRK,4 



TEMPX 



POOL, 2 

1IND19+1 

,L 

18 

LDQ,C 

ASlGN 
1IND27 



1IMD27 



REM 

COD ECO 
RE>""~ 
LDI 



EQUIV,! 



PXA 
LFT 



,1 

8ARG* 



iiND25 



TRA 

REM 

COOEO 

R6M 

NZT 

TRA 



1IND18 
*MPY f V 



ASIGN 
1IND19 



REM 
CODECO 



1IMD19 



1IN024 



HHD22 



fcXlCOD 



STL 

REM 
TXL 
TXI 
REM 
CODEC 
CODECO 
REM 
CAL 
ALS 
"St D 
J*ESTQR 
TRA 
REM 



ASIGN 



♦ ♦ 



*+2 f 2j 
1IND15.2, 

ALS17,N 

"STO", TEMPX, W 

TEMPX 

18 

POGL+1,2 

1,T 



INITIALIZE FLAG CELL 



GET ISTACK POINTER 
G ET FIRST ISTAC K WO RD 
EXIT IF NO CODE IS NEEDED 



FTO 76800 
FT076810 
FTQ76820 
FT076830 
FTO 76840 
FT076850 
Ft 076860 
FT07687G 
FT076880 
FT076890 
FT 076 900 
FT076910 



BUMP POINTER AND SET DECREMENT OF TEST 



SET POINTER TO 
MUST STORE OFF 



BOTTOM OF STACK 

ANY CURRENT REGISTER 



FTG76920 
FT076930 
I'NSTFTO'76940 
FT076950 
Ft 076960 
FT076970 



GET A WORKING CELL 



SAVE 

GET MULTIPLIER" 
MO CODE HERE 



GET EQUIV POINTER 

MOVE CONTAB POINTER INTO ADDRESS 

"CODE IS... LDQ CONSTANT 



HAS 

NO 



CODE "ALREADY BEEN PRODUCED. 



STO, TEMPX, W CODE IS, 



STO TEMPORARY 



GET EQUIV WORD FOR VARIABLE 



EQUIV 
IS IT 



POINTER 

A PARAMETER 



CODE IS. 



MPY VARIABLE 



HAS 

NO 



CODE ALREADY BEEN PRODUCED. 



ADD, TEMPX, W CODE IS 



ADD TEMPORARY 



SIGNAL THAT CODE HAS BEEN PRODUCED 



DECREMENT WAS SET EARLIER 
LOWER POINTER AND RETURN 



CODE 
CODE 



IS. 

is. 



ALS 

STO 



17 

TEMPORARY 



WORKING CELL POINTER 

SHI FT INTO DECREMENT 

SET 3RD IStACK WORD DECREMENT TO WRK PTR 



FT076980 
FT076990 



FTO 77000 
FJ077010 
FT077020 
FT077030 
FTO 7 7040 
FTO 7 7050 
FT077060 
FT077070 
FT 077080' 
FT077090 
FT077100 
FT077110 
FT077120 
FT077130 



FT077140 

ir-rf\~r~rt en 

r I v i i a j sj 

FT077160 
FTO 77170 
FT 077 180 
FTQ77190 
FT07720C 
FT077210 
Ft 077 220 
FT077230 
FTO 77240 
FT077250 



FT077260 
FT077270 
FT077280 
FT077290 
Ff0F7300 
FT077310 
FT077320 
FT077330 
FT077340 
FT077350 
FT07736G 
FT077370 
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AiMlB TSX_ PROLOG, 4 PREPARE. PROLOGUE E NTRIES FTG7739G 

CODEC MPY»N CODE IS... MPY ** FTQ77400 
IRA^ _.1IND25 _ FT0774X0 



TTL ARITHMETIC COD E K E 7""g~E~N E R aTFs 

6EN_R0UTINE, -ffl^gMXiM_BUILgS THE CODE GENERA TQR_K£V WORD 

.«^«...^.«. •OPERATOR/OPERAND 



^^ "SEQUENCE" •OPERAND/OPERATOR/OPERAMOi OR -urcKAiuK/uftK 

2?«..c T « T T ^ E „ ,op ^ator/operand« cf^THK7~murm^-rwmr' 

MINUS AS THE OPERATOR. 

REM ~ " — — 



IKE. FORM ,.OF_ THE GENERATED KEY WORD IS. • . 



BITS P»l-6 
BITS 7-9 
BITS 10-11 
BITS 12-14 
BITS 15-16 
BITS 17-35 



OPERATOR KEY CODE 

JiQPiL OF JLEFT-HAND OPERAND, IF ANY 
REGISTER LOCATION OF THlT™OPERAND 
MODE OF RI GHT-HAND O PERAND 



REM 



REGISTER LOCATION OF THIS OPERAND 
NOT USED 



F TO 77420 
FTO 77430 

•FT077440 
FT077450 
F f 077460 
FTO 7 7470 
FT 0774 80 
FT077490 
Ff677506 
FT077510 
FT077520 

_FT077530 
FTO 77540 
FT077550 



^IM^^-^ 1 ^ GEN ROUTINE, THE 



APPROPRIATE GENERATOR KEY TabITTs" 
A^MMD-jBjNA.ft Y SEA RCH). _If_TH £ PROP ER KEY IS NOT FOUND, 



AN" ERROR MESSAGE IS ISSUED7 

41^7^1^^^ T0 rHE ADDRESS 

rnnp rc E rJl" ™ E AD0RESS FIELD OF THE LOCAfirKEYTnTirPROPER 

XHg_APPLICA8LE GENERATOR KEY TABLE IS ESTABLISHED AT THE 

funnel ° F THE COMPILE" ROUTTnE^CCORdTnG TO THE COLUMN 

1 J^DE^OF THE STATEMENT. 



FT077560 
FT077570 
FTO 775 80 
FT077590 
FTO 77600 
FT077610 




Idc J?If" ENTRIES FOR THE LEFT-HAND ANT 0~Gl?T^WD 
■MJL PIACED I N THE CELLS ' A * AND «6' FO R USE BY THE CODE ROUTIMF 
ALSO, THE ASTAirOWFmE^Al^^ 
3 



SPACE 



8+1 



AUXFGi 
GJNXIT_|_4 

=0 "" 

ASTACK,! 



INDICATES ENTRY NOT FROM PLACE OR STORE 



ZERO THE m 
T^PER AND ~ENTRY~ 



FT077620 

^FJ077630 

Ft 077640 

FTQ77650 

FT077660 

JFT077670 

FTO 77680 

FT077690 

•Ff 077700 

FT077710 

FT077720 

FTO77730 



8EXTF+8INTF 

GEN 8 

B 

B+1,1 

34 



SET CELLS FOR THE" CODE ROUTINE 



FTO 77740 
JLT077750 
FT077760 
FTO77770 
Ff077780 

nun # vu 



33 

3 

AUXFGI 

GENlO,l f -2 
AUXlix "~ 
12 
GENU 

24/,7/AUXIL 
aSTACK,1 

A+l, 1 

19 

GEN1 



__ s Al p _TWO BIT S FOR B-QPERA ND REGISTER 
mv? BF r B DPEWAND^ — ~~ _ 

BUILD KEY WORD 

SKIP IF NOT FROM PLACE OR STORE-ROUTINES' 
.B-M-MP ASTACK POI NTER TOJ[HF «A« OPERAND 
GET OP KEY FOR PLACE~ ANDTfORE SEQUENCES 
FORM THE KEY WORD 



GET THE »A» "OPERAND" 



SET CELLS FOR CODE ROUTINE" 



GET OPERATOR FLAGJ[NTO LOW-ORDER BIT 

IS IT AN OPERATOR. " 

NO 



FT077800 
FT077810 
FTO 77820 
FTO 7 7.830 
FT077840 
FT077850 
FTO 77860 
FT077870 
Ft 077880" 
FT077890 
FT077900 
17077910 
FT077920 
FT077930 
FTO 77940 
FT077950 
FT077960 
FT077970 
FT077980 
FT077990 
FT 078000 
FT078010 
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REM 
TXI 


*+lt li 1 


YES. (MUST BE UNARY MINUS CODE SEQUENCE) 


FT078020 
FT078030 
FT078040 
FT078050 
FT078Q6Q 
FT078070 
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REM 
STZ 


A+l 


RESTORE THE ASTACK POINTER 
DELETE A-QPERAND INDICATIONS 






RQL 
CAL 
REM 
ARS 


31 
ASTACK,! 


ZERO OUT THE A OPERAND BITS 
GET THE OPERATOR 




Slim 2 


29 
7 


OPERATOR KEY 
BUILD KEY WORD 


FT078Q80 
FT078090 
FT078100 
FT078110 
FT078120 
FT078130 
FT078140 
FT078150 
FT078160 
FT078170 






LGR 
REM 
STQ 
NZT 
TRA 
REM 
CAL 
LAS 




GENII 


GEN6 

REGIST 

GEN5 


TEMPORARY SAVE 






SKIP IF NOTHING IN A REGISTER CURRENTLY 






REGIST+1 
B+l 


GET STACK POINTER FOR OPERAND IN REGISTER 
IS IT SAME AS B-OPERAND. 






TRA 
TRA 


*+2 
GEN3 


NO 
YES 


FT078180 
FT078190 
FT078200 
FT078210 
FT078220 
FT078230 
FT078240 
FT078250 
FT078260 
FT078270 
FT078280 
FT078290 
FT678306 
FT078310 
FT078320 
FT078330 
FT078340 
FT078350 






ERA 
TZE 


A+l 
GEN4 


IS IT SAME AS A-OPERAND. 

YES 






REM 
STQ 


STOSAV 


SAVE THE GEN6 WORD TEMPORARILY 






TSX 

CAL 
SLW 
TRA 
REM 
CAL 
ALS 
TRA 
"REM 

CAL 
ORS 


STDR£t4 
STOSAV 
GEN6 
GEN5 

REGIST 

19 

♦+3 

REGIST 

24 

GEN6 


MUST PUT REGISTER RESULT IN WORKING STORE 
RESET THE GEN6 WORD FOR THE ORIGINAL CODE 


— - - - 


GTN3 


GET CODE FOR REGISTER 




Gr^4 


MOVE INTO POSITION FOR B-OPERAND KEY 
GET CODE FOR REGISTER 






MOVE INTO POSITION FOR A-OPERAND KEY 
FORM COMPLETED KEY WORD 




GcN5 


REM 
SXA 
AXT 
AXT 
REM 
TXH 
CAL 
ANA 
REM 
LAS 
TIX 
TRA 


BEXIT,1 


SAVE XR1 


FT078360 
FT078370 




""""~B POWER 


*»,4 

**»1 

BR, 4,** 


GET POWER OF 2 LENGTH OF TABLE 

— «. — ««--•. *■» • •» r- t- * i *-*» tr r\ -r » m r r«r>"r %tf ft 4 * 
ilMillAL KAliC/LUIKCN IMOLC rUiNICi\ 

SKIP IF OUTSIDE THE TABLE 


FT078380 

i i v t %j~* ?v> 

FT078400 
FT078410 
FT078420 
FT078430 
FT078440 
FT078450 
FT078460 
FT078470 
F f 078480 
FT078490 
FT078500 
FT078510 
FT078520 
i FT078530 
FT078540 
FT078550 
FT078560 
FT078570 
FT078580 
FT078590 
FTb78600 
FT078610 


- - 


BAND 


=0777777700 
»*,4 

GEN6 

BLOWER, 1,1 
♦+2 


000 MASK 

AND WITH A WORD FROM THE TABLE 

COMPARE WITH THE KEY WORD 








ELEMENT ABOVE KEY. LOWER POINTER 
ELEMENT FOUND, OR END OF SEARCH 
ELEMENT BELOW KEY. RAISE POINTER 




BR 


TIX 

REM 


BRAISE, 1,1 

»*,1 

GEN6 
*», 4 

TTSKEND 

** f 4 

14 

"34' " 
3 




... b - xl y- 


AXT 
ERA 
TZE» 
REM 


RESTORE XR1 

TEST TO SEE IF EQUALITY FOUND 




&r^98 


IF EQUALITY FOUND, 60 PUT OUT THE CODE. 
DEPENDS ON GENERATOR KEYS HAVING ZERO TAG< 
NOT EQUAL. ERROR 

RETURN 




" GENXI 1 


ERROR 

REM 

AXT 

TRA 

REM 

ARS 

RQL 

LGR 




G^Nl 


BUILD THE KEY WORD 






ZERO OUT TWO BITS 

MODE BITS FOR A-OPERAND 





GcM9 


CAL 
LFT 


ASTACK-1, 1 
BEXTF+6INTF 


GET OPERATOR 
FLAGS MUST BE OFF 


FT078620 
FT078630 




TRA 
TRA 


*+2 

GEN2_ ^ 




FT078640 
FT078650 


GEN3 


REM 
PIA 


REGAIN THE ASTACK WORD 


FT078660 
FT078670 




PAX 
RFT 
CAL 
PAX 


t4 

700000 


POINTER 

IS IT SUBSCRIPTED. 


FT078680 
FT078690 




P00L-1»4 
,4 


YES. GET WORD WITH EQUIV POINTER IN IT 
GET EQUIV POINTER FOR SURE THIS TIME 


F TO 78700 
FT078710 




CAL 
SLW 


SYMTA8»4 
F0RM69 


GET BCD NAME OF OFFENDING SYMBOL 
PUT INTO ERROR MESSAGE 


FJ078720 
FT078730 




ERROR 
REM 


69,SKEN0 




FTG7874G 
FT078750 




REM 
PZE 


KEYT83+LKYTB3 


,,LKYTB3 COMPLEX ARITHMETIC KEYS 


FT078760 
FT078770 




P2£ 
PZE 


KEYTB2+LKYTB2 
KEYTB1+LKYTB1 


, ,LKYTB2 DOUBLE PRECISION KEYS 
,,LKYTB1 BOOLEAN KEYS 


FT078780 
FT078790 


G£NDES 


PZE 

REM 


KEYTBO+LKYTBO 


,,LKYTBO REAL AND INTEGER KEYS 


FT078800 
FT078810 




BSS 

REM 


4 


HOLDS POWER-OF-TWO LENGTHS OF THE KEY 
TABLES IN DECREMENT, AND STARTING VALUE 


FT078820 
FT078830 


GifNBIN 


REM 
EQU 


OF RAISE-LOWER TABLE POINTER IN ADDRESS, 
*-l SET DURING PRE-INITI ALIZATION. 
2 
USED IN THE BINARY SEARCH OVER THE KEY TABLES 


FT078840 
FT078850 


* 


SPACE 
LISTS 


FT078860 
FT078870 


- 


REM 
TXI 
TXI 
TXI 


BA, 4, 16384 

BA,4,8192 

BA f 4,4096 


TABLE FOR LOWERING THE SEARCH _POINT. . 


FT078880 
FT078890 
FT078900 
FT078910 




TXI 
TXI 
TXI 

TXI 


BA f 4,2048 
8A,4,1024 
BA,4,512 
BA,4,256 
""''BAV4il28~ 
BA f 4,64 


FT078920 
FT078930 






FT078940 
FT078950 




TXI 

TXI 




FT078960 
FT078970 




TXI 
TXI 
TXI 

rxi 

TXI 
TXT 
XEC 
REM 
TXI 
TXI 


BA,4,32 
BA,4,16 
BA,4,8 
BA, 4, 4 




FT078980 






FT079000 
FT079010 


Blower 


BA,4,2 
BA»4, 1 
•tl 

BA, 4, -16384 
BA f 4,-8192 




FT079020 
FTQJ9030 
FT079040 
FT079050 




TABLE FOR RAISING THE SEARCH POINT 


FT079060 
FT079070 




TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
XEC 


BA,4,-4G96 

BA*4,-2048 

8 A, 4,-1024 

BA,4,-512 

BA,4,-256 

BA,4,-128 

BA,4,-64 

BA,4,-32 

BA,4,-16 

BA,4,-8 

BA,4,-4 

BA,4,-2 

BA,4,-1 

•tl 




FT079080 
FT079090 






FT079100 
FT079110 






FT079120 
FT079130 




- - - - — — - - 


FT079140 
FT079150 
FT079160 
FT079170 
FT079180 
FT079190 


BRAISE 




FT079200 
FT079210 
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TTL OPEN F U 
ROUT INE TO GENER ATE 



NOTION KEY GENERATOR 
THE CODE KEY WORD FOR OPEN (BU I LT-IN) 



OPNGEN 



FUNCTIONS 
REM 



*} A #4 

LOQ 



0PN1,4 
=0 



SAVE RETURN POINT 
ZERO THE MQ 



CAL 
PA I 



AS TACK,! 



GET OPERAND 

SAVE THE ASTACK WORD 



LFT 
TRA 
SLW 
SXA 



BEXTF+BINTF FLAGS " MUST - BE OFF 



GEN8_ 

6 

B+1,1 



REM 
ARS 



33 



LGR 

IAL 

CAL 

PBT 



TRA 

RQL 



*4-J,,l»-2 
ASTACK, 1 

*+4 
31 



MW A STACK POINT ER TO NEXT ITEM 

_IS IT THE FUNC TION CODE YET, 

NO 



STZ 
TRA 



A+X 
OPNI 



REM 
PAI 
SLW 
SXA 
ARS 
RQL 
LGK 
REM 
LXA 
CLA 
LAS 
TXI 
REM 
TRA 



SAVE THE ASTACK WORD 



A 

A+l_,l 

33 

34 

3 

PNFLAG',4 
ASTACK, 4 
"=15B6 
NOT MAX ,1,-2 



GET KEY WORD AND LOSE HIGH-ORDER BIT 



IS IT MAX OR MIN FUNCTION. 
NO. RESTORE POINTER 



* + l 



MAX OR MIN FUNCTION 



ARS 
S TA 
CAL 

P8 JL 
TRA 

TX4 

REM 
CAL 
AXC 
TRA 



30 
MAXPTR 



MOVE KEY NUMBER AND DIVIDE BY TWO 



war max 



uPNl 



REM 

CAL 

PBf 

ERROR 

REM 

AXT 

SXA 

TRA 



ASTACK+2,1 

GPNl+1,-2 

ASTACK, 4 

0PNGEN,4 
0PN1+1 



ASTACK, 1 

7,SKEND 



GET «NEXT» ARGUMENT FROM ASTACK 



NOT THE OPERATION CODE 

NO MORE ARGUMENTS. GQ SET EXIT POINT 

GET OPERATOR KEY WORD 

GET RETURN POINT FOR MAX AND MIN CODE 

GO PUT OUT CODE 



FT079220 
FTG7923Q 
FT 079240 
FT079250 
FT079260 
FT079270 
FT079280 
FT079290 
FT079300 
FJ07931G 
FT079320 
FT079330 
FT079340 
FT079350 
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FT079360 
FT079370 
FT079380 
FT079390 



FT079400 
FT079410 



DELETE ANY A-OPERAND INDICATIONS 



FT079420 
FT07 9430 
FT079440 
FT079450 
FT079460 
FT079470 
FT079480 
FT079490 
FT079500 
FT079510 
FT079520 
f T079530 
FT079540 
FT079550 



FT079560 
FT079570 



FT07958C 



NOT MAX OR MI 



MUST BE ALL THE ARGUMENTS 



IF BIT IS OFF, THEN ERROR (MORE ARGUMENTS) 



**, 4 

GENXIT,4 

GEN9 



GET THE C URRENT EXIT POI NT FOR GEN 
SET SO 'RESULT* ROUTINE EXITS PROPERLY 
GO PUT OUT CODE 



FT079600 
FT07 9610 
FT 079620 
FT079630 
FT079640 
FT079650 
FT079660 
FT079670 
FT079680 
FT079690 
FTC79700 
FT079710 
FT079720 
FT079730 
FTO 79740 
FT079750 



TTL 

SUBROUT 

SPACE 

REM 

REM 

REM 



ARITHMETIC CODE 
INES CALLED BY THE GENERATORS. 
3 



GENERATORS 



REM 
REM 



i^TXXX 



SXA 
HIT 
TSX 
CAL 



TSX 

CAL 



iNTXX 



TSX 
AXT 
TRA 
SPACE 



REM 
REM 



XINTXX 



REM 
REM 
REM 
REM 
REM 
SXA 
NZT 
TSX 

nil 

TSX 

CAL 

TSX 

CODEN 

CAL 

"TSX 

CODEN 



XINTX 



CODEN 
AXf 



TRA 
SPACE 



F LCI XXX 



FL1XX 



s:di 



REM 

*€* 

REM 

REM 

REM 

SXA 

NZT 

TSX 

CODEN 

CAL 

TSX 

CA.L 
AXT 



TRA 

SPACE 

REM 

SXA 

CAL 

TSX 



ROUTINE TO OUTPUT THE SEQUENCE 
UFA =023300000000 



FAD -0233000000000 



INTXX.4 
FLAG)! 
SET. 1,4 
UFA)! 



HAS OCTAL 233000000000 BEEN ASSIGNEO_YET, 



NO- 



GO ASSIGN THE CONSTANT 



FT079760 
FT079770 
FT079780 
JFT079790 
FTO 79800 
FT 0798 10 
FT07982G 
JFJ079830_ 
FT079840 
FT079850 
FT079860 
FT079870 
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CITBLD,4,C 
FAD)1 

CIT8LD,4,C 
*» f 4 



1#4 
5 



ROUTINE TO OUfPUT THE SEQUENCE 
UFA =02330000 00000 



FT079880 
FT079890 
FT079906 
FT079910 
FT079920 
FT079930 
FT079940 
FT079950 



LRS 
ANA 



=0377777 



FT079960 
FT079970 



LLS 
ALS 



18 



XINTXt4 

FLAG)! 

SET.1,4 

FLAG) 2 

SET. 2, 4 

UFAll 

GITBLD,4,C 

LRS 

ANA|2 

CTtBLD,4,C 

LLS 



FT079980 
FT079990 
FT080000 
FT080010 
FT080020 
FT 0800 30 
FT080040 
FT080050 
FT080060 
FT080070 



FT080080 
FT080090 



ALS18 

**,4 

T74 

5 



FT080100 
FT08Q110 
FT080120 



ROUTINE TO OUTPUT 
LT*S IS 



YHE SEQUENCE 



ORA 
FAD 



=0233000000000 
=0233000000000 



FL0XX,4 

FLAGU 

SET. 1,4 

LRS18 

0RAJ1 

CITBLD,4,C 

FADU 

CITBLD,4,C 

**^4 

1,4 

6 



ROUTINE TO ASSIGN EXPONENT TO STORAGE 



EXSET1,4 

=0233000000000 
ASC0N1,4 



ASSIGN CONSTANT TO STORAGE 



FT080140 
FT080150 
FTO 80 160 
FT080170 
FT080180 
FT080190 
FT080200 
FT080210 
FTO8O226 
FJ080230 
FT080240 
FT080250 
FT080260 
FT080270 
FT080280 
FT080290 
FT08d3d"6 
FT080310 
FT080320 
FT080330 
FT080340 
FT080350 





STA 
STA 


FADH 
ORAll 
UFA)1 
FLAGU 


SET 
INS1 

SET 


THE ADDRESSES OF THE PERTINENT 
AUCTIONS 


FT080360 
FT080370 
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STA 
STL 


NONZERO FLAG 


FT080380 
FT080390 
FT080400 

FT080410 




£XS£T1 


AXT 
TRA 

REM 
EQU 
SPACE 
REM 


**,4 
1,4 

SETU 

6 


- - - - 






SUT.l 




FT080420 
FT080430 
FT080440 
FT080450 
FT08d460 
FT080470 
FT 080480 
FT080490 
FT080500 
FT080510 
FT080520 
FT080530 
FTG80540 
FT080550 
FT080560 
FT080570 
FTO8O580 
FT080590 
FT080600 
FT080610 
FT080620 
FT080630 
FTO 80640 
FT080650 
FT080660 
FT080670 
FT080680 
FT080690 






ROUTINE TO ASSIGN 0377777 TO STORAGE 




S£D2 


SXA 
CAL 


EXSETI, 4 

=0377777 

ASCQN1.4 

ANA) 2 

FLAGJ2 

EXSETI 


GET 
PUT 
PUT 


INTEGER MASK BITS 






TSX 
STA 
STL 
TRA 


INTO STORAGE 

POINTER INTO INSTRUCTION 






SET 


NONZfcRO FLAG 




SET. 2 


REM 
EQU 


SET) 2 










SPACE 

REM 


6 


ROUTINE TO OUTPUT A CALL ENTRY TO AN 






REM 
REM 
REM 
REM 
REM 
SXA 
CLA 
STL* 


- — 


EXTERNAL SUBROUTINE 
ENTRY... 








TSX OUTPTV, 4 

NAME. OF. SUBROUTINE 




_ OUTPTV 


0UTPTX,4 

1*4 

1#4 

=077777 

TSX4 




■ ■ - - — — 






ANA 
ORA 




ourpTX 


ORS 

CITBLD 

AXT 

TRA 

SPACE 

ROUTINE 

REM 

STL 


XRFLAG 

S 

**,4 

2,4 

6 

TO DETECT 









# 


CASES LIKE I = AND TURN OUT A STZ. 


FT080700 
FT080710 




STZTSO 


DVSTFG 


DOUBLE PRECISION ENTRY 


FT080720 

1 1 WW f J V 

FT080740 
FT080750 
FT080760 
FT.030770 
FT080780 
FT080790 
FT080800 
FT080810 
FT080820 
FT080830 
FT080840 
FT080850 
FT080860 
FT080870 
FTO 80880 
FT080890 
FT080900 
FT080910 
FTO 80920 
FT080930 
FT080940 
FT080950 






TRA 
REM 


* + 2 








STZTST 


STZ 

LOI 


DVSTFG 
B 


SINGLE PRECISION AND BOOLEAN ENTRY 
GET ASTACK WORD 






LNT 
TRA 


6CNST 
lt2 


IS THIS A CONSTANT 
NO. RETURN 






REM 
LXA 
ZET 
TRA 
REM 
ZET 
TRA 
REM 

CODE 
TRA* 
REM 
CLA 


B,4 

C0NTAB,4 

2,2 

DVSTFG 
STZTSl 

STZ, A 

1,2 

*+3 

CONTAB+1,4 

2,2 


YES. 

is" c 

NO. 


GET THE CONTAB POINTER 






INSTANT ZERO. 
RETURN 






IS T 
YES 

__ 
RETl 

GET 
SKIP 
IS S 

NO. 


HIS DOUBLE-LENGTH. 




STzrsi 


CODE IS... STZ A 
IRN, SKIPPING OTHER CODE 

THE CONTROL WORD 
» IF THIS IS THE D = I CASE 
ECOND PART ZERO. 
RETURN 






TMI 

ZET 






TRA 
REM 





COOSTZ 
TRA* 



A 

1,2 

6 



PUT OUT THE CODE 



SPACE 

ROUTINE TO TURNJ3UT _IN-L I NE CODE „ _,„ _ 

"FOR EXPONENT I ATI ON SEQUENCES,.. R**2 THROUGH R**7. 
REM 



XPC1 



LDI 
LNT 
TRA 
REM 



SXA 
LXA 



CLA 

TMI 



B 

BCNST 

1,4 



EXREX,4 
8,4 

CONfAB,4 
EXREX 



POC 
TXL 



TXH 
REM 
SXA 
CAL 
ANA 
SLW 



1 4 
EXREX,4,-8__ 

~GENXTt,4,-2 



REXPC4.4 

*_=GIST 

=02 

Tl 



RLXPC4 



TCV 
1 <JA 

CAL 

SLW 

REM 

ZET 

TRA 

CODE 

CODE 

REM 

AXT 



TXH 
_COD£N 
REM 
LXA 



REXPC4,4 



TRA 
TRA 



*~2,4 
REXP3 



RLXP7 



RcXP5 



Kr; XP6 



RtXP4 
rt XPC9 
KcXP3 



TRA 
TRA 

TRA 
REM 
CODE 
CODEN 
REM 
CODEN 
SfL 
TRA 
REM 
STZ 
CODE 
CODEN 
ZET 
JRA 
REM 
CODEN 
CODEN 
RESULT 
"REM 
CODE 



GET THE ASTACK WORD FOR THE EXPONENT 
IS IT A CONSTANT 



NO 



SAVE XR4 

GET THE CONTAB POINTER 



ST0R£i4 
ASTACK, 1 
A 

Tl 
* + 3 

LDQ, A 
FMP.A 

**, 4 
"REXPC9,47-3 

XCA 



AND GET THE CONSTANT 

QUIT IF NEGATIVE (SHOULDN'T HAPPEN) 



SIZE OF EXPONENT COMPLEMENTED 
POWER GREATER THAN 7, O R ZERO 
R**l " NO CODE NECESSARY 



SAVE EXPONENT (COMPLEMENTED) 

GET REGISTER LOCATION OF ARGUMENT 



SAVE ONLY THE MQ BIT, IF ANY 
SAVE 

"SXORE OFF" THE "ARGUMENT 
AND RESET THE 'A» WORD AGAIN 



lASTACK MAY HAVE BEEN CHANGED BY STORE) 



WAS ARGUMENT IN THE MQ. 

Y £$it ^DOli* I A9MJJ1 E - ^Q AG .AI.N 

SQUARE THE NUMBER 



REGAIN THE EXPONENT . CCOMPJ^EMENTEO). 

IS 

NO 



IT POWER 2. 
CONTINUE 



REGAIN EXPONENT 



BRANCH 



REXP4 
REXP5 
REXP6 

FMP,A 
XCA 

ST 077 7 

"fi 

REXP6+1 

T ^ 
FMP,A 

XCA 

Tl 

» + 3 



STQ777 
FMP777 
j*EAL» AC, ROUND 

FMP,A 



R»*7 



R**5 



SET AN AVAILABLE FLAG CELL 
SKIP 



R**6 



SET FLAG CELL 



fS THIS POWER 6. 
HO 

R**4 



R#*3 



FT080960 
FT08097G 
FTG8098Q 
FT080990 
FT08100G 
FT081010 
FT 08 1020 
FT081030 
>t 08 1040 
FT081050 
'Ft 081060 
FT081070 
FT081080 
FT081G90 
FT 08 1100 
FT081110 
FT081120 
FT0_81130 
FT081140 
FT 081 150 
FTQ81160 
F_T081170 
FT081180 
FT081190 
FT081200 
FT081210 
FTG81220 
FJJ081230 
F TO 81240 
FT081250 
FT08126G 
PTO 81270 
FT081280 
FT081290 
FT081300 
FT081310 
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FT081320 



FT081340 
FT081350 
FT 0813 60 
F TO 81370 
FT081380 
FT081390 
FT081400 
FT081410 
FT081420 
FT081430 
FT081440 
FT081450 
FT 08 1460 
FT081470 
FT08I48C 
FT081490 
FT081500 
FJ081510 
FT081520 
FT081530 
FT081540 
FT081550 



.REX 



RESULT 
REM 
AXT 
TRA 



REAL, AC, ROUND 



FT081560 
FT081570 
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**,4 
2,4 



RESTORE XR4 AND RETURN 



FT081580 
FT081590 



EJECT 

REM 


— — 


- CODE GENERATORS - 




FT081600 
FT081610 


PAGE 2 


REM 
REM 


ABSF(B) 




FT081620 
FT081630 
FT081640 
FT081650 




ABSD1 COOE 
A6S02 CODEN 


CLA,8 
SSP 








RESULT 

ABS03 CODEN 


REAL, AC 
XCA 






FT081660 
FT081670 




TRA 
REM 


ABS02 






FT081680 
FT081690 




REM 
XABSOl CODE 


CLA,B 


XABSF(I) 


- — — 


FT081700 
FT081710 




X&BS02 CODEN 
RESULT 


SSP 

INTEGR.AC 




FT08172G 
FT081730 




XABS03 CODEN 
TRA 


XCA 
XABS02 






FT081740 
FT081750 




REM 
REM 




INTF(B) 




FT081760 
FT081770 




IMTOl CODE 
XNTG2 TSX 


CLA,B 
INTXXX,4 






FT081780 
FT081790 




RESULT 

IMT03 CODEN 


REAL, AC 
XCA 






FT081800 
FT081810 




TRA 
REM 


INT02 

CLA,B 

XINTXX,4 

INTEGR,AC 

XCA~ 

XINT02 






FT081820 
FT081830 
FT081840 
FT081850 
FT081860 
FT081870 
FT081880 
FT081890 




REM 
XINTQI CODE 


XINTF(B) 






XINT02 TSX 

RESULT 








X-NT03 CODEN 
TRA 








REM 
REM 


FLOATFU) 




FT081900 
FT081910 




FLOAT1 CODE 
FLOAT2 TSX 


CLA , B 
FL0XXX,4 
REAL, AC 
XCA 






FT081920 
FT081930 




RESULT 
FL0AT3 CODEN 






FT081940 
FT081950 




TRA 
REM 


FLOAT2 






FT081960 
FT081970 
FT081980 
FT081990 
FT082600 
FTOS2310 




REM 
XFIXOl EQU 


XINTOl 

XINT02 

XIMT03 

6 

B 


XFIXF(A) 






XFIX02 EQU 
X*=IX03 EQU 








SPACE 
XLGCOl LDI 


XLOCFU) OR XLOCFiR) 




FT082020 
FT082030 
FT082040 
FT082050 




LFT 
TRA 


BVARB+bARGT 
*+2 


MUST BE ONE OR THE OTHER 






ERROR 
REM 


7.SKEND 

700000 "~ 
XLOCOA 
AXT4,B 
XLOCOC 

B,4 

POOL, 4 
POOL-2,4 

XLOCOB 

PXA4,B 






FT082060 
FT082070 
FT08208G 
FT082090 
FT082100 
FT082110 
FT082120 
ADDEND FT082X30 
FT082140 
FT082150 
FT082160 
FT082170 
FT082180 
FT082190 




RFT 
TRA 
XL DC 08 CODE 
TRA 


IS IT SUBSCRIPTED 
YES. 






REM 
XLOCOA LXA 

CAL 

ORA 


SEE IF SUBSCRIPT IS ONLY 


.A CONSTANT 




PBT 
TRA 






REM 
CODE 









CAL 


PCOUNT 




FTOS2200 
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SUB 


= 1 




FT082210 




CODEO 


SUB,P 




FT082220 




CODEN 


PAX4 




FT082230 




XLOCQC CODEN 


PXD4 




FT082240 




RESULT 


INTEGR,AC 

6 




FT082250 




SPACE 




FT082260 




MXMIN1 CODE 


CLA, A 


CODE GENERATORS FOR ALL MAX AND MIN»S 


FT082270 




NXMIN4 CODE 


LDQ,B 




FT082280 




MXMINA CQDEP 


TLQ2 




FT082290 




CODEN 


XCA 




FT082300 




REM 






FT082310 
FT082320 




CLA 


ASTACK, 1 


ROUTING SEQUENCE 




MAXPTR AXC 


** f 4 
MAXINT,4 


GET PREVIOUSLY SET DIRECTOR 


FT082330 
FT082340 




TPL 


IF NOT KEY WORD, GO TO INTERMEDIATE CODE 




CAL 


XCA 


PREPARE FOR POSSIBLE CODE SEQUENCE 


FT082350 
FT 082 360 




TRA 


MAXTRM,4 


GO TO TERMINAL SEQUENCE 




REM 






FT082370 
F f 082380 




MXMIN2 CODE 


LDQ,A 






TRA 


MXMINA 




FT082390 




MXMIN3 CODE 


CLA, A 




FT082400 




TRA 


MXMINA 

claTb 




FT082410 




M*MINt> CODE 




FT082420 




TRA 


MXMINA 




FT082430 
FT082440 




REM 








MAX INT EQU 


* 
REAL,MQ 




FT08245Q 
FT082460 




RESULT 


MINI 




RESULT 


INTEGR,MQ 


M1NO 


FTG82470 
FT082480 




RESULT 


INTEGRtAC 


MAXO 




RESULT 


REAL, AC 


MAX1 


FT082490 




RESULT 


INTEGR,MQ 


XMINO 


FT082500 




RESULT 


REAL,MQ 


XMINl 


FT082510 




RESULT 


REAL, AC 


XHAX1 


FT082520 




RESULT 


INTEGR,AC 


XMAXO 


FT08253Q 




REM 






FT08254G 




MAXTRM EQU 


* 




FT082550 




TRA 


SIGNOC 


MINI 


FT082560 




Tqy 


f TTftl n.^_ M 


MIMA OUT niiT vrA 


CTflOIC "Tf\ 




« •** *--* 


v**wh.wr .ji» 


mii«i i vy • ww i ,r»v»/"» 


i 1 VU&J 1 u 

FTOB2586 




TSX 


FL0XXX,4 


MAXO. FLOAT THE INTEGER 




RESULT 


REAL, AC 


MAX1 


FT082590 




RESULT 


INTEGR,MQ 


XMINO 


FT082600 




TSX 


CITBLD,4,N 


XMIN1. PUT OUT XCA 


F TO 82610 




TSX 


XINFXX,4 


XMAX1. FIX THE REAL RESULT 


FT082620 




RESULT 


INTEGR,AC 


XMAXO 


FT082630 
FT082640 




SPACE 


6 






XSIGNi CODE 


CLA, A 


XSIGNFU.J) 


FT082650 
FT082660 




XSIGN4 CODE 


LDQ,B 






XSIGNA CODEN 


LLS 
INTEGR,AC 




FT082670 
FT082680 




RESULT 






XSIGN2 CODE 


LDQ,A 




FT082690 




XSIGNB CODEN 


LRS 




FT082700 




RESULT 


INTEGR,MQ 




FT082710 




XSIGN3 CODE 


CLA, A 




FT082720 




TRA 


XSIGNA 




FT082730 




Xt>IGN5 CODE 


CLA, 8 




FT082740 




TRA 


XSIGNB 

"2" "" 




FT082750 
FT082760 




SPACE 






SIGNOI CODE 


CLA, A 


SIGNFU,B) 


FT082770 




SIGN04 CODE 


LDQ,B 




FT082780 




SiGNOA CODEN 


LLS 




FT082790 





RESULT 
SIGN02 CODE 


REAL, AC 
LDO,A 




FT082800 
FT082810 
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SIGNOB CODEN 
SiGNOC NZT 


LRS 
MQDFLG 


IF BOOLEAN, MUST GET RESULT 


FT082820 
OUT OF MQ. FT082830 




RESULT 
CODEN 


R E A L t M \»t 
XCA 




FT082840 
FT082850 




RESULT 
SIGN03 CODE 


REAL, AC 
CLA f A 




FT082860 
FT082870 




TRA 
SIGN05 CODE 


S1GN0A 
CLA,B 
SIGNOB 
2 




FT082880 
FT082890 




TRA 
SPACE 




FT082900 
FT082910 




DIMOl CODE 
D1M04 CODE 


CLA, A 
FSB.B 


DIMF(A,B) 


FT082920 
FT082930 




OIHOA CODEP 
CODEN 


TPL2 
ZAC 




FT082940 
FT082950 




RESULT 
DIM03 CODEN 


REAL, AC 
XCA 




FT082960 
FT082970 




DIMQ2 CODE 
CODEN 


FSB, A 
CHS 




FT082980 
FT082990 




TRA 
D1M05 CODEN 


DIHOA 
XCA 




FT083000 
FT083010 




TRA 
SPACE 


DIM04 
2 




FT083020 
FT083030 
FT083040 
FT083050 




XDIMOl CODE 
XDIH04 CODE 


CLA, A 
SUB,B 


XDIHF(lvJ) 




XDIHOA CODEP 
CODEN 


TPL2 
ZAC 




FT083060 
FT083070 
FT083080 
F TO 83090 




RESULT 
XDIM03 CODEN 


INTEGR,AC 
XCA 
SUB, A 
CHS 






XPIH02 CODE 
CODEN 




FT083100 
FT083110 
FT083120 
FT083130 




TRA 
XDIH05 CODEN 


XDIHOA 
XCA 

XDIMQ4 
2 






TRA 
SPACE 




FT083140 
FT083150 




XMODOl CODE 
XHOP04 CODEN 


CLA, A 
LRS35 


XHQDFUf J> 


FT083160 
FT083170 




CODE 
RESULT 


DVP,B 

INTEGR,AC 

XCA 

St 0777 
CLA, A 




FT083180 
FT083190 




XM0D05 CODEN 
TRA 




FT083200 
FTOa3210 




XMOD02 CODEN 
XMODOB CODE 


----- — 


FT083220 
FT083230 
F TO 83240 
FT083250 




CODEN 
CODEN 


LRS35 
DVP777 




RESULT 
XHOD03 CODEN 
TRA 
SPACE 
REM 
MOB02 TSX 
CAL 
SLW 
CAL 
SLW 


INTEGR,AC 
STQ777 

XMODQB 
2 

STORE, 4 

ASTACk-2,T 

A 

ASTACK-4,1 

B 

CLS,A 

FDP,B 

XCA " 

INTXXX,4 


MODF( A,B) 


FT083260 
FT083270 
FT083280 
FT083290 
FT083300 
FT083310 
FT083320 
FT083330 
FT083340 
FT083350 




NODOl CODE 
H0DA2 CODE 


- ■ -~ -- — - — 


FT083360 
FT083370 




CODEN 
TSX 


FT083380 
FT083390 





CODEN 
CODE 



XCA 
FMP,B 



MODA1 
MODA3 



MODQ3 

MupQ4 
"HOD05 



CODE 
CQDEP 
CODEN 
RESULT 



FAD, A 

SSP 

REAL, AC 

M0D02 

M0D02 

MOD02 

2 



FT083400 
FT08341Q 
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FTQ83420 
FT083430 
FT083440 
FT083450 




U-QI01 



1 = 1 
= I 



SKIP OUT IF A = B 



IEQI02 
IEQIA 



CODE 
CODE 



CLA,8 
ST0,A 



LDI 
TSX 



A 
INDXT,4 



IfcQIB 



TXL 
ERROR 



CMPLX,1,0 
84,SKEND 



A £Q 1 03 

I ADD01 

IADD04 

IADD02 
IADD03 



REM 

CODE 

TRA 

REM 

REM 

CODE 

CODE 

RESULT 

CODE 

RESULT 

CODEN 

TRA 



STQ,A 
IEQIA 



CLA,A 

ADD, 8 
INTEGR»AC 
ADD, A 
INTEGRtAC 



IADD05 



CODEN 
TRA 
REM 
REM 



XCA 

IADD02 

XCA 

IADD04 



FT08346G 
FT083470 
FT083480 
FT083490 
FT083500 
FJ083510 
FT083520 
FT083530 
FT08354G 

FT083550 

, .__. -_ ~ FT08356G 

FT 083570 

FT083580 

TEST FOR VALID CHANGE OF INDEX OR SUBS CRIPTFT083590. 

FT083600 

_F TO 83610 

_. _ - --—- FT083620 

FT083630 

"" FT083640 

FT083650 
FT083660 
FT083670 
F TO 836 80 
FT083690 
FT083700 
FT083710 
FT083720 
FT08373Q 
FT083740 
FT083750 



i + l 



FT083760 



I-I 



ISUB01 

1SUB04 



CODE 
CODE 



CLA,A 
SU6,B 



istmaz 



RESULT 
CODE* 
CODE 
RESULT 



INT£GR,AC 
C+tS 
ADD,A 
INT£GR,AC 



1SUB03 


CODEN 


XCA 




TRA 


ISUB02 


ISU605 


CODEN 


XCA 




TRA 


ISUB04 




REM 






REM 




IHPY01 


CODE 


LDQ,A 


IMPY05 


CODE 


MPY,8 


IHPYA 


CODEN 


ALS17 




RESULT 


INTEGR,AC 


IKPY03 


CODE 


MPY,A 




TRA 


IMPYA 


IKPY02 


CODEN 


XCA 




TRA 


IMPY03 


IMPY04 


CODEN 


XCA 




TRA 


IMPYG5 



1*1 



FT083780 
FT083790 
FT083800 
FT083B10 
FT083820 
FT083830 
FT083840 
FT 083 8.50 
FTQ83860 
FT083870 
FT083880 
FT083890 
FT083900 
FT083910 
FT083920 
FT08393G 
FT08394G 
FT083950 
FT083960 
FT083970 
FT 08 3980 
FT083990 



IDIVOI 
IDIVQ4 
'ID IVC 
ICIVA 

IDIV02 



REM 

REM 

CODE 

CODEN 

CODE * 

CODEN 



I/I 



CLA,A 
LRS35 
OVP t B 
LLS18 



RESULT 
CODEN 



IUIVB 



CODE 

CODEN 
CODEN 
TRA 



INTEGR,MQ 
ST 0777 
CLA,A 
LRS35 _ 
DVP777 
IDIVA 



IOIV03 



CODEN 
TRA 



STQ777 
IDIVB 



IDIV05 



CODEN 
CODEN 



2AC 
LLS 



TRA 
REM 



IDIVC 



IMEGG1 



REM 
CODE 



CLS,6 



'"1NEG02 



RESULT 

CODEN 



INTEGR*AC 
XCA 



CHS 
INTEGR,AC 



IEXPQ1 
ItXP 04 
ItXPA 



ItXP02 



ILXP03 



IEXP05 



CODEN 

RESULT 
"REM 

REM 

"CODE CLA.A 

JU3DE LDQtB 

TSX ~~ 0UTPfV,4 
EXPI1 

RESULT INTEGR,AC 

CODEN XC A 

CODE CLA,A 

TRA_ IEXPA _ 

"CODEN XCA 

TRA IEXP04 



1**1 



REM 
REM 



R=I 



RhQIOl TSX 


STZTST,2 


PZE 


IEQIB 


CODE 


CLA,B 


RI7QI32 TSX 


FtOXXX,4 


TRA 


IEQI02 


RL-QIC3 CODEN 


XCA 


TRA 


REQI02 


REM 




REM 




IfcOROl TSX 


STZTST,2 


PZE 


IEQIA 


CODE 


CLA t B 


KQR02 TSX 


XINTXX,4 


TRA 


IEQI02 


I: QR03 CODEN 


XCA 


TRA 


IEQR02 


REM 




REM 




R QR01 EQU 


IE0I31 


K. wR02 EQU 


IEQI02 


REQR03 EQU 


IEQI03 


REM 





I=R 



R=R 



FT084000 
FT084Q10 
FTO84G20 
FT084030 
FT084040 
FJ084050 
F TO 84060 
FT084070_ 
FT084080 
FT08409CL 
l=T084l66 
FT 084 110 
FT084120 
FT084I30 
FT084140 
FT084150 
F TO 84 I 60 
FT084170 
F TO 841 80 
FT084190 
FT084200 

FJ 0842 1<L 

FTC84220 

FT084230 

FT08424Q 

FT08425G 

FT084260 

FTG8427G 

F TO 84280 

FT084290 

FT084300 

FT08 4310 

FT084320 

FT084330 

FT084340 

FT084350 

FT084360 
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FT 084380 

FT084390 

FT 084400 

FT084A1Q 

FT084420 

FT084430 

FT084440 

FT084450 

FT 084460 

FT084470 

FT084480 

FT 084490 

FT084500 

FT084510 

F TO 845 20 

FT084530 

FT084540 

FT084550 

FTO 84560 

FT084570 

FT084580 

FT034590 



JIADD01 
&ADDG4 

ITKddoz' 



REM 
COOE 



a+R 



CLA, A 



CODE 
RESUL T 
CODE 
RESULT 



FADtB 

REAL, AC, ROUND 



FAD, A 

REAL, AC, ROUND 



RADD03 



RADD05 



CODEN 
TRA 
CODEN 
TRA 

REH 



XCA 

RADD02 

XCA 

RADD04 



R-R 



iUUBOl 
RSUB04 



CODE 
CODE 



RSUB02 



RESULT 

CODEN 



RSUB03 



RSUB05 



TRA 
CODEN 
TRA 
CODEN 



CLA, A 
FSB,B 
REAL, AC, ROUND 

JLHJL 
RADD02 

XCA 

RSUBG2 
XCA 



TRA 
REM 



RSU804 



RNEGOl 



RWEG03 



RMEG02 



RMPYOl 
RMPY05 

RMPY02 



REM 

CODE 

RESULT 

CODEN 

CODEN 

RESULT 

REM 

REM 

CODE 

CODE 

RESULT 

CODEN 



-R 



CLS,B 



REAL, AC 
XCA 



CHS 
REAL, AC 



LDQ,A 

FMP,B 

REAL, AC, ROUND 

XCA 

FMP,A 



R*R 



RMPY03 



CODE 
RESULT 



RHPYG4 CODEN 

TO A 



REAL, AC, ROUND 
XCA 



RDIVOl 
RD1V04 



&D1V02 



REM 

REM 

CODE 

CODE 

RESULT 

CODEN 



RDIVA 


CODE 




CODEN 




RESULT 


RDIV03 


CODEN 




TRA 


RDIV05 


CODEN 




TRA 




REM 




REM 


RcXPOi 


CODE 


Rl:XP04 


CODE 


Rr:XPA 


TSX 



CLA, A 

FDP,B 

REAL,MQ 

ST0777 

CLA, A 

F DP77 7 

REAL.MQ 

STQ777 

RDIVA 

XCA 

RDIV04 



CLA, A 
LDQ't'B 



R/R 



R**R 



RESULT 
RLXP02CQDE 
CODEN 



OUTPTV,4 
EXP (3 
RJAL,AC 
LDQ,A 
XCA 



FT084600 
FT084610 
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FT084620 
FTQ84630 
FT084640 
FT084650 



FT084660 
FT084670 
FT084680 
F TO 8469CL 
F TO 84700 
FT084710 
FT084720 
FT084730 



FT084740 
FT084750 
FT084760 
FT084770 
FT084780 
FT084790 



FT084800 
FT084810 



FT084820 

FT084830 

FT084840 

FT084850_ 

FT084860 

FT084870 

FT084880 

FT084890 

FT08490Q 

F TO 849 10 

Ft 084 920 

FT08493G 

FT084940 

FTQ84950 

FT084960 

r i uot^ #u 

FT084980 

FJ084990 

FT085000 

FXQaSDlQ 

FT085020 

FT085030 

FT085040 

FT085050 

FT085060 

FT085070 

FT085080 

FT085090 

FT085100 

FT085110 

FT085120 

FT085130 

FT085140 

FT085150 

F TO 8 5 160 

FT085170 

Ft085180 

FT085190 



TRA 

REXP03 CODE 



TRA 

R-XP05 CODEN 
TRA 
REM 



REXPA 

CLA,A 

REXPA 

XCA 

REXPQ4 



REM 
RtXPIl TSX 



R**I 



REXPC1.4 



CODE 

TRA 

REXPI4 TSX 
RIXPA B C ODE 
RuXPIA TSX 



CLA,A 

REXPAB 

REXPC1,4 
LDQ,8 



RtXPI2 



RESULT 
CODEN 



0UTPTV*4 

EXP(2 

REAL* AC 
XCA 



RcXPI3 



CODE 
TRA 



CLA»A 
REXPIA 



REXPI5 



TSX 
CODEN 



REXPC1,4 
XCA 



TRA 
SPACE 



REXPAB 
2 



A5FRR1 

_ASFRR2 
ASPRR3 



ASFT12 
ASFII3 




ASFRI1 



SPACE 
CODE 



CLA.8 
ASFEND 
XCA 
ASFEND 

2 " 

ASFRR1 

ASFRR2 

ASFRR3 

2 

CLA.B 



ARITH. STATE, FN,.. R = R 



URITH. STATE. FN... 1 = 1 



ARITH. STATE. FN... R = I 



ASFRI2 



ASFRI3 



TSX 
TRA 
CODEN 
TRA 



ASFIR1 



SPACE 
CODE 



ASFIR2 



A5F1R3 



TSX 
TRA 

CODEN 

TRA 

SPACE 



FL0XXX,4 
ASFEND 

XCA """" 
_ASFRI_2 
2 

C LA,B 

XINTXX,4 
ASFEND 
XCA 

ASFIR2 
'"6 



ARIiH. STATE. FN... I - R 



8 = 



BtQBOl TSX 
PZ£ 



STZTST,2 
IEQIB 



CODE 
BcQB02 CODE 
TRA 
REH 

BCOHOl CODE 
BC0M02 CODEN~ 
RESULT 
REM 

BUROl CODE 
80R02 CODE 

RESULT 
B0R04 CODE 



CAL,B 
SLW,A 
IEQIB 



CAL,B 
COM 
REAL, AC 



CAL,B 
ORAjA 
RE AL , AC 
ORA,B 



B + 



FT085200 
FT083210 
FT085220 
FT085230 
FT085240 
FT08525G 
FT0B5260 
FT085270 
FT085280 
FT085290 
Ff085300 
FT085310 
FT085320 
F T0853 3Q 
FT08534G 
FT085350 
FT085360 
FT085370 
FT085380 
FT085390 
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FT085400 
FJ085410 
FT085420 
FT085430 
FT085440 
FT085450 
FT085460 
FTP 8 5470 
FT085480 
FTG85490 
FTO85500 
FTQ85510 
FT085520 
FT08553Q 
FT085540 
FT08 5550 
FT085560 

crnoc cm 
r i wo j j i w 

Ffd85580 

fT085590 
F'T085600 
FJ085610 
FT08562G 
FT085630 
FT085640 
FT085650 
FT085660 
FT085670 
FT085680 
FT085690 
FT085700 
FT085710 
FT085720 
FT085730 
FT085740 
J^T08575G 
Ft085760 
FT08577G 
FT08578G 
FT085790 



RESULT 
REM 



BAN001 CODE 



REAL,AC 



CAL»B 



BANDQ2 



BAN 00 4 



ASFRR4 



CODE 

RESULT 

CODE 

RESULT 

SPACE 

CODE 



A*FRR5 



TRA 

REM 



ANA, A 

REAL t AC 

ANA,B 

REAL, AC 

2 

CAL,6 

ASFEND 



DABS01 



SPACE 
CODLD 



rnncM 
CODEN 



LRS 



CA8S0A 



DABS03 



CODEN 
CODEN 



ST0777 
STQ776 



RESULT 
CODEN 



0PL0T1 



DFL0T2 



CODEN 

XRA 

space" 

CODE 

TSX 

TRA 



REAL,PAC 
_CLA775 
LD0774 
DABS02__ 
2 "~ 
CLA,B 
FL0XXX,4 
DABSOA 



DFL0T3 



CODEN 
TRA 



XCA 
DFLOT2 



* B 



ARITH. STATE. FN.., B = 8 



DABSF(A) 



DFLOATFCI) 



DFIX01 



SPACE 
STR 



MSGFIX,,SKEND 



DFIX02 
OFIX03 



EQU 
EQU 



SGFIX BCI 



DFIX01 
DFIX01 
6 
6,IBMVS 



*»»PUT O UT COMPLAINT AGAINST IBM 



•FIXF» GENERATES NONSENSE f.nnF 



FT085800 

FT085810 

FT08582Q 

FJ085830 

FT085840" 

FT085850 

FT085860 

FT085870 

FT085880 

FJ085890 

FT085900 

FT085910 

FT085920 

FT085930 

FT085940 

FT085950 

FT085960 

FT085970 

FT085980 

FTO 85990 

FT086000 

FT086010 

FTO 86020 

FT086030 

FT086040 

FT086050 

FT086060 

FT086070 

FT086080 

FT086090 

FT086100 

FT086110 

FT 6 86 120 

FT086130 
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JDADOOl 

DADD04 
DADDOA 



DADD05 



EJECT 
CODLAC 



D + D 



SETUP 
COOSTR 
"RESULT 
TSX 



(OFAO) 

B 
REALi'PAC 

MQ.AC4 



DADD0 3 
DADD02 
DADQQB 



TRA 
TSX 



SETUP 
COOSTR 
RESULT 
SPACE 



DSUBOl 

Mr m# %# *»r .w * 

DSU805 
DSU803 



CODLAC 

SETUP 

TRA" 

TRA "' 
CODEN 



DADD04 

MQ.AC,4 
iDFAO) 

A _____ 

REAL , PAC 

2 

A 

CDF SB) 
' DADDOA "" 

M Q.AC4 

DSUB04 

CLS775 



D-D 



DSUBOA 

DSUB02 

D^SGOl 
...DJiEGOZ. 

D>it:GOA 



CODEN 

CODEN 

CODEN 

TRA 

CODEN 

CODEN 

TRA 

SPACE 

CODSUB 

RESULT 

CODEN 

CODEN 

CODEN 



LDQ774 
LRS 



ST0777 
STQ776 



Dm£G03 



CODEN 
CODEN 
RESULT 
CODEN 



DADDG2 
CLS777 
LDQ776 
DSUBOA 

REAL, PAC 

CLS777 

LDQ776 

LRS 

ST0777 

STQ776 

REAL, PAC 

CLS775 



- D 



CODEN 
TRA 



LDQ774 
DNEGOA 



DHPYOl 

CHPYQS" 

DKPY04 

DMPY02 
DMPY03 



DDIVOl 
D0IVO4 



DLiVOb 
Dr : IV03 



DDIV02 



SPACE 

CODLMQ 

SETUP 

TRA 

TSX 

TRA 

TSX 

SETUP 

TRA^ 

SPACE 

CODLAC 

SETUP 

COOSTR 

RESULT 

TSX 

TRA 

TSX 

LXA 

CAL 

SLW 
TR - 

EQU 



2 
A 

(DFMP) 

DADDOA 

AC.MQ.4 

DMPY05 

AC. My, 4 

IDFHP) 



D * D 



DADDOB 

2 

A 

(DFDP) 

B 

REAL,PMQ 

MQ.AC4 

DDIV04 

STORE, 4 

B+1,4 

ASTACK,4 

B 

DDIVOl 

DDIVG3 



D / D 



FT086140 
FT086150 
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FT086160 
FT086170 
FT 086 180 
FT086190 
FT086200 
FT086210 
FT08622G 
FT08623C 
FT086240 
FT086250 
FTG86260 
FT086270 



FT086280 
FT086290 
FT086300 
^T086310 
FT086320 
FT086330 



FT086340 
FT086350 
FTQ8636Q 
FT086370 



FT086380 
FT086390 
FT086400 
FT086410 
F TO 86420 
FT086430 
FT086440 
FT086450 
FT086460 
FT086470 
FT 686480 
FT086490 
FTC 186500 



FT086520 
FTQ86530 
FT086540 
FTQ&6550 
FT086560 
FT086570 
FT086580 
FT086590 
FT086600 
FT086610 
FTC86620 
FT086630 
FT086640 
FT086650 
FT 086660 
FT086670 
FT086680 
FT086690 
FT086700 
FT086710 
FT 086720 
FT086730 



FTG86740 
FT086750 
FT086760 
FTQ8677Q 
FTG86780 
FT086790 
Ff086800 
FT086810 
FT08682Q 
FT0868J30 
PJ086840 
FT086850 
FT086860 
FJ086870 
FT086880 
FT086890 
F t 086900 
FT086910 
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FT086920 
FT086930 
FT086940 
FT08695Q 
FT08696G 
FT086970 



FT086980 
FT086990 
FT087000 
FT087010 
FT087020 
FT087030 
FT087040 
FT087050 
Ff087060 
FT08707O 
FT087080 
FT087090 



FT087100 
FT0_87Iiu 
FT087120 
FT08713G 
FT 087 140 
FJ087JL50 
FT087160 
FT087170 
FT087180 
FJ 087 190 
FT087200 
FT087210 
FT087220 
FT087230 
Fr087240 
FT087250 
F TO 87260 
FT087270 
FT087280 
FT087290 
FT087300 
FT087310 
FT087320 
FT087330 



SPACE 2 
DEXPR1 CODLAC A 



DEXPR4 CODLHQ 
UEXPRA TSX ... 

RESULT 



DEXPR5 TSX 

TRA 

DEXPR2 TSX 
0EXPR3 CODLAC 



TRA 
SPACE 



DEXPU CODLAC 
DEXPI4 CODE 



oyjprv,4 

0EXPC3 
REAL, AC 
HQ. AC,4 
DEXPR4 
AC. HQ, 4 

A 

DEXPRA 

2 

A 

LOQyB 



DEXPIA TSX 



DEXPI5 



RESULT 
TSX 



DEXPI2 



TRA 
CODEN 



DEXPIB 



CEXPI3 



CODLAC 
COOEN 
TRA 
COOEN 



0UTPTV,4 
DEXPC2 
REAL, AC 
MQ. AC , 4 
DEXPI4 

ST0775 

A 

LDQ77_5 
EX PI A 
STQ775 



DEQDOI 

OEQDOA 
DEQD02 



TRA 

SPACE 

TSX 

P££ 

CODLD 

CODSTO 

TRA 

ZET 

TRA 

CODEN 

tOD EN "~ 

TRA 



DEXPIB 

2 

STZTSD»2 

IEQ18 

B 

A 

CHPLX 

REGFLG 

DEQDOA 

CLA777 

LDQ776 

DEQDOA 



DEQD03 



ZET 
TRA 



LEQI01 
DEQ102 





TRA 


DEQI03 


CODEN 




TRA 




SPACE 


UQD01 


EQU 


IEQDOA 


EQU 


ILGD02 


ZET 




TRA 




CODEN 




TRA 


it QD03 


ZET 




TRA 



CODEN 

CODEN 

"TRA 

SPACE 

TSX 

Mze 

CODE 

JJ>* 
TRA 

C0D1 
TRA 
SPA« 
EQU 

ZET 

TRA 

CODI 

TRA 

ZET 

TRA 

CODEN 

TRA 



REGFLG 

DEQDOA 

CLA775 

LDQ774 

DEQDOA 

2 

STZTSD,2 

IEQI8 

CLA",B" 

FL0XXXj4 

DEQDOA 

XCA 

DEQI02 

2 

IEQR01 

IEQR02 

REGFLG 

IEQDOA 

CLA777 

IEQDOA 

REGFLG 

IEQDOA 

CLA775 

IEQDOA 



D ** D 



D ** I 



D = D 



D = I 



I = D 



SPACE 
ASFODI CODLAC 


2 

a 

ASFEND 

MQ.AC f 4 

ASFEND 

2 

CLA,8 

FL0XXX,4 

ST0777 

STQ776 


ARITH. STATE. FN.., D = D 


FT087340 
FT087350 




ASFDD2 TRA 
ASFDD3 TSX 




FT087360 
FT087370 




TRA 
SPACE 




FT087380 
FT087390 
FT087400 
FT087410 




ASFDI1 CODE 
ASFDI2 TSX 


ARITH. STATE, FN.»* D = I 




COOEN 
COOEN 


. ,.,„„__.,„. „.„.„._ ___, _ — „ „„ _____ 


FT087420 
FT087430 
FT687440 
FT087450 
FT087460 
FT087470 




TRA 
ASFDI3 COOEN 


ASFEND 
XCA 




TRA 
SPACE 


ASFDI2 
6 






CMPYOl CODLNQ 
CMPY05 SETUP 


A 
UFMP) 


C * C 


FT087480 
FT087490 
FT087500 
FT087510 




CMPYOA CODSTR 
RESULT 


6 
REAL, AC 






CHPY04 TSX 
TRA 


AC.MQ,4 
CMPY05 




FT087520 
FT087530 




CMPY02 TSX 
CMPY03 SETUP 


AC*MQ,4 
(IFMP) 

"a""" "' 

REAL, AC 




FT087540 
FT087550 




COOSTR 
RESULT 




FT087560 
FT08757C 




SPACE 
CDIVOl CODLAC 


2 

A 

(IFDP) 

B 

REAL,MQ 

MQ.AC,4 

CDIV04 

STORE, 4 

B+1,4 

ASTACK,4 


C / c 


FT087580 
FT087590 




CDIV04 SETUP 
CODSTR 




FT087600 
FT087610 
FT087620 
FT087630 
FTO 87640 
FT087650 
FT087660 
FT087670 




RESULT 
COIVOd TSX 

TRA 
CDIV03 TSX 


- -- - 




LXA 
CAL 






SLy 

TRA 


B 
CDIVOl 




FT087680 
FT08769G 




CDIV02 EQU 

SPACE 


CDIV03 
2 




FT087700 
r i wo i i j.u 




CCXPII CODLAC 
CfcXPI4 CODE 


A 
LDQ,B 


C ** I 


FT087720 
FT087730 
FT087740 
FTO 8 7 750 
FT087760 
FT087770 
FT087780 
FT087790 
FT087800 
FT087810 
FT087820 
FT087830 
FT087840 




CEXPIA TSX 

RESULT 
CtXPIS TSX 


0UTPFV,4 
IEXPt2 
REAL, AC 
MQ*AC,4 




TRA 
CcXPI2 CODEN 


CEXPI4 
ST0775 
A 
LDQ775 






LEXPIB CODLAC 
CODEN 






TRA 
CEXPI3 CODEN 
TRA 


CEXPIA 
STQ775 
CEXPIB 


- - — - - — -■■ 
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EJECT 
* THE FOLLOWING ARE 


SOME ABYSMAL TEMPORARY CODE SEQUENCES FOR 


FT087850 
FT087860 


* C + C C - C 
REM 


DSIGNF ISIGNF 


FT087870 
FT087880 


CADBOl CODLAC A 
CADD04 CODLD B 


C -I- C 


FT087890 
FT087900 


CADDGA CODEN STQ774 
CODEN FAD777 


- - - — — -- - - 


FT087910 
FT087920 


CADDOB CODEN ST0777 
CODEN CLA776 


FT087930 
FT087940 


CADDOD CODEN FAD774 
CADDOE CODEN ST0776 


_ . _. _ 


FT087950 
FT087960 


RESULT REAL,AC 
CADD02 CODLD A 


FT087970 
FT087980 


TRA CADDOA 
CAD003 CODLD A 




FT087990 
FT088000 


CADDOC CODEN ST0776 
CODEN FAD775 




FTO8861O 
FT088020 


TRA CADDOB 
CADD05 CODLD B 




FT088030 
FT088040 


TRA CADDOC 
SPACE 6 




FT088050 
FT088060 


CSUBOl CODSUB B 

TRA CADD02 


c - c 


FT088070 
FT088080 


CSUB02 CODLD A 

CODEN STQ774 




FT088C90 
FT088100 


CODEN FSB777 
uSUBOB CODEN ST0777 




FT088110 
FT088120 


CODEN CLS776 
TRA CADDOD 




FT088130 
FT088140 


CSUB03 CODLD A 

COOEN STQ776 
COOEN FSB775 

CSUBOA CODEN ST0777 


FT088150 
FT08816G 
FT088170 
FT088180 


CODEN CLS774 
CODEN FA0776 




FT088190 
FT088200 


TRA CADDOE 
CSU804 CODLD B 




FT088210 

r i voQocv 


CODEN STQ774 
COOEN CHS 


■ - - - - ■ -■— - ■■ 


FT088230 
FT088240 


CODEN FAD777 
TRA CSUBOA 


FT088250 
FT.088260 


CSUB05 CODLD B 

CODEN STQ776 




FT088270 
FT088280 


CODEN CHS 
CODEN FAD775 




FT088290 
FT088300 


TRA CSUBOB 
SPACE 6 




FT088310 
FT088320 


DSIGNl CODLAC A 
DSI6N4 CODLD B 

CODEN ST 0775 
CODEN CLA776 
1) ST&NB CODEN LL S 

CODEN ST0776 


— ■■■'■■' - — - — - " - 


FT088330 
FT088340 
FT088350 
FT088360 
FT088370 
FT088380 


CODEN CLA777 
CODEN LDQ775 


FT088390 
FT08840Q 


CODEN LLS 
CODEN ST0777 




FT088410 
FT088420 


RESULT REAL,AC 
DSIGN2 CODLD A 


DSIGNF(A,B) AND ISIGNF{A,B) 


FT088430 
FT088440 
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CODEN 


STQ774 




COOEN 


LDQ777 




CODEN 


LLS 




CODEN 


ST0777 




CODEN 


CLA774 




CODEN 


LDQ776 



OSXGNA CODEN 
TRA 



LLS 

CADDOE 



DSIGN3 CODLD 
CODEN 
CODEN" 
CODEN 



A 

S TQ776 
LDG775 
LLS 



CODEN 
CODEN 
CODEN 
TRA 
bSIGNS CODLD 
CODEN 



ST0777 
CLA7J6 
LDQ774 
DSIGNA 

B ""'" 

ST0777 



CODEN 
TRA 



CLA774 
DSIGNB 



FT08845G 
FT088460 



FT088470 
FT088480 
FT088490 
FT088500 



FT088510 
FT08852G 



FT088530 
FT088540 
FT088550 
FT 088560 
FT088570 
FT088580 



FT088590 
FT088600 
FT088610 
FT088620 



FT088630 
FT088640 
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TIL A R I T H 
CODE ROUTINE . 
REM 
THIS 



M E T I 



U T I LI T Y PROGRAM 



COD EFT088650 
FTG88660 
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ROUTINE IS ENTERED DURING PROCESSING OF ARITHMETIC 



STATEMENTS VIA COMPIL, GENt AND ULTIMATELY THE CODE 
GENERATORS. ONE OR MORE OBJE C T INSTRU CTI ONS ARE G ENERATED. 



FTG88670 

JJ088680 

FTO 88690 

FT088700 



REM 
THE 



ENTRY IS 



TSX CODE, 4 

PZE OPtt STACK . „. 

WHERE •QP r ~IS THE ADDRESS OF THE OPERATION CODE, AND STACK IS THE 
LOCATION OF_A WORD CONTAINING _A_COPY OF THE_APPROPRIAIE __ASI_4CK_ ..._ 
ENTRY. THE CORRESPONDING ASTACK POINTER MUST BE IN THE ADDRESS 
FIELD OF 



CORRESPONDING 
STACK+1. 



FT088710 
FT088720 
FT088730 
FJ088740 
FT08875G 
FT088760 
FT088770 
FT088780 



REM 
THE 



ENTRY IN STACK MAY DESCRIBE A CONSTANT, 
ARITHMETIC STATEMENT FUNCTION ARGUMENT, OR AN 
INTERMEDIATE RESULT HELD IN FORKING STORAGE. 



VARIABLE, 



IF A VARIABLE IS A PARAMETER, PROLOG IS ENTERED. 

IF THE TAG FIELD OF TH E STACK WORD IS NON-ZERO, THE VARIAB LE 



FT088790 
FT088800 
FT088810 
FT088820 
FT08883G 
FT08884G 



is SUBSCRIPTED^ THE ISTACK POINTER IS THEN THE ADDRESS 
STACK. CODE IS GENERATED TO LOAD XR4 WI TH A PREVIOUSL Y 



FIELD OF 
COMPUTED 



CODE 



COD32 



QUANTITY "ANO/OR SUPPLY A CONSTANT ADDEND TO CITBLD OR PROLOG. 

REM _ . .._ „ _ 

THIS ROUTINE" IS EQUIPPED TO PROCESS TWO INSTRUCTIONS SUPPLIED 

BY _THE DP AND CA CODE DRIVEitS.__ THE FLAG SPCDFG IS THE 

ROUTING KEY FOR THIS MODE OF OPERATION. 

REM _ ,.. -_... - 

"REM'" 

REM _ _ 

STZ SPCDFG 
SXA EXC0DE,4 
SXA 
CAL 



STA 
PDC 
CAL 
LDI 



C0D1 



STZ 
STZ 

REM 
ftFT 
TRA 
REM 
ANA 
ORA 



EXCODE+1,1 

CODi 

,4 

,4 

,4 

C0D6 

CO 04 

700000 
C0D5 



SET ROUTING FLAG 



GET OP CODE AND STACK POINTER 



FT088850 
FT088860 
Ff088870 
FT088880 
FT088890 
FT088900 
FT088910 
FT 088920 
FT 08 8930 
FT088940 
FT088950 
FT08896O 
FT088970 
FT088980 



SET OP CODE INSTRUCTION 

STACK POINTER 

GET STACK WORD 



FT088990 
FT089000 



FT089010 



IS THERE AN ISTACK ENTRY 
YES. INDEXING MUST TAKE 



FOR THIS 
PLACE 



ONE 



=077777 



NO. SAVE EQUIV POINTER 
OR IN THE OPERATION CODE 



CDD13 



ORS 


XRFLAl 


REM 




LFT 


8CNST 


TRA 


C0D3 


REM 




3 RFT 


40000 


TRA 


C0D2 


REM 




LFT 


BEXTF 


TRA 


C0D12 


REM 




LFT 


BARGT 


TRA 


C0D7 


REM 





IS IT 
YES 



A CONSTANT. 



IS ARGUMENT 
YES. 



IN WORKING STORAGE. 



IS IT 
YES. 

IS IT 



EXTERNAL 



A SUBPROGRAM PARAMETER. 



FT089030 
FT089040 
FT089050 
FT089060 
FT089070 
FT089080 
FT089090 
FT089100 
FT089110 
FT089120 
FTO 891 30 
FT089140 
FT089150 
FJ089160 
"FT089170 
FT089180 
FT089190 
FT08920G 
FT08921C 
FT089220 
FT 0892 30 
FT089240 





LFT 


BARIT 


IS IT AN ARITH. STATE. FUNCTION ARGUMENT. 


FT089250 
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TRA 


C0D14 


YES 


FT089260 
FT089270 


_ _ 




REM 










STA 


COD31 


SET EQUIV POINTER INTO SECOND INSTRUCTION 


FT089280 
"Ff 089290 


... 




ZSD 


COD37 


NO CONSTANT ADDEND HERE 






TSX 

TRA 


CITBLD,4,V 
C0D47+1 




FT089300 









FT089310 






REM 






FT089320 
FT089330 




C002 


ANA 


=0777777737777 WORKING STORAGE. REMOVE HIGH-ORDER BII 






STA 


C0D31 


SAVE WORKING POINTER IN SECOND INSTRUCTION 


FT089340 
FT089350 






TSX 


FREWRK,4 


FREE UP THIS WORKING CELL 






TSX 


CIT8LD,4,W 


PUT OUT THE CODE 


FT089360 
FT089370 







NZT 


SPCDFG 


TEST THE ROUTING FLAG 






TRA 


EXCODE 


NO SECOND INSTRUCTION NEEDED 


FT089380 






CAL 


C0D31 


GET THE SECOND INSTRUCTION 


FT089390 






ACL 


= 1 


BUMP THE WORKING CELL POINTER 


FT089400 
FT089410 






STZ 


SPCDFG 


ALTER THE ROUTING FLAG 






TRA 
REM 


C0D2+2 


GO PUT OUT THIS CODE 


FT089420 








FT089430 




C0D3 


STA 
TSX 


C0D31 
CITBLD,4,C 


CONSTANT. SAVE POINTER IN 2ND INSTRUCTION 


FT089440 






PUT OUT THE CODE 


FT089450 






NZT 


SPCDFG 


TEST THE ROUTING FLAG 


FT089460 
FT089470 


- ,,— _. 




TRA 


EXCODE 


NO MORE TO DO 






CAL 

sub" 


C0D31 
= 1 


GET THE SECOND INSTRUCTION 


FT089480 
FT08949G 




"~ " 


BUMP THE C0NTA8 POINTER DOWN BY ONE 






TSX 


CITBLD,4,C 


PUT OUT THE CODE 


FT089500 






REM 






FTC89510 




r xcode 


AXT 


*» f 4 




FT089520 






AXT 


**tl 




FT08953G 






TRA 
REM 


2,4 


RETURN 


FT089540 
FT089550 












REM 






FT089560 




COD 7 


STA 


C0D4 


PROLOGUE REQUIRED. SAVE POINTER 


FT089570 






ANA 


=077777 
C0D40 


SAVE ONLY ADDRESS 


FT089580 
Ff089590 


,„„.„, „___„______^™___™— 




ZSD 


NO CONSTANT ADDEND HERE 






TRA 


C0D42 




FT089600 


. 




REM 






FT089610 

f tp rt *\ /■» e *»r* 

"FT089630 






REM 






— - — ■ - — ■ 




REM 










REM 




PROCESS SUBSCRIPTING FOR THIS VARIABLE 


FT089640 




COD5 


PAX 


,1 


GET 1 STACK POINTER 


FT089650 




. - . .- 


CIA 


POOL- 2 t 1 


I STACK ENTflY 


FT089660 






ARS 


18 


GET POINTER 


FT089670 






TMI 


CODS 


POINTER IS TO SYMTAB 


FT089680 






LOG 


P0UL,1 


GET THE FIRST I STACK WORD 


FT089690 






TQP 


C0D1U 


SKIP IF PLUS SIGN {ONLY CONSTANT ADDEND) 


FT089700 
FT089710 






REM 










ORA 
ORS 


LXD4 
XRFLAG 


OR IN THE OP CODE 


FT089720 
FT089730 












TSX 


FREWRK.4 


FREE UP THE WORKING CELL 


FT089740 






TSX 


CIT8LD,4,W 


CODE IS... LXD WORKING, 4 


FT089750 






REM 






FT089760 




' " 


STL 


CQD6 


"'"SET" FLAG iTb " t LOAD XR' STATUS 


FT089770 




COOiO 


CLA 


POOL-2,1 


GET THE CONSTANT ADDEND FROM ISTACK ENTRY 


FT089780 






PAX 


1 4 




FT089790 






SXD 

SXO 


C0D37,4 
C0D40,4 


SET THE »8UMPING» INSTRUCTIONS 


FT089800 
FT089810 




"" 








REM 






FT089820 




■~~' " " 


LOI 


POGL-1,1 


GET ASTACK WORD 


FT089830 






LFT 


BARGT 


__ _ 


FT089840 





TRA 
REM 



CODll 



SUBPROGRAM PARAMETER 



PXA 
TSX 
REM 
CAL 



t4 

C A TESTY* 

PQOL-ltl 



Cu038 



PAI 
ANA 
STA 

ZET 

ORS 



NZT 

JRA 

REM 

CAL 



CCD37 



LNT 
JRA_ 
REM 
LXA 
CAL 
PAX 
CAL 
PAC 
TXI 
PXA 
TSX 
REM 
CAL 
STZ 



CU09 



CUD12 



coon 



Cu042 



COD41 



LFT 
TRA 
REM 
TSX 
TRA 
REM 
TSX 
CAL 
TSX 
TRA 
REM 
TSX 
TRA 
REM 
CAL 
STA 
PXD 
ORA 
TSX 
REM 
"CAL*™ 
ZET 



=077777 
C0031 

C0D1 . 

C0D6 
^4820 
XRFLAG 



SPCDFG 
EXCODE 

=077777 



BARRY 
.CpD37+2 

C0D31,4 





TRA 




REM 


CODS 


PAX 




ORA 




ORS 




LOI 



EQUUY4 
»4 

POOL-1,4 
,4 

*+it4»** 

»4 
CATEST,4 

C0D31 

SPCDFG 

C0038 

T4~~~ 
LXD4 



XRFLAG 
EQUIV, 4 



8ARGT 
C009 

CITBLf>,4,V 

C0D10-1 

PROLOG ,4 

LXD4 

~CITBLD,4 f N 
COOlO-i 

CIT8LD,4,T 
EXCODE 

POOL- It 1 

C0D4 

,4 

C0D4 

PR0LGS,4 

CODl 
C006 



GO PROCESS THE CONSTANT ADDEND. 
SECOND I STACK ENTRY 



SAVE POINTER 



PUT" INTO SECOND INSTRUCTION 

OR IN THE O P CODE 

SKIP IF NO XR WAS LOADED 
TAG OF 4 



INSTRUCTION SET B Y CATEST R OUTINE 



TEST THE ROUTING FLAG 
NO MORE CO DE NEEDED HERE 

ADDEND OF MINUS ONE _ 



SKIP IF NOT AN ARRAY 



GET THE EQUIV POINTER 



AND GET THE EQUIV WORD 
AND GET THE DIMTBL POINTER, 
AND GET THE ARRAY LENGTH 
COMPLEMENTED 



8UMP BY A POSSIBLE CONSTANT ADDEND 
PUT TOTAL ADDENDJINTO ACCUM 

"go "process The constant addend 



GET THE SECOND INSTRUCTION 
RESET THE RO UTING FL AG 
GO "PUT OUT THE CODE AGAIN 



GET EQUIV WORD 

OR IN THE OPERATION CODE 



IS IT AN ARGUMENT 
YES 



CODE IS. 



LXD VAR-i-Adl-Ei* 



PUT OUT "PROLOGUE 

GET THE OPERATION CODE 



CODE IS.,. LXD **»4 



CODE IS... (OP) TRANSFER. VECTOR 



GET ORIGINAL ASTACK WORD 

CONSTANT ADDEND 
EQUIV POINTER 



PUT OUT PROLOGUE AND ADDEND 



GET OPERATION CODE 

SKIP IF NO XR WAS LOADED 



FT089850 
FTG89860 
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FT089870 
I TO 89 8 80 
FT089890 
FT089900_ 
FT 0899 10 
FT089920 
F TO 89930 
FT089940 
FTO 89950 
FT089960 
FT089970 
FT089980 



FT089990 

FT090000 

FTO9Q01O 

FT090020 

FT090G30 

FT090040 

Ffd9b050 

FT090060 

FT090076 

FT090080 

FT090090 

FT090100 

FT09011G 

FT090120 

Ff69bl36 

FT090140 

FT090150 

FT 090 160 

F f 090 170 

FT090180 

FT090190 

FTO 90200 

FT090210 

r i vrvcjLv 

FT09Q230 
FJ090240 
"FT090250 
FT09Q260 
FT090270 
FT090280 
FT090290 
FT090300 
FT090310 
FT090320 
F f 090330 
FT090340 
FT 090 350 
FT090360 
FT090370 
FT090380 
FT090390 
FT090400 
FT090410 
FT090420 
FT 090430 
FT090440 





ORA 
ORS 


=4B20 
XRFLAG 


TAG OF 4 


FT090450 
FT090460 






TSX 
N2T 


CITBLD, 4, N 
SPCDFG 


CODE IS... (OP) ** 
TEST THE ROUTING FLAG 


FT090470 
FT090480 
FT 090490 
FT090500 






TRA 

REM 


EXCOOE 


NO MORE WORK TO DO HERE 






CAL 
LNT 


=077777000000 
BARRY 


DECREMENT ADDEND OF -1 
SKIP IF NOT AN ARRAY 


FT090510 
FT090520 
FT090530 
FT090540 
FT690550 
FT090560 
FT090570 
FT090580 
FT090590 
FT090600 
FT090610 
FT090620 
FT 090630 
FT090640 
FT090650 
FT090660 
FT090670 
FT090680 

ONFT090690 
FT090700 
FT 690710 
FT090720 
F TO 90 730 
FT090740 
FT090750 

SSFT090760 
FT090770 
FT090780 




— — 


TRA 
LXA 
CAL 
PAX 


C0D40+2 
C0D4,4 
"" EQUIV, 4 
t4 


GET THE EQUIV POINTER 
AND GET THE EQUIV WORD 
AND GET THE DIMTBL POINTER 


- 




CAL 
PAC 


POOL-1,4 
t4 


AND GET THE ARRAY LENGTH 
COMPLEMENTED 




CUD40 


REM 
TXI 


*+l,4,** 


BUMP BY A POSSIBLE CONSTANT ADDEND 






PXD 
ORA 
TSX 

REM 


,4 

C0D4 

PR0LGS,4 


GET THE EQUIV POINTER 






GO PUT OUT THE PROLOGUE 






CAL 
STZ 
TRA 
REM 


C0D31 

SPCDFG 

"C0D41 


GET THE SECOND INSTRUCTION 
RESET THE ROUTING FLAG 










COD 14 


STA 

ORA 


C0031 

=060400000 

CITBLD,4,N 

SPCOFG 

EXCOOE 


SAVE ARGUMENT POINTER IN SECOND INSTRUCT! 
ADD IN XR4 AND INDIRECT ADDRESS BITS 
PUT OUT tHE CODE 






TSX 

REM 






NZT 
TRA 


IS THERE A SECOND INSTRUCTION. 

NO 

YES. GET THE INSTRUCTION 

ADD IN XR4, INDIRECT BITS, AND BUMP ADORE 

PUT OUT THE SECOND INSTRUCTION 






CAL 

ACL 

TSX 

TRA 

SPACE 

REM 


C0D31 

=060400001 
CITBLD, 4, N 
EXCOOE 






3 

ROUTINE TO PUT OUT A CONSTANT ADDEND FOR A VARIABLE. 


FT090790 
FT090800 






REH 
REM 
REM 

REM 


USES SPECIAL CITBLD FLAGS »D» FOR CA OF +1 AND «G« FOR 

CA OF -1- ANY HTHFR WriW-7PQn TA T< r.n/CM m fiTQUi 


FT090810 

I 1 V 7%JV£.\J 






WITH FLAG »Q» 


. 


FT090830 
FT090840 

FT090850 
FT 0903 60 
FT090870 
FT090880 
FT090890 
FT090900 
FT 0909 10 
FT090920 
FT090930 
FT090940 
FT 0909 50 
FT090960 
"Tf 090970"' 
FT090980 
FT090990 
FT091000 
FT091010 




LATEST 


SXA 
PAX 
TXL 

LOQ 


EXCATS,4 

t4 

EXCArS-2,4,0 

CITXO 

EXCAtS-1,4,1 

CITXG 

EXCATS-1,4,-2 

C1TBLN,4,Q 

CITXV 

C0D47 
**,4 


GET THE CA 






FOR NO CONSTANT ADDEND 






TXL 

LDQ 


FOR CA OF +1. 

FOR CA OF -1. 

FOR OTHER CA»S. GIVE THE CA TO CITBLN 

INSTRUCTION FOR THIS CASE 






TXH 
TSX 
LDQ 
REM 
StQ 
AXT 




cXC ATS 


SET THE INStRUCtrON FOR THE CODE ROUTINE 






TRA 
REM 
TSX 
TSX 
TSX 


lt4 

CITBLD,4,V 
CITBLD, 4,0 
CITBLD, 4, G 






Ci TXV 
C1TXD 
CITXG 


STRAIGHT VARIABLE RELOCATION 
VARIABLE RELOCATION AND CA OF +1. 
VARIABLE RELOCATION AND CA OF -I. 
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TTL A R 
ROUTINE 



IT H H E T l~C~ U T I L 71 T Y~ F R~ P AND C A 
TO RESTORE CELL 2 



PUICL, 



REM 
CLA 



exput; 



TPL 

SJCA _ 

TSX 

CODEO 

CODEN 

STZ 

stz 

REM_ 

AXT 

TRA 



GET T HE CEL L-2 FLAG 

CELL 2 IS NOT NOW SAVED 



FREE UP THE WORKING CELL 



RESTORE CELL 2 
RESET THE POINTER 



SPACE 
ROUTINE 



SFTUP 



REM 
SXA 
CAL 

TNZ 



SAVCL2 

1,4 

EXPUT2,4 

FREWRK,4 

LDQ,W 

STQ2 

SAVCL2 

SETUP 2 

»«,4 

1,4 

6 

TO ESTABLISH OBJECT-T IME UNKAGES TO_ .D^AN^CA_RO.UT INES 

EXS£TP,4 



FT091020 

FT091G30 

FT09l640 

FT091050^ 

FT09106G 

FT091070 
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RESET THE ROUTINE NAME CELL 



SAVCL2 
SETUP1 



ScTUPl 



REM 
CODJ5N 

fsx 

SSM 
STO 
^ODEO 
REM 

L XA 
CAL 

LAS 

TRA 

TRA 

REM 

SLN 

STL* 

ORA 

TSX 

CODEN 



LDQ2 



SKIP IF CELL 2 IS STILL SAVED 



GET CELL 2 



GET A WORKING CELL 

SET SIGN MINUS AND SAVE WRKCEL POINTER 



fcXSETP 



REM 
AXT 
TRA 
SPACE 
ROUTINE 
REM 



GETWRK,4 

SAVCL2 
S TQtW 

EXSETP,4 
It 4 
SETUP2 
♦+2 
EXSETP+1 

S£TUP2^ 

If 4 

LDQ 

CJTtBLD»4^S 

STQ2_ 

**,4 _ 

'2,4 

6 __ - __ 

TO PUT PSEUDO-AC INTO PSEUDO-MQ 



GET THE ROUTINE TO BE LOADED 

IS_IT SAME AS ONE ALREADY LOADED. 

NO 

YES. ALL DONE 

SAVE NAME OF ROUTINE IN CELL 



MARK USAGE IN SPECIAL NAME TABLE 



GET THE TRANSFER VECTOR ENTRY 
PUT INTO CELL 2 



AC.MQ 



SXA 
ZET 



SKIP IF AC IS ALREADY IN THE AC+MQ 




EXACMQ,4 

REGFLG 

AC.MQ1 



CLA777 
LDQ776 
ST0775 
SJQ]J± _ 

**,4 
1,4 

6 

TO PUT PSEUDO-MQ INTO PSEUDO-AC 



EXACMQ,4 
REGFLG 



FT091080 
FT091090 
FT091100 
FJ091110 
FT091120 
FJ091130 
FT 09 1140 
FT0911_5G 
FT091160 
FT091170 
FT091180 
FT09119J) 
FT091200 
_FJ091210 
FT091220 
FT09123JD 
F TO 9 1240 
FTC91250 
FT09126C 
FT091270 
FT091280 
FT091290 
FT 09 1300 
FT091310 
FT091320 
FT091330 
FT 09 1340 
FT09JJJ5G 
FT091366 
FT091370 



SKIP IF PSEUDO-MQ IS ALRE ADY IN A C+MQ 



FT091380 

*- -r- <f\r\t -» r\ t\ 

FT091400 
FT091410 
fT091420 
FT091430 
FT091440 
FT091450 
FT091460 
FT091470 
FT091480 
FT091490 
FT091500 
FT091510 
FT091520 
FT091530 
FT 09 15 40 
FT091550 
FT091560 
FT091570 
FT091580 
FT091590 
F f 091 600 
FT091610 



TRA 

REM 
CODEN 
COD EN 
HQ.AC1 CODEN 
CODEN 



MQ.AC1 



CLA775 

LDQ774 

"ST0777 

STQ776 



TRA 
SPACE 



EXACMQ 
6 



ROUT fNE TO "LOAD THE PSEUDO-AC FROM STORAGE 

R E^„ _ — — _ ____ .... 

CQDLAC*SXA~"~ EXCODE+1,1 SAVE XR1 IN CODE ROUTINE 

AXC CDLACl-2,1 GET RETURN POINT FR OM CODE R OUTINE 



REM 
CDLAC2 CAL 



LOG 



GET OP CODE FOR SECOND INSTRUCTION 



SLW 

SXA 
SXA 
STL 



COD31 
EXCODE,! 



SAVE IN CODE CELL 

SET RETURN POINT IN CODE ROUT IN£EXJT__ SEQ 



£XSPCD,4 
SPCDFG 



SAVE XR4 

SET THE SPECIAL CODE ROUTING FLAG 



TRA 

REM 



COD32 



GO TO CODE ROUTINE 



SPACE 6 

ROUTINE TO PUT OUT TyO STZ INSTRUCTIONS 



REM 
CuDSTZ CAL 



TRA 
SPACE 



CODSTR+l 
6 



'*""' ROUTINE TO LOADTHE PSEUDO-MQ FROM STORAGE 

REM _, . „. . . 

CODLMQ SXA EXCODE+1 * 1 

AXC CDLMQ1-2 , 1 _ 

TRA CDLAC2 

SPACE 6 

* ROUT INinf6~PUTn^EGAT iW OF STORAGE INTO PSEUDO- AC 

REM ___ _ , _ __. ,.... 

CODSUB SXA EXCODE+ltl 

AXC CDSUBl-2,1 . 



TRA 
SPACE 



CDLAC2 
6 



GET SECOND INSTRUCTION 

SAVE SECOND INSTRUCTION FOR CODE ROUTINE 



_ routINE TO OUTPUT THE STR AND PZE INSTRUCTIONS 

REM _ _ 

CjDSTR CAL~~ PZE 

StU C0031 
SPCDFG 
CODE+1 
"6 
* ROUTINE TO LOAD THE AC+MQ FROM STO RAGE 



STL 
TRA 
SPACE 



REM 

CCDLD CAL LDQ _ _... ...... _ 

TRA CODSTR+1 

SPACE 6 

* ROUTINE TO STORE THE AC+MQ IN VARIA8LE STORAGE 

REM _ . _ _ _ _.__ 

CUDSTO CAL STQ 

TRA CODSTR+1 

SPACE 6 

* RE-ENTRY POINTS FROM THE CODE ROUTINE. 
CDSUB1 CODEN LRS 

REM _ __ 

CDLACi CODEN ST Q 777 RE-ENTRY FROM CODE ROUTINE 

CODEN STQ776 



RE-ENTRY FROM CODE ROUTINE 



FT091620 
FT091630 
FT091640 
FT091650 
FT091660 
FT091670 
FT09168Q 
^T091690 
Ft 091700 
FT091710 
FT091720 
FT091730 
FT091740 
FT091750 
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FT091760 
FT091770 
FT091780 
FT091790 
11691800 
FT091810 
FT091820 
FT091830 
FT091840 
FT091850 
FT091860 
FT09187G 
FT091880 
FT091890 
F 1091900 
FT091910 
FT 09 1920 
FT 09 1930 
FT 09 1940 
FT09195CL 
"FT091966 
FT091970 
FT091980 

*?-rr\rti rtt\rs 

r»U7i ~7Z/\J 

FT 092000 
FT092010 
FT 092 020 
FT 0,92 030 
FT09204C 
FT092050 
FT092060 
FT092070 
FT092080 
FT092090 
FT092100 
FT09211G 
FT092120 
FT092130 
FT092140 
FT092150 
FT092160 
FT092170 
FT092180 
FT092190 
FT09220Q 
FT092210 





REM 






EXSPCO 


AXT 


**,4 






TRA 


2,4 






REM 






CDLHQ1 


CODEN 


ST0775 






COOEM 


STQ774 





RE-ENTRY FRQN CODE ROUTINE 



TRA 



EXSPCD 



FT092220 
FT092230 
FT09224G 
FJ092250 
FT092260 
FT092270 
FTG92280 
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TTL 
RESULT 



E S~U L T 



A R I THHEI IC UTILITY - 

ROUTINE* — 

ROUTINE T'dn^C^RDTi^iTrEFToCATlbN AN_TM0DE~0F"a" CURRENT 
RESULT. THIS ROUTINE IS CALLED BY THE CODE GENERATOR^.. 

"remT"'"' 

TYPICAL 



CALL IS VIA THE 'RESUL T' MACRO. 



RESULT REAL, AC 



REN 



THE MODE OF THE 
ASTACK LOCATION 
(1 
OR 



RESULT 
(XR 1) 



IS PUT INTO 
REGIST IS 



ASTACK AT THE CURRENT 

SET TO THE REGISTER LOCATION 



FOR AC, AND 
A RESULT IN 



2 FOR MQ*. 
STORAGE). 



, INDICATES EITHER NO RESULT, 
REGIST+1 GETS THE ASTACK POINTER 



OF THIS 
RFM 



RESULT. 



TlTTHE ST^EHENT" IS DOUBLE PRECISION OR COMPLEX, »AC» AND »MQ« 
REFER TO THE PSEUDO-REGISTERS IN HIGH CORE. IF THE ACTUAL 



AC+MQ 
•PAC« 



ALSO CONTAIN 
OR •PMQ» ARE 



VALID PSEUDO- 
USED (IN THE 



-REGISTER RESULTS, THE FLAGS 
RESULT MACRO). IN THIS CASE, 



REGFLG 
SPACE 



IS 
3 



SET NON-ZERO 



ENTRY FOR 
ROUNDX IS 



FLOATING ROUND OPTION. 

CALLED VIA THE RESULT MACRO WHE N THE MACRO HAS 



THE"TH~IRD™ARGUMENT = ROUND. IF THE FLOATING ROUND OPTION 
!_• _IN EFFECT (ROUNDF J_S NON-ZERO), THE CODE 'FRN' IS P UT OUT 
BEFORE ENTERING THE NORMAL RESULT SECTION. 
REM _ 



NZT 
TRA 
SXA 
CAL 

"tsx 

AXT 

REM 

REM 

NORMAL 

REM 



ROUNDF 
RESULT 
V+3 f 4~ 

FRN 

CITBLD,4,N 

**,4 



IS FLOATING ROUND OPTION 
_N_Lt- SKIP THIS CODE 
SAVE"XR4™" 



IN EFFECT 



CODE IS 



FRN 



RESULT ENTRY. 



RESULT CAL 
ARS 



,4 
18 



GET CALLING INSTRUCTION 
DECREMENT TO ADDRESS 



ANA 
_STO 
SXA 
R€M 
LDI 
STZ 
LFT 

S JJL 
"rem 

CAL 
ANA 
ALS 
SLW 
REM 
TRA 



=03 
REGIST 



SAVE LOCATION CODE FOR RESULT 



REGIST+1, 1 



t4 

RjEGFLG 

4 

REGFLG 



GET THE CALLING INSTRUCTION 

INITIALIZE REGFLG _ _ 

IF AC AND MQ CONTAIN VALID RESULTS, 

IN ADDITION TO A PSEUDO-REG, SET THE_ FLAG 



=070000000 
12 
AStACK, 1 

"GENXlf 



SAVE THE MODE INDICATION OF 
POSITION THE MODE BITS INTO 
MODIFY ASTACK 



THE RESULT 
PREFIX 



FT092290 
FT092300 
FT092310 
FT09232G 
FT092330 
FT092340 
"FT092350 
FT092360 
FT092370 
FJ092380 
FT 092390 
FT092400 
FT0924l6 
FT09 2420 
FT09243G 
FT092440 
FT09245G 
FT092460 
FT092470 
FT092480_ 
FT 092490 
FT092500 
FT092510 
FT09252G 
FT092530 
FT092540 
FT09255G 
FT092560 
FT092570 
FT092580 
FT092590 
FJ092600 
FT092610 
FT092620_ 
"FT092630 
FT 092 640 
FT09265G 

f t rt r» o t. _. f\ 
r j wt_.ouw 

"FT 092670 
FJT092680 

""FT092690 
FT092700 
FT092710 
FT092720 
F TO 92 730 
FT092740 
FT092750 
FT092760 
FT092770 
FT092780 
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RETURN TO GEN ROUTINE 



FT092790 
FT092800 
FT092810 



TORE 



TTL A R I T H H 
ROUTINE TO STOR E TH 



PUTS NUMBER OF WORK 
KITH A 1-BIT IN THE 
REM 
NZT 



TRA 
STZ 
SXA 
LDQ 



ARS 
LGR 



CAL 
LGR 



STQ 
TRA 



REGIST 

1»4 

AUXFLG_ 

EXST0R,4 

=0 



E t I~C U T I L I TY - STORE FT092820 

E ACCUM ULAT OR O R MQ IN TEMPORARY^ TORAGE . FJ_G9 28 30 

ING CELL INTO ADDRESS OF CURRENT ASTACK WORD, FT09284G 

FTQ92850 
FT092860 
FT092870 
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HIGH ORDER POSITION OF THE ADDRESS . 



CAL REGIST 

LGR_ 2 

LXA REGISf+1,4 

CAL ASTACK, 4 



33 
3 



AUXILX 
12 _ 
GEN6 
GENS 



1 S_ I T ALREAD Y I N STORAGE , 
YES 
_SE J_. FLAG TO ' S_T ORE •_ MODE 

ZERO THE MQ . 



R£GISTER_OF THIS_ ST 0_R ABLE _ WORD 
GET ASTACK POINTER 
GET ASTACK WORD_ 



SHIFT MODE INTO POSITION 



FT092880 
FT092890 
FT092900 
FT092910 
FT09292Q 
FT092930 
FT09294G 
FT092950 



FT092960 

FT092970 

■gj^TgpVniroor FOR " STORE OPERATION FT092980 

ZERO A-OPERAND B ITS AND MOVE IN THE OP C0DEFT092990 
SET THE KEY~WORb IN ITS CELL FT093000 

GO NOW TO T HE GE N ROU TINE _ F TO 930 10 



^ ^—.^--^ HETIC UTILITY - PLACE FT093020 PAGE 239 

* __JROUTINE TO .PLACE CURRENT ASTACK WORD INTO THE ACCUM U LATO R FT093030 

* """ USED BY IF STATEMENT PROCESSOR ONLY. FT09304G 

REM _ ^„_^--^^-—~^^~——————— -- FT093050 . 

^_____- — Al j^ FLG - set Fj_AG TO 'PLACE 1 MODE ~ FT 093060 

STL A UXFG1 FLAG TO THE GEN ROUTINE F TO 93070 . 

_ TraT GEN+1 ~G0 FIND PROPER CODE SEQUENCE FTG93080 

REM FT093090 



TTL U T I L 1 T Y F 

CODE GENERATORS FOR 



OR STORE AND PLACE 
THE STORE AND PLACE ROUTINES 



AUXIL1 



REM 
CODE 



CLA,6 



TRA 
REM 



GENXIT 



AUXIL2 



NZT 
TRA 

CODEN 
TRA 



AUXFLG 
AUXIL9 



FOR STORE MODE 



AUXIL3 



REM 
CODE 



XCA 
GENXIT 

CAL,B 



BOOLEAN 



TRA 
REM 



GENXIT 



AUXIL5 



STZ 
TRA 



AUXIL4 



REM 
STL 



AUXFG1 
MXJL4+1 

AUXFG1 



SET FLAG TO •MQ* MODE 



SET FLAG TO «AC f MODE 



NZT 

JRA 
ZET 

TRA 



AUXFLG 
AUXIL8 



FOR STORE MODE 



REGFLG 
GENXIT 



RESULT ALREADY IN AC 



REM 




CAL 


CLA777 


NZT 


AUXFG1 


CAL 


CLA775 


TSX 


CITBLD,4,N 


TRA 


GENXIT 


REM 




AUXIL6 ZET 


AUXFLG 


TRA 


GENXIT 


TSX 


PREPWK f 4 


CODEO 


sto,w 


EXSTOR AXT 


♦ • f 4 


TRA 


lt4 


REM 




AUXIL7 ZET 


AUXFLG 


TRA 


GENXIT 


TSX 


PREPWK,4 


CODEO 


SLW,W 


TRA 


EXSTOR 


HE* 




AUXIL9 TSX 


PREPWK,4 


CODEO 


STQ,W 


TRA 


EXSTOR 


REM 




AUXIL8 ZET 


REGFLG 


TRA 


AUXIIO 


REM 




CAL 


CLA775 


ZET 


AUXFG1 


ACL 


=2 


TSX 


CITBLD,4 f N 


CAL 


LDQ774 


ZET 


AUXFG1 


ACL 


=2 


TSX 


CITBLD,4,N 


REM 




AUXIIO TSX 


PR£PWK,4,2 


STA 


AUXI11 



GET CODE 



GET CODE FOR MQ LOAD _ 
CODE TO LOAD THE ACCUM 



RESULT ALREADY IN ACCUM 

GO PREPARE THE WORKING CELL 

STORE THE ACCUMULATOR 



K-iriUL! ALKCAUI IN AULrUfl 



GO PREPARE THE WORKING CELL 
STORE OFF THE BOOLEAN ACCUMULATOR 



GO PREPARE THE WORKING CELL 
STORE OFF THE MQ 



SKIP IF ACCUM AND MQ ALREADY HAVE DATA 



MODIFY INSTRUCTION FOR THE PSEUDO-AC 



PUT OUT CCDE TO LOAD THE ACCUM 



PUT OUT CODE TO LOAD THE MQ 



PREPARE TWO WORKING CELLS 
SAVE THE WORKING CELL POINTER 



FT093100 
FTG9311G 
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FT093120 
FT093130 
FT093140 
FT093150 



FT093160 
FT093170 
FT093180 
FJG9319G 
FT093200 
FT093210 
FT093220 
FT093230 



FT093240 
FT093250 
FT09326G 
FTJD93270_ 
FT093280 
FT093290 



FT093300 
FT093310 



FT093320 
FT093330 
FT093340 
FT093350 
FT093360 

FT0933Jit 
Ff 0933 80 
FT093390 
FT093400 
FT093410 
F TO 93 420 
FTG9343CL 
FT 09 3440 
FT09345G 



FT093460 

r* tt ftn*> i - -* r\ 
r 1 \J~f3*t t U 

FT093480 
FJ093490 
FT093500 
FXD93510 
FT093520 
FT093530 
FT093540 
FT093550 
FT093560 
FT093570 
FT093580 
FT09359O 
FT093600 
FT093610 



FT093620 
FT093630 
FT093640 
FTO 9 3 650 
FT093660 
FT093670 



FT093680 
FT093690 





COOEO 
CAL 


STO,W 
AUXI11 


STORE OFF THE ACCUMULATOR FT0937Q0 
REGAIN THE WORKING CELL POINTER FT093710 
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ADD 
TSX 


= 1 
CITBLD,4,W 


BUMP THE POINTER FT093720 
STORE OFF THE MQ FT09373Q 

FT093740 
FT093750 






TRA 
REM 


EXSTOR 




AUXI11 


STQ 
SPACE 


*» 

4 

EXPREP,4 

»4 

*+l 

GETWRK,4,»* 


CODE WORD FOR STORE ROUTINE FT093760 

FTQ93770 




PREPWK 


SXA 
CAL 
STD 
TSX 


ROUTINE TO PREPARE A WORKING CELL FT093780 
GET CALLING INSTRUCTION FT093790 






PUT NUMBER OF WORDS WANTED INTO INSTRUCTI0NFT093800 

GO GET THE WORKING CELLS Fr093810 

ADD IN A HIGH-ORDER BIT FOR ASTACK FT093820 

GET ASTACK POINTER FT093830 






ORA 
LXA 


= 1B21 
REGIST+1, 4 






STA 
ANA 
STZ 
STZ 


ASTACK,4 
=037777 
REGISf 
REGIST+1 


MODIFY ASTACK FT093340 
KILL THE HIGH-ORDER BIT FT093850 






RE-INITIALIZE THE REGISTER CELLS FT093860 

FT093870 




tXPREP 


STZ 
AXT 
TRA 


REGFLG 

**»4 

lt4 


FT093880 
FT093890 






FT093900 





* 


TIL ARITHMETIC UTILITY PROG, - GET it 
ROUTINE TO OBTAIN ONE OR TWO WORKING CELLS FROM THE WORKING 


R K FT093910 
FT093920 
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POOL. CALLING SEQUENCE IS.*. 

rSX GETWRK,4,XX 


FT093930 
FT093940 
FT093950 
FT093960 




ft 

* 


WHERE XX IS IF ONE CELL IS WANTED, AND 2 IF TWO 
CONSECUTIVE CELLS ARE WANTED. 






ADDRESS OF LOGICAL ACCUMULATOR WILL CONTAIN THE POINTER 
TO THE FIRST OF THESE CELLS. 


FT093970 
FT093980 
FT093990 
FT094000 
FT094010 
FT094020 
FTG9403G 
FT094C40 
FT094C50 
FT094060 
FT094070 
FT094080 
FT094090 
FT094100 
FT094110 
FT094120 
FT094130 
FT094140 
FT094150 
FT094160 
FT094170 
FT094180 






AT PRESENT, ONLY 36 CELLS ARE AVAILABLE. 




GETWRK 


SPACE 2 

SXA EXWRK,4 






CAL ,4 GET THE CALLING INSTRUCTION 
ANA =07000000 SAyE ONLY THE LOWER DECREMENT 






^LW btlWK/ 

AXT GETWR3,4 PREPARE TO SET UP TRANSFER ADDRESS 






TZE *+2 

AXT GETWR4»4 TWO CELLS WANTED 






SXA GETWR5,4 
REM 






CAL WRKCEL GET WORKING CELL KEY WORD 
SSM 






AXT 1,4 INITIALIZE XR4 
LGR 1 MOVE NEXT BIT INTO MQ SIGN 
TQP ** ADDRESS SET FROM ABOVE 
TXI *+l,4,l BUMP COUNTER 




G-TWR5 




G-rWR2 


TXL »-3,4,36 CONTINUE THE SEARCH IF NOT OUT OF BITS 
STR MSG100,,SKEND ERROR MESSAGE 




GcTWR4 


REM 

tBT IS AN ADJACENT SECOND BIT AVAILABLE. 

TRA *+2 YES. GOODIE 

TXI GETWR2,4,1 NO. RETURN TO LOOK AGAIN 

ORA =1 TURN ON THE BIT 

REM 


FT094190 
FT094200 
FT094210 
FT094220 
FT094230 
FT094240 
FT094250 
FT094260 


— 


GETWR3 


LRS TURN ON THE BIT TO MARK IT IN USE 
SXA *+l,4 PUT SHIFT COUNT INTO INSTRUCTION 






LGL »« RE-ADJUST THE KEY WORD 
SLW WRKCEL AND RESTORE IT 


FT094270 

CTflrti ">OA 
1 1 Vf 7TC O W 

FT094290 
FT094300 
FT094310 
FT094320 
FT094330 
FT094340 
FT094350 
FT094360 
FT094370 
FT094380 
FT094390 
FT094400 
FT094410 
FT094420 
FT094430 
FT094440 




GETWR1 


REM 

TXI *+l,4,«* BUMP BY LENGTH OF CELLS RESERVED FOR 






REM ARITH. STATE. FUNCTIONS. 
ZET GETWR7 




wURKS 


TXI *+l,4,l BUMP LENGTH IF TWO CELLS OBTAINED 
TXL *+3,4,*« SHOULD LWORKS BE BUMPED. 






SXD *-l,4 YES. UPDATE THE TEST INSTRUCTION 
SXA LW0RKS»4 AND UPDATE LWORKS 






REM 

ZET GETWR7 






TXI *+2,4,-2 AOJUST POINTER FOR TWO-CELL CASE 
TXI *+l,4,-l ADJUST POINTER FOR THE ONE-CELL CASE 
PXA ,4 PUT POINTER INTO ADDRESS OF ACCUM 
REM 




exwrk 


AXf ** f 4 
TRA 1,4 





TTL A R I T H M E 
ROUTINE TO RELEASE 



fTc U~T I L I T Y p R G. - FREW 
ONE WORKING CELL FROM SERVICE. 



R K FT094450 
FT094460 
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CALLING SEQUENCE IS... 



SPACE 



FREWRK SXA 

SLN 

PAC 

FREWR1 TXI 

REM 

J^AL 

LGR 

J.RS 

LGL 
SLW 



CAL 
TRA 



EXyRK,4 
GETWR7 

*+lt 4 f ** 



WRKCEL 

It4 





lt4 
WRKCEL 



GETWR7 
EXWRK 



CAL < NUMBER OF FOR KING CELL) 

' T S X F R EWR Kf 4 



SAVE POINTER 



6UM P B Y NUM BER OF CELLS RESERVED BY 

ARIThT STATE." FUNCTIONS. 

GET KEY WORD 



SHIFT KEY WORD 

KILL THE APPROPRIATE BIT 



SHIFT BACK INTO PROPER POSITION 
RESTORE THE KEY WORD__ _ 
RESTORE THE ACCUMULATOR" ~" 



FT094470 
FT094480 
FT09449G 
FTG945GG 
FT0945iO 
FT094520 
Ffd94530 
FT094540 
FT094550 
FT094560 
FT094570 
FT094580 
FT094590 
FT094600 
FT094610 
FT094620 



TTL PASS1UTILI 

CONSTANT STASHING RO UTINES, .. 



TY PROGRAM - 
ASCON1 AND ASCON2 



A S C N 1 



REM 

ROUTIN E S TO ENTER ONE- AND TWO-WOR D CONSTANTS INTO THE CON STANT 

TABLE." 

REM 



ENTRY FOR ONE-WORD CONSTANT... 
CAL CONSTANT 



TSX ASCONl,4 



REM 



ENTRY FOR TWO-WORD CONSTANT 

CAL FIRST. PART 

LOQ 
TSX 



SECOND. PART 
ASC0N2*4 



FTQ94630 
FT094640 
FT094650 
FJ094660 
F TO 946 70 
FTD94680 
FT 094690 
FT094700 
FT094710 
FT094720 
FT094730 
FT094740 
FT094750 
FT094760 
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REM 

ON RETURN FROM THIS ROUT INE, THE ADDRESS OF THE ACCUMULATOR _ 
WILL POINT TO THE POSITION OF THE CONSTANT IN THE CONSTANT TABLE 
IN THE CASE OF TWO-WORD CONSTANTS, THE P OINTER POINTS T O THE 



THE PART WHICH IS HIGHEST IN CORE 



MOST SIGNIFICANT PART (I.E 

IN THE OBJECT P ROGRAM). 

REM 

CONTAB GOES BACKWARD IN MEMORY, WITH INDEXING STARTING AT ZERO. 



NOCONT = NUMBER OF CONSTANTS CURRENTLY IN THE TABLE. 

NOCNST = MAXIMUM ALLOWABLE LENGTH OF CONTAB. 

REM 

IF CONSTANT TABLE OVERFLOW_ OCCURS, THE CURRENT LENGTH (NOCONT) 

IS RESEf TO" ZERO, AND AN ERROR MESSAGE ISSUED. 



A SCON 1 



ASC2 



ASC3 



A SCX 



ASCI 



JiPACE 
SXA 
LXA 
TXL 
LAS 
TRA 

J** 
TI)( 

LXA 
TXI 
TXH 
SLW 
SXA 

f¥F 

PXA 
AXT 
TRA 
AXT 
STR 



4 

ASCX,4 
NOCONT, 4 
ASC2,4,0 

CONTAB+1,4 

*-~3,4,l 

NQC0NT,4 _ 

*+ 1,4,1 

ASCi,4,N0CNSl 

CONTAB +1,4 

NOCONT, 4 

*+ 1,4,-1 ~ 

♦ » ,4 

1,4 

1,4 

MSG100,,ASC2 



rABLE EMPTY 



MJISJ AN IT ; FOUND . AD J U ST P 1 NT ER 

NOT IN TABLE. ADD IT. 



TABLE NOT FULL 



CONSTANT TABLE FULL. RESET IT. 




A SCX, 4 

NOCONT, 4 

ASC5 

CONTAB+1,4 



ENTRY FOR 2 WORD CONSTANTS 



FIRST PART FOUND 



NOT IN 



* + 2 

ASC4 

*-3,4, 1 

NOCONT, 4 

*+l,4,2 

ASCI, 4, NOCNST TABLE FULL 

n6conT,4 

CONTAB+2,4 



FT094770 
FT094780 
Ft094790 
FT094800 
Ft094810 
F T094 820 
FT094830 
/J 09484j^ 
FT094850 
FT094860 
FT094870 
FT094880 
FT094390 
FT094900 
FT 0949 10 
FT094920 
FT094930 
FJ094940 
FT094950 
FT094960 



FT094970 
FT094980 
FTQ9499d 



FT095Q10 
FJ09502G 
FT095030 
FTQ95040 
FT095050 
FT095060 
FT095070 
FT095080 
FT 095090 
FT095100 



FT095110 
FT095120 
FT095130 
FT095140 
FT 0951 50 
FT095160 
FT095170 
FT095180 
FT095190 
FT095200 
FT09521Q 
FT095220 



STQ 

TXI 

ASC4 XCL 
JLAS 

JRA 

XCL 
TRA 



CQNTAB+1,4 
.ASCX-1,4,-1. 

C0NTABJ4 

ASCX-1 
ASC5 



ADJUST POINTER AND RETURN 



RETURN 



FT095230 
FJQ95240 
FT09525O 
FT095260 
FT095270 
FT095280 
FT095290 
FT095300 
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TTL PASS 1 UTILITY PROGR 

*_ ROUTINE TO GET NEXT LOC ATION IN POOL 

SPACE 3 

MEXTLP CAL NXTLOC „._ 



AH - NEXTLP 



ADD 
SLU 
ACL 
TRA 
REH 
PZE 



NXTLOC 

*Vz 

lt4_ 



LSYMTB 



FT095310 
FT095320 



FT095330 
FT095340 



FT095350 
FT095360 



FT095370 
FT095380 
FT095390 
FT095400 
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TTL PASS 1 UTILITY PROGRAM - PROLOG 

T_HIS_SyBROUTINE EN TER S A W ORD INTO THE PROLOGUE TABLE 

(PR L T B L). ENTRIES INTO THIS TABLE ARE MADE DURING PASS 1. 
SPACE 2 



CALLING SEQUENCE* 



REN 



CAL 



(ARGUMENT) 



TSX PR0LGS,4 



REM 
REM 



WHERE t 

ARGUMENT 



(3-17) = INCREMENT TO BUMP SUBR. ARG. LOCATION 



ARGUMENT (21-35) = POINTER IN S Y M T A B FOR THIS 

ARGUMENTS ENTRY 



SPACE 
ENTRY 



AT P R L G FORCES INCREMENT TO BE ZERO 



SPACE 

PROLOG ANA 
'"PROLGS'SXA "" 

AXC 

f XL 
PAX 
XCL 
CAL 



ARS 
RQL 
LGL 
ALS 
ACL 
XEC 



=077777 
EXPR0L,4 

** f 4 

"PROL I f 4 , -PRLNGH- 1 
t4 



EQU]V,4 

15 

3 

15 

15 

PCOUNT 

PRGLOG+2 



SAVE ONLY ADDRESS 
SAVE XR4 



GET -(PRLTBL) POINTER 



ERROR IF PRLTBL FULL ALREADY 
GET EQUIV POINTER 

SAVE ARGUMENT IN MQ 

GET THIS ENTRY'S EQUIV WORD 



SET ACC(P,l-35) TO, 
ARGUMENT NO. (P.l-5) 



DELTA (6-20) 
PCOUNT (21-3 5) 
""" "STORE" THIS NEW ENTRY IN PROLOGUE 
RESET XR4 BEFORE STORING 



FT09541G 
FJ095420 
FT09543G 
FT095440 
FT095450 
FJ095460 
FT09547O 
nr095480 
FT095490 
FT09550G 
FT095510 
FT095520 
Ff095530 
FT095540_ 
FT095550 
FTG95560 
FT 09 5 5 70 
FT095580 
"FT095590 
FT095600 
FT 09 56 10 
FT095620 
FTG9563G 
FT095640 
FT095650 
FT095660 
FTG95670 
FT095680 
FT095690 
FT09570G 
FT095710 
FT095720 
FT095730 
FT095740 
FT 095 7 50 
FT095760 
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SLW 

LXA 

TXI 

SXA 

EXPROL AXT 
TRA 
REM" 
REM 
REM 
RE M 
PR0L1 STR 



PRLTBL-1,4 TABLE (PRLTBL) 

PRQLQG+2»4 BUMP PRLTBL POINTER 



*+l,4 t l 

PROLOG+2 



,4 



• • t4 
1»4 

... THE 

TO ENTE 



RESTORE XR4 
AMD EXIT 



FOLLOWING MACRO IS EXECUT ED IFF A CAL L IS MADE 
R "A WORD INTO PRLTBL AND THE TABLE IS FULL. 



MSG1G0,,EXPR0L 



FT09577G 
FT095780 
pf 095790 
FT09580G 
"FT095810 
FJQ9&&2Q 
FT095830 
FT095840 
FT095850 
FT09586G 
FT095870 



* 

* 
* 

* 

* 
a 
* 

* 

* 
* 

* 

& 

* 



TTL PASS 1 

THIS SUBROUTINE JS 



UTILITY 
RESPONSIBLE FOR 



P R G R 
INSERTING 



AM - 
ENTRIES 



C I T B L 
INTO THE 
F L G) 
ONLY ONE 







COMPILED INSTRUCTION TABLE IC I T) ANO CIT FLAG (C I T 

TABLE. EACH^C J T ^NTRY HAS ASSOCIATED WITH ...I T ONE AND 

FLAG BYTE IN I C I T F L G. THUS C I T IS 6 TIMES LONGER THAN 
C I T F L G. 



REH 

NOW C I 
C I T 1 
ENXRlfS 

S Y S U 



BROKEN INTO IWG H_ALVES, C _ 
ARE MADE IN C 
I T 2 THEN IT 



T IS 

IS FILLED, ENTRIES 
ARE MADE TO FILL C 
T 



I T 1 AND C I T 2_ 



IF 



I T 2. IF SUFFICIENT 
(C I T 2) IS DUMPED ON 



1 ALONG WITH ITS FLAG TABLE (C I T F L G 2)* 

SUCCESSIVE E_NTRIES _ARE _PUT _INT_Q C I T_^._JB!St_t3NCE__FILLEO I _ 

cTT'i AND C T F L G 1 ARE NOT DISTURBED AND ONLY C I T 2 AND 

r x F i G 7 BLOCKS ARE DUMPED ONTO. S Y S U T 1. THUS, IN__PASS 

~Cl f 1 IS PROCESSED WHILE S Y S U T 1 IS REWINDING. 
REM 



WHElTTTl f 2 BLOCK IS FULL EXCEPT FOR ITS* LAST ENTRY, A FLAG 
OF 76 (OCTAL) IS IN SERTED INTO C T F L G 2 AND THESE, TWO BL OCKS 



ARE DUMPED ONTO S Y 

START FILLING _C I T 

REM 

A FLAG OF 77 { OCTAL) 



SUT1ANDCITBLD 
2 AGAIN WITH SUBSEQUENT^ 



IS REINITIALIZED 
ENTRIES. 



TO 



INDICATES THAT C I T B L D IS TO 



THE '"CURRENT CITANDCITFLG BLOCKS. IN THIS 

FLAG IS OMITTED. - 

SPACE 3 

CALLING SEQUENCE, ___ 

REM 

REM .. _ _ _ „. .. jl ,. , 

REM 

REM • ..... _ 

REM 

REM ACC <P,l-35) = CI T E NTRY 

REM TSX CITBLD,4,F 

REM - . ■ 



truncate 
case The 76 



FTQ95880 

J1T095890 

F f 095900 

FT09591Q 

FT095920 

FT09593G 

F f 095940 

FT095950 

FT095960 

FT095970 

FT09598G 

FT095990 

FT096006 

FT096G1O 

FT09602G 

FT096030 

FT 096040 

FT096050 

FT096060 

FT09607Q_ 

FT096080 

FT096090_ 

FT09610Q 

FT096110 

FT096120 

FT096130 

FT09614Q 

FTG96150 

FT0961 60 
FT096170 

FT096180 

FT096190 
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FT096200 
FT0962I0 



REM 
REM 



FT096220 
FT096230 



REM 
REM 



REM WHERE 

SPACE 3___ 

ENfRY~Af~C I T B 

C I T B L f* WILL 

REM 

AN ENTRY TO 



F~IS THE 6 BIT FLAG TO I BE ENTERED INTO C I T F L G 



L D 
NOT 



WILL 
BtfMP 



BUMP P C U 
PCOUNT. 



N T BY ONE AND ENTRY AT 



ARITHEMETIC 
MADJL-AT THE 
SPACE 



CI TBLEJS MADE AT THE BEGINNING 
S f At EME NT FUNCTION AND AN ENTRY 
END OF EACH ARITHEMETIC 



AT 
STATEMENT. 



OF 
I 



EACH 
T B L 



F IS 



CITBLN 

CUBLD 
"CIIBLH 



3 

CITBL5 

*+2 

CITBL5 

CITBL6 

CITBLG 

CITBL7 

CITBLG 

LPASS1 

CITBL4+1 

CITBLX,4 

CIT8L4 

CINSTR,4 



ENTRY WITH NO STEP OF PCGUNT- 



ENTRY WITH STEP OF PCOUNT BY 1 

IS THIS END OF ALL A. S. F. 

' YES . ....... . 

DID' ANY A. S. F. EXIST 

NO 
IS PASS 1 OUTPUT TO BE LISTED. 

NO __... 

LIST INSTRUCTION, PCOUNT, AND CITBLD FLAG 



FT096240 

n u7Wf -»u 

F "T 096260 

FT096270 

FT096280 

FT096290 

FT096300 

FT096310 

FT096320 

FT09633Q 

FT096340 

FT 0963 50 

FT096360 

FT096370 

FT096380 

FT096390 

FT096400 

FT096410 

FT096420 

FT096430 

FT096440 

FT096450 

FT096460 

FT096470 





SLW 


CITBL2+2 




FT096480 
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STQ 


CITBL2+3 




FT096490 






CAL 


PCOUNT 




FT096500 






TSX 


OCTBCD,4 




FT096510 






jL w 


CITBL2+1 




FT096520 




CI TBL3 


LXA 
CAL 


CITBLX, 4 




FT096530 






0,4 




FT096540 






ARS 


18 




FT096550 






ANA 


=077 




FT096560 






PAC 


,4 




FT096570 






CAL 


CITBL1,4 




FT096580 






SLW 


CITBL2+4 




FT096590 






TSX 


LIST, 4 




FT096600 








CITBL2,,5 




FT096610 




CITBLX 


AXT 


**,4 




FT096620 






CAL 
TRA 


CITBL4 
CITBL4+1 




FT096630 
FT096640 










CITBL2 


BCI 


I, 




FT096650 






PZE 






FT096660 






PZE 






FT096670 






PZE 






FT096680 






PIE 






FT096690 




CIT8L4 


BSS 


1 




FT096700 






REM 






FT096710 
FTQ96720 






SXA 


EXCIT, I 








SXA 
SXA 


EXCIT+1,2 
EXCIT+2,4 


INDEX 


FT096730 
FT096740 






SAVE XR4 






sn 

LOQ 


SAVIND 
0,4 




FT096750 






SET MQ = TSX CIT8LD,4,F 


FT096760 




CT6L1 


AXC 
AXC 


1,1 
1,2 


CIT POINTER 


FT096770 
FT096780 




CTBL2 


FLAG WORD POINTER 






AXT 


36,4 


FLAG BYTE POINTER 


FT096790 




CTLOCA 


SLW 


♦*,1 


STASH CIT WORD IN CIT1 OR CIT2 


FT096800 






RQL 


12 
♦*,2 


SET MQ TO FXXXXX 


FT096810 




CfLOCE 


CAL 


PICK UP CURRENT FLAG WORD 


FT096820 






LGL 


6 


SHIFT F INTO LOW-ORDER ACCUMULATOR 


FT096830 






PAI 




PUT FLAG IN LOW-ORDER INDICATORS 


FT096840 






«h n*-»- 


-»-* 


i-> i nlo rt_«ia - i i 


rrvrtrti oca 






KiMI 


I 1 


r i xt j o o jf v/ 

FT096860 







TRA 


CTBL4 


NO, GO TEST FOR END OF CIT 






STL 


CITSW2 


INDICATE 77 FLAG ENCOUNTERED 
YES, GO STORE FLAG WORD 


FT096870 
FT096880 






TXL 


*+4,4,6 






XXI 


*+l,4 


LEFT-JUSTIFY CURRENT FLAG WORD 
X 


FT096.890 
FT096900 






SXA 






LGL 

SLW 


• • 




FT096910 
FT09692b 




CILQCB 


SET THIS (THE LAST) FLAG WORD 






NZT 


CITSWl 


EXIT IF THIS IS 77 FLAG AND NO RECS. 


FT096930 






TRA 


EXCIT 


WRITTEN ON SYSUT1 YET 


FT096940 




I0S16 


EQU 
WRITE 


• 

sysuti,bi»narV,ctfl 




FT096950 




CJBL3 


G2,*CTBL2 WRITE THIS FLAG BLOCK 


FT096960 




C13L3 


STL 

BRA 


IOfcX 
WRITE, ,» + 3 




FT096970 
FT096980 












PIE 

MON 


SYSUT1,, BINARY 
CTFLG2,,CT3L2 




FT096990 
FT097000 










END16 


REM 






FT097010 




IOS17 


EQU 


* 




FT097020 






WRITE 


SYSUT1, BINARY, CIT2 


,*CTBL1 WRITE THIS CIT BLOCK 


FT097030 






STL 


IOEX 




FT097040 






BRA 
PZfc 


WRITE,, *+3 
SYSUTlif BINARY 




FT097050 
FT097060 












MON 


CIT2,,CTBL1 




FT097070 


_ 



lm017 



REM 
STL 
ZET 
TRA 

SXA 



CITSW1 
CITSW2 
CTBL7 



1,1 
CT8L2,1 



INDICATE RECORDS ARE ON_SYSUTl 
WAS THIS 77 FLAG 

YES, GO WEQF, REMIND SYSUT1 

RESTORE FLAG WORD AND CIT POINTERS 
X 




XCIT 



LDI 
ZET 



TRA 
CLA 
ADD 
STO 
TRA 
REM 



CT8L4 
CTLOCC 



REM 

LXA 

SLW 



TXH 

TIX 



_CXBL3_ 
CI LOCO 



LXA 
IAI 
SXA 
TXI 
REM 
REM 
REM 
LDQ 
tGL 
SLW 
ZET 

■wn * 
I i\M 

STL 
AXT 



CTBL6 



I.S18 
CT8L7 



SXA 
AXT 

SXA 
SXA 

SXA 
TRA 

REM 
REM 
REM 

SXA 

TRA 
REM 
REM 
REM 
EQU 

WEQF 

STL 

BRA 



CTBL1,1 
36,4 

CTBL2+1,4 
..tl 



RESET FLAG BYTE POINTER 



RESTORE 



• • , 2 

• • 1 4 



INDEX 
REGISTERS 



SAVIND 
CITBL5 



SHOULD PCOUNT BE INCREMENTRD 



1,4 
PCOUNT 

PCOUNT 
It 4 



YES. BUMP IT BY 1 



... AND EXIT 



TO HANDLE TEST FOR END OF CIT BLOCK 



CT8L1,1 



** 



,<- 



GET CIT POINTER INTO XR1 
STORE THIS FLAG WORD 



CTBL5,l,CITLNG-2 

CT8L6,4,6 

CTBL2,2 

*+ 1^2,1 

CTBL~2,2 

EXCIT-3,1,1 



IF CIT FULL, GO CHECK WHICH BLOCK 
IF FLAG WORD NOT F ULL, GO TO CTBL6 
IF NOT END OF CIT, BUMP 

FLAG WORD COUNT AND CIT COUNT 

X 
GO EXIT 



TO HANDLE FULL CIT BLOCK 



_PCT76 
6 

**,2 
CTSWTH 

.*» -r «*» i -* 
U IDUJ 

CTSWTH 
CIT2-1,! 



MOVE 76 FLAG I NTO PLACE 

X 

STORE CURRENT FLAG 



RE-INITIALIZE FOR CIT2 



CTLOCA,l 

C iFLG2-.lt 1 

CTLOCB,l 

CTLOCC ,1 

CTLGCD.V 

CTLOCE^i 

EXCIT-5 



RETURN 



TO BUMP CIT COUNTER IF FLAG WORD NOT FULL 



♦♦1,1,1 
CTBL1,I 
EXCIT-1 



BUMP CIT WORD COUNTER 
PLACE IN CTBL1 



GO SAVE BYTE POINTER AND EXIT 
...TO WRITE FINAL E-O-F AND REWIND SYSUT1 



SYSUT1 

IOEX 
WEOF,,*+2 



WRITE END-OF-FILE 



FTO9708G 
FT097090 
FT097100 
FT097110 
FT09712G 
FT097130 
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FT097140 
FT097150 
FT097160 
FJ-09 71 70 
FT097180 
FT09719G 



FT097200 
FT097210 
FT097220 
FT097230 
FT097240 
FT097250 
FT097260 
FT097270 



FT097280 
FT097290 
Ff097300 
FT097310 



FT097320 
FT097330 
FT097340 
FT097350 
FT097360 
FT097370 
FT097380 
FT097390 



FT097400 
FT097410 
F?09742d 
FT097430 
FT097440 
FT097450 
FT097460 
FT097470 



FT097480 
FT097490 
FT097500 
FT097510 
FT097520 
FT097530 
FT097540 
FT097550 
FT097560 
FT097570 
FT097580 
FT097590 
FT097600 
FT097610 
FT097620 
FT097630 
FT097640 
FT097650 
FT 097660 
FT097670 



hze 


SYSUT1 




FT097680 




END18 REM 


* 




FT097690 
FT09770G 




I0S19 EQU 






REWIND 


SYSUT1 
IOEX 


REWIND SYSUT1 


FT097710 
FT097720 




STL 






BRA 


REWIND* ,*+2 




FT097730 
F f 097 740 




MZE 


SYSUT1 






EN019 REM 






FT097750 




TRA 


EXCIT 


RETURN 


FT097760 




REM 


,.7 TO HANDLE 




FT097770 
FT097780 




REM 


END OF ARITH. STMNT. FCNS. 




REM 


~ CITBL6 




FT097790 
FT097800 




CII8LE STZ 


ENTRY FOR START OF A. S. F. 




STL 


CITBL7 




FT097810 




TRA 


1*4 




FT097820 




REM 






FT097830 




CIT6LF STL 


CITBL6 


ENTRY FOR END OF A, S. F. 


FT097840 




TRA 


1*4 




FT097850 




REM 






FT097860 




CIT8LG STZ 


CITBL6 


CONTROL HERE IF END OF A, S. F. 


FT097870 




LOQ 


CITBL8 




FT097880 




STQ 


CITBLH 


SET TO SPEED UP NORMAL CITBLD 


FT097890 
FT097900 




ZET 


SNAME 


IS THIS A SUBPROGRAM 




TRA 


0,4 


GO RE-ENTER CITBLD OR CITBLN 


FT097910 




SLW 


CITB15 


SAVE THE ACCUMULATOR 


FT097920 




CAL 


PCOUNT 
= 3 


BUMP PCOUNT BY 3 


FT097930 
FT097940 




ACL 






SLW 


PCOUNT 




FT097950 




STL 


<FPT) 


INDICATE (FPT) USED 


FT097960 




SXA 


*+2,4 
CITBLN, 4, H 




FT097970 
FT097980 




TSX 


GO OUTPUT «H* FLAG FOR CITPRO 




AXT 


• • *4 




FT097990 




CAL 


CITB15 


RESTORE THE ACCUM 


FT098000 




TRA 


0,4 


GO RE-ENTER CITBLD OR CITBLN 


FTO9801Q 
FT098020 




SPACE 


3 




UTBL8 TRA 


CITBLH+4 




FT098030 




CIT8L9 ZET 


CITBL6 




FT098040 
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TTL PASS 1 UTILITY PROGRAM - SCNBCD 


FT098050 


PAGE 252 


$ 


ROUTINE TO SCAN A STATEMENT, AMD RETURN ONLY VARIABLE NAMES 


FT098060 




£ 


AND STATEMENT LABELS IN BCD. RESULT WILL BE IN THE LOGICAL 


FT098070 




# 


ACCUMULATOR* THE ACCUM SIGN WILL BE SET MINUS IF THE ITEM 


FT098080 




* 


FOUND IS A LABEL, AND WILL BE SET PLUS IF IT IS A VARIABLE NAME* 


FT098090 






REM 


FT098100 




* 


ENTRY... TSX SCNBCD, 4 


FT098110 




* 


XR 2 MUST BE POINTING TO THE STARTING POSITION IN COLUMN 


.FT098120 






REM 


FT098130 




* 


THERE IS AN ERROR RETURN IN THE ROUTINE IN CASE THE FIRST 


FT098140 




* 


CHARACTER TO BE SCANNED IS A BREAK CHARACTER, OR IF A LABEL IS 


FT098150 




♦ 


GREATER THAN 99999 OR ZERO, OR IF A SYMBOL IS TOO LONG. 


FT098160 






SPACE 3 


FT098170 




SCNBCD 


SXA SCNBCX,4 


FT098180 






SXA SCNBCX+1,1 


FT098190 






LDQ COLUMN, 2 


FT098200 






CRQ SCANT, 1,1 


FT098210 






TXL *+3,l,SCANl-l LETTER 


FT098220 






TXL SCNB2,1,SCAN1 ERROR IF NOT NUMERAL 


FT098230 






ERROR 81,SKEND 


FT098240 
FT098250 






REM VARIABLE - EXIT ON BREAK CHARACTER 






REM 


FT098260 
FTQ9827Q 






SXD SCNB1.2 






CAL COLUMN, 2 


FT098280 
FT098290 






TXI *+l,2,-l 






LDQ COLUMN, 2 


FT098300 
FT098310 






CRQ SCANT, 1,1 






TXL *-3,l,SCANl 


FT098320 






SXA *+l,2 


FT098330 






AXC **,4 


FT098340 




SUMBi 


TXI 4H-1,4*** 


FT098350 






TXH SCNB3,4,6 


FT098360 






ANA SCANT1,4 


FT098370 






ORA SCANT2,4 APPEND TRAILING BLANKS 


FT098380 
FT098390 




SCNBCX 


AXT **,4 






AXT **,1 


FT098400 






TRA 1,4 


FT098410 




3i,fM03 


ERROR 15,SKEND 


r i wot&v 
FT098430 






REM 




SCNB2 


SXD SCNB4,2 ALL NUMERIC LABEL SCANNER 


FT098440 






CAL COLUMN, 2 


FT098450 






TXI *+i#.2*~*Jl 


FT098460 






LDQ COLUMN, 2 


FT098470 






CRQ SCANT, 1,1 


FT098480 
FT098490 




SCMB5 


TXL *+2,l,SCANl-l 






TXL *-4,i,SCANl 


FT098500 
FT098510 




SCNB6 


SXA *+l,2 BREAK CHARACTER OR LETTER FOUND 






AXC »*,4 


FT098520 
FT098530 




scnb4 


TXI *+l,4,»* 






TXH SCNB7,4,5 


FT098540 
FT098550 






ANA SCANT 1,4 






TNZ *+2 


FT098560 






ERROR 82, SKEND 


FT098570 






REM 


FT098580 






ORA SCANT2,4 


FT098590 






LDQ =H 


FT098600 
FT098610 






LGR 6 






TNZ *-l 


FT098620 






XCL 


FT098630 






SSM 


FT098640 





TRA "SCNBCX" ~ ™"~ FT098650 PAGE 253 

_ REH _ . . _J0?8660 

SCN87 ERROR 70,SKEND FT098670 



TTL PASS 1 UTILITY PROGRAM - LOCA 
ROUTINE TO_LGCATE A SYM BOL IN THE SYMBOL T ABLE, OR IF IT IS 
NOT IN THE TABLE, TO FIND A SPOT FOR IT. 
REM 



E FT09868Q 
FJ098690 
F TO 98 700 
FT098710 
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£* I™ 1 T\ ¥ '. 



LDQ 
TSX 



SYMBOL 
L0CAfE,4 



RETURN,.. 

RFM 

POSITION OF JHE SYMBOL IN THE TABLE IS RE TURNED IN THE ADDRESS 

OF "THE ACCUMULATOR. THE ACCUM SIGN IS SET MINUS IF THE SYMBOL 

WAS NOT AL_READY IN THE TABLE. 

REM 

THE SYMBOL TABLE OPERATES USING A SCRAMBLED SORT TECHNIQUE. 



THE BCD SYMBOLS THEMSELVES ARE STORED IN A REGION CALLED 
SYMTAB, WHILE THEIR EQUIVALENTS ARE ST ORE D IN A R EGION 
CALLED EQUIV. BOTH THESE REGIONS GO BACKWARD IN MEMORY, 
WITH INDEXING STARTING AT ZERO. (NOTE THAT THE FIRST CELL 



IN SYMTAB IS NOT AVAILABLE). 
SPACE 3 



LOCATE 



STQ 
MPY 
ANA 
SXA 



L0CAT1 

=0400040004000 

=07777 

L0CATX,4 



LCCAT5 



L0CAT3 



PAX 
CAL 

TXH 

l*J 
NZT 
TRA 
LAS 
TXI 
TRA 

TX J 
SLW 

STZ 



,4 

L0CAT1 
♦♦2,4,0 
*+lr4,l 
SYMfAB,4 
L0CAT3 
SYMTAB, 4 
* -3,4,1 
L0CAT2 
*-5»4»l 
SYMTAB ,4 
EQUIV, 4 



IS THIS SPOT MEPTY 

YES. GO ENTER SYMBOL 

NO. SCAN FORWARD FOR SYMBOL. 



SYMBOL FOUND. 



ENTER THE SYMBOL 



TXH 




L0CAT4,4,LSYMTB-1 

J Mi 



IS THIS THE BOTTOM OF THE TABLE 



MARK SYMBOL AS NOT IN 



TRA 



L0CATX.4 

1,4 

1,4 

SYMTAB-LSYMTB 

L0CAT5 



FT098720 

FTQ98730_ 

FT09a740 

FT098750 

FT098760 

FT098770 

FT098780 

FT098790 



FT098800 
FT098810 
FT098820 
FT098830 
FT098840 
FT098850 
FT098860 
FT098870 



FT098880 
FJ098890 
?f69890G 
FT098910 
FT098920 
FT098930 
FT098940 
FT098950 
FT098960 
FT098970 
FT098980 
FJ098990 
FT09900Q 
FT099010 



FT099020 
FT099030 



FT099040 



FT099060 
FT099070 
FT099080 
FJ099090 
FT099100 
FT099110 
FT099120 
FT099130 
FT099140 
FT099150 
FT099160 



TTL 

ROUTINE 



SYMSTO 



SYHSTY" 



SPACE 
SXA 
XCL 
TSX 



P A S S 1 UTILITY PROGRAM - S 
10 ENTER AN INTEGER VARIA8LE_INT0 _SYMTAB_. 

3' " 

SYMSTX,4 __„ 



Y M s r 



FT099170 
FT099180 
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SIL 
PAX 



LOCATE, 4 

MINfG+BVAR8 

»4 



SYMSTX 



ST I 
LET 
TRA 
AXT 
TRA 
REM 



EQUIV,4 
BEXTF+BINTF 
SYMElT ^ 
**,4 



1#4 



REM 
REM 



SYMSTB 



ST2 
TRA 



SYMSTl 
*+2 



ROU TINE TO ENTER INTEGER VARIABLE IS 

SYMTAB. CHECK IF INTEGER MODE WITH ERROR 

EXIT IF NOT. ___„ 

SUPPRESS FLAGGINH AS DEFINED 



SYHSTA 



STL 
SXA 



SYMSTl 
SYMSTX, 4 



ENTRY FOR THE DO INDEX VARIABLES 



LAS 
TRA 



^HIOOOOO 
*+l 



SYMER 



LAS 

^P p 
ERROR 

TSX 
ZET 
SIL 
TRA 

CAL 



=HO000G0 



12,PD02 



SLW 

ERROR 



LOCATE, 4 
SYMSTl 
BLHSX+BDOIX 
S YHST Y 

SYMTAB,4 

F0RM69 

69.SKEND 



SHOULD NE DEFINE IT _ 

Y£S. AND TURN ON CURRENT DO INDEX BIT 

NO _ ...._ 

GET SCO NAME OF OFFENDING SYMBOL 



FT09919G 
FT09920G 

~ FT099210 
FT099220 
FT09923G 
FT099240 
F f 099250 
FT099260 
Ff099270 
FT099280 
FT099290 
FTG99300 

EXFf 099310 
FT099320 
FT099330 
FT099340 
FT 099 3 50 
FT09936G 
F f 099370 
FT099380 
FT099390 
FT099400 
FT099410 
FT099420 
FT099430 
FT099440 
FT099456 
FT09946G 
FT099470 
FT09948G 
FT099490 
FT099500 



TTL 

REM 


PASS 1 


UTILITY PROGRAM - STOLBL 
ROUTINE TO ENTER LABEL IN THE SYMBOL 


FTQ99510 
FT099520 


REM 
REM 


- 


TABLE, ENTRY... 
CAL SYMBOL 


FT099530 
FT099540 


REM 

REM 


SSM 

TSX STOLBL, 4 


FT099550 
FT099560 


REM 
REM 
REM 
REM 
REM 
REM 


OR 

CAL SYMBOL 

TSX STOLBL, 4 
AC SIGN SHOULD BE SET MINUS IF LABEL IS 
TO BE FLAGGED AS HAVING APPEARED IN S 
TRANSFER COMMAND AND HENCE MUST APPEAR 
IN THE LABEL FIELD. 
IF LABEL IS ALREADY IN TABLE, IT WILL 


FT099570 
FT099580 
FT099590 
FTQ9960G 
FT 099610 
FT099620 


REM 
REM 




FT099630 
FT099640 


REM 
REM 


ST0LBX.4 


BE FLAGGED AGAIN . 

LOCATION IN TABLE IS RETURNED TO THE 

ADDRESS OF THE AC. 


FT099650 
FT09966C 


REM 
STOLBL SXA 


FT099670 
FT099680 


STO 
XCL 


STOLB1 


SAVE AC SIGN 


FT099690 
FT099700 


TSX 
PAX 


LOCATE, 4 

,4 

STOLB1 

*+2 

BPATH 

EQUIV,4 

700000 

63,»+l 

»*,4 

1,4 


FIND SYMBOL 


FT099710 
FT099720 


LDQ 
TQP 


IS LABEL REACHABLE 


FT099730 
FT099740 


S1L 
STI 


YES 

RESTORE EQUIVALENT IN S.T. 


FT099750 
FT099760 


LFT 
ERROR 


IS IT ANYTHING BUT A LABEL. 
YES 


FT099770 
FT099780 


STOLBX AXT 
TRA 




FT099790 
FT099800 



PAGE 256 



- SKIP 



TtY > ASS 1 UTILITY PROGRAM 

ROUTINES TO TEST THE_N£XJ CHARACTER OF STATEMENT AGAINST A_GIVEN 

CHARACTER SUPPLIED" IN THE DECREMENT. 

CALL ING SEQUENCES _TO_THE_ TWO ROUT INES ARE*.. _. 

— ^- ----- 

TSX SKIP, 4, OCTAL VA LUE OF CH ARACTER 



REM 
REM 



* 
* 




» 


REM 


SKIP 


CAL 

ALS 




ERA 
ARS 




TNZ 
TXI 



TRA 
SPACE 



,&IP. 



CAL 
ALS 
ERA 
ARS 
TNZ 
TXI 
TRA 



TRA 



RETURN IF CHARACTERS DO NOT MATCH 
RETURN IF CHARACTERS MATCH 



TSX SKIP1,4,0CTAL VALUE OF CHARACTER 

TRA ... RETURN IF CHARACT ERS MATCH 



RETURN IF CHARACTERS 00 NOT MATCH 



0,4 
JL2_ 

COLUMN, 2 
30 



1,4 
*+l,2,~l 



2,4 
4 



0,4 

12 

COLUMN, 2 

30 

2,4 

*+l,2,-l 

i,4 



FT099810 
FT09982G 
FT099830 
FT099840 
FT099850 
FT099860 
F TO 99870 
FJ099880 
FT099890 
FJ099900 
FT 0999 10 
FT099920 
FT 0999 30 
FT099940 
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FT099950 
FT099960 
FT099970 
FT099980 



FT099990 
FT1000G0 



FT100010 
FT 100020 
FT 166630 
FT 100040 
FT100Q5G 
FT100060 
FT100070 
FT 100080 
FT 100090 



TTL 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

BREAK SXA 

LPQ 

CRQ 
TXH 
TXI 

CAL 

ARS 

JXI 

8MEAKX AXT 
TRA 



L I 
THE 



T Y 
NEXT 



PRO 
BREAK 



GRAM - 
CHARACTER. 



BREAK 
INITIALLY 



PASS 1 U T I 

THIS ROUTINE. GEJS 

XR2 SHOULD BE SET AT 1ST CHARACTER TO BE EXAMINED, ROUT 
J WILL EXIT WITH XR2 POINT ING TO CHARACTER FOLLOWING 
THAT WHICH" CAUSED THE EX if. ROUTINE EXITS WITH BCD 
VALUE OF B REAK C HA RAC TER IN LAC R IGHT JU STIF IED W ITH 
LEADING ZEROS . 

BREAKXTl 

COLUMN, 2 . ________ 

SCANT, I, 1 

•♦2,1-SCANl+l _ 

*-3»2,-l 

COLUMN ,2_ _ 

30 

...» til.? » - 1 _._ - 

**»1 

1 , 4 



FT100100 

FT100110 

INFT10012G 

FT100130 
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FT1G0140 
FT100150 



FT100160 
FT1G0170 
FT10018G 
FJJ00190 
FT 1002 00 
FT100210 
FT100220 
^T100230 
FT1G0240 
FT100250 
FT100260 
FT 100270 



INDXT 



TTL 

THE 



PAS 
FOLLOWING 



S 1 - 

ROUTINES 



INDEX CHECKING 
HANDLE INDEXING IN FASTRAN. 



REM 

IM! % RpUI IN E IS ENT ERED WHENEVER jAN_J NTEGER VARIABLE IS CHANG ED 

IN A SUBSTITUTION STATEMENT, OR IS THE 

IN AN INPUT/OUTPUT LIST, OR IS READ IN 



IMPLIED DO PARAMETER 
VIA AN INPUT LIST. 



REM 

A TEST IS 

DO INDEX. 

REM 

ENTRY* • • 



MADE TO 
IF SO, 

OFF 
TSX 



DETERMINE IF THIS^ VARIABLE I S CURRENTLY A 
THIS IS AN ERROR. 



SOME. FORM. OF. EQUIV. WORD, 
INDXT,4 



HAVING. FLAG. BITS 



(RETURN) 



REM 



NOTE THAT THIS ROUTINE WILL BE ENLARGED WHEN BETTER INDEXING 
IS INSTALLED IN FASTRAN. 

3 " ~~ ""' " " "" """" " ■ 

BDOIX IS THIS_ A DO INDEX _ „_____„ 

YES. ERROR 



SPACE 
LFT 
ERROR 
TRA 



87,*+l 
lt4 



RETURN 



FT10028G 
FT 100290 
FT 100300 
FT100310 



FT100320 
FT100330 
FT10O34G 
FT 100 350 
FT10036Q 
FT100370 
Ftl00380 
FT100390 
FT100400 
FT10Q41O 



FT100420 
FT10043G 
FT100440 
FT100450 
FT100460 
FT100470 
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» 


TTL 

rem" 

SPACE 


P S T""> AS S 1 - DESCRIPTION 


FT100480 
FT 100490 
FT100500 
FT100510 
FT100520 
FT100530 
FT 100540 
FT100550 
FT100560 
FT100570 
F 1100580 
FT100590 
FT 100600 
FT100610 
FT100620 
FT100630 






9 




* 


REM 

REM 

RES 

REM 


*####**»-** 




* 


F A S T R A N COMPILER 




* 


£ A R C H C M P U T I N G CENTER 




* 


REM 

B 
SPACE 


"INDIANA UNIVERSITY 




* 


L Q 6 M I N G T N , INDIANA 
3 




* 


* 
REM 


***#****** 




* 


REM 
* 


POST PASS 1 


FT100640 
FT100650 
FT 100660 




* 


♦ »*»*.»♦*** 
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EJECT FT100670 

ON ENTRY TO POST PASS 1, THE COMPLETE SOURCE PROGRAM HAS BEEN FT 100680 



SCANNED AND THE COMPILED INSTRUCTION TABLE (C I T) AND THE 
ASSOCIATED FLAG TABLE {C I T F L G) HAVE BEEN GENERATED AND, IF 
OF SUFFICIENT LENGTH, RESIDE ON "SYSUtl* 
REM 



THE FOLLOWING IS AN OVERALL PICTURE OF POST PASS 1. 
COMMENTS PRECEDE EACH SECTION). 



(DETAILED 



FT100690 
FT100700 
FT 100710 
E 1100 720 
FT100730 
FT100740 



SPACE 3 

POST PASS 1 PERFORMS T HE FOLLOWING FUNCTIONS IN THE INDICATE D 

ORDER, 

SPACE 2 



FT100750 
FT100760 



FT100770 
FT100780 



PPASS1- LIST SYMBOL TABLE AND POOL AREA IFF »LSTSYM« N0N-ZERGFT100790 
AND GO TO » FINISH* IFF 'NOCODE 1 NON-ZERQ. FT100800 



REM FT100810 

ASNASN- VERIFY ASSIGNED GO TO USAGE. __ _ FJ1J30820 

_ _..„...__„ . .. „ _ _ . „ p fi 00 a3 - 

ASE QUX- DEFINE VARIABLES APPEARING IN EQUIVALENCE STATEMENTS. FT10084Q 

F Tl 00850" 
_ FT10086Q 
FT100870 
FT100880 



REM 



TVECTL- COUNT NUMBER OF LIBRARY ROUTINES USED IN OBJECT 



PROGRAM, 



REM 



PROLEN- CALCULATE LENGTH OF OBJECT TIME PROLOGUE. 



FT100890 

REM _ _ _ FT100900 

SYPASS- CHECK VALIDITY OF SYMBOL TABLE ENTRIES. 'FT 100910 

REM __ FT100920 

ASCMN2- ASSIGN COMMON STORAGE FOR OBJECT PROGRAM FT100930 

REM FT100940 

QBJLEN- CALCULATE LENGTHS OF VARIOUS SECTIONS OF THE OB JECl FT 100950 

PROGRAM. FT 100960 



REM 



OU TUN D- OUTPUT UNDEFINED LABELS, STRINGS (FORMATS), 



FT100970 
FT100980 



VARIABLES AND STATEMENTS WITH NO PATH OF FLOW. 



REM 



TSTPP2- GO TO 'FINISH* IFF »NOCODE« NON-ZERO, 



REM 



FT100990 
FT101000 
FT 1 "010 10 

FT101020 



CDLABL- SET-UP FOR BINARY DECK LABELLING. 



REM 



OUTPGC- WRITE PROGRAM CARD ON SYSBIN. 



TSTPST- PUNCH SYMBOL TABLE IF NECESSARY FT101030 

L _ FT1G1040 

FT101050 
FJ101060 
FT10TC70 

FTToT090 
FT101100 
FT101110 

_ FTiOiiZO 

THIS IS THE END OF POST PASS 1. At THIS POINT PASS 2 IS ENTERED. FT101 130 



,!4fc»J»... 



STVECT- STASH TRANSFER VECTOR INTO BINARY CARD IMAGES. 
REM 

GENPRL- GENERATE" OBJECT TIME PROLOGUE. 
SPACE 5 
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TTL 
POST 



P 
PASS 



S T P~ ASS 1 - PPASS1 

1 IS ENTERED AT THI S PO I NT, A COUPLE 



OF TESTS ARE 



FT10114G 
FT101150 



MADE BEFORE POST PASS 1 PROPER IS ENTERED 



PPASS1 



SPACE 

ZET 

TSX 



ZET 

TRA 

REM 
SLF 



LSTSYM 
STDUMP^A 
NOCODE 
FINISH 



ARE SYMTAB AND POOL TO BE OUTPUT 
YES* OUTPUT SYMTAB AND POOL 



FT101160 
FT1Q1170 
FTlOlTsG 
FT101190 



NO", WAS FATAL ERROR DETECTED IN PASS 1FT101200 

YE S, EXIT THIS COMPILATION, _ FT101210 

" NO, CONTINUE POST PASS 1 PROCESSING FT101220 

TURN OFF THE CONSOLE WATCHER'S LIGHT FT 10123.0 
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TTL P~~Q ST PASS 1 - A S N A S N 

POST PASS 1 PROCESSOR^ FOR ASSIGN VARIABLES AND LABELS, 



ASNASN 



ENTRY, . __ _____ 

THIS PROCESSOR IS ENtEREO AT THE BEGINNING OF POST PASS 1 
PROCESSING. THE ASSIGN TABLES ARE SCA NNED. F OR THE 



ASNASN 



VARIABLES, BOTH TASSN AND TGOTO MUST BE ON. 

jfcL- LABEL ENTRIE S MUST HAVE MINUS SIGNS, INDICATING THAT THEY 
APPEAR "TN AN ASSIGNED GO TO LIST. 
REH 
REN 
NZT 



TRA 

REM 



STZ 

AXT 
REM 
LXD 



CAL 
STD 



REM 
PAX 



ASNAS1 



PAI 
RNT 
TRA 
REM 

fxi 

SLW 
PDX 
TMI 

REM 



ZET 
TRA 



REM 
CAL 



SLW 
TSX 



ASWAS6 



PZE 
JRROR 
REM 
AKT 
CAL 

$_»_ 

fix 

REM 



ASNAS5 



ASNAS7 



AXT 
ZET 
TRA 
REM 
STL 
LXA 
CAL 
SLW 
TIX 
REM 
TSX 

TRA 
REM 



_ASNFLG^ 
ASEQUX 



__RE TH E TABLES FINISHED YET 

YES. CONTINUE TO NEXT SECTION 



.P 
15,4 



INITIALIZE FLAG CELL 

SET XR4 SO THE MESSAGE PRINT TEST WORKS 



ASNFLG,! 



POOL,! 
ASNFLG 



GET STA RT OF AN ASSIGN TABLE 

GET VARIABLE ENTRY 

SET BEGINNING OF NEXT ASSIGN STACK 



TASSN+TGOTO 
ASNAS2 



GET EQUIV TA BLE POINTER 
ARE BOTH FLAG BITS ON. 



NO. THERE IS THEN ONE OF TWO ERRORS. 



»+l,l,l 
POOL,l 

Vp+T 

,1 



ASNAS4 



BUMP POINTER FOR NEXT LABEL ENTRY 
G£J JLABEL ENTRY 
SAVE SYMTAB POINTER 

^ET NEXT POINTER 

MINUS SIGN IS OKAY 



.P 
_ASNAS5 

SYMTAB, 2 



TEST FLAG 

NO INITIALIZATION NEEDED 



GET BCD NAME OF GUILTY VARIABLE 



FORM29+13 

LI ST, 4 

BLANK, ,1 
2j9,* + l 

16,4 

= H 

C0LUMN+JL6_J 4 
_____ 



PUT NAME INTO ERROR MESSAGE 
SKIP A LINE 



PUT BLANKS INTO BUFFER 



14,4 

.P 

ASNAS4 

.P 

.P + l»2!_ 
'SYMTAB, 2 
COLUMN+16,4 
ASNAS4,4,1 

LIST,4 
COLUMN,, 16 
ASNAS6 



LOAD XR FOR STORAGE OF LABEL NAMES 

ARE WE DONE FOR THIS TIME. 

YES. 

SET FLAG NON-ZERO 
GET DIRECTOR TO SYMTAB 
GET BCD NAME OF TABEL 
PUT INTO BUFFER 



WRITE OUT THIS BUFFER 



FT101240 
FT1 01250 
FT10F_60 
FT101270 
FTI61280 
FT101290 
'Ft 101 300 
FT101310 
FT 101 320 
FT10133O 
FT 101340 
FT101350 



PAGE 263 



FT101360 
FT1 01370 
FT101380 
FT101390 
FT 101400 
FT101410 



FT101420 
FT101430 



FT101440 
FT1Q1450 
FT101460 
FT10147G 
FT 101480 
FT 101490 
Ff 101 500 
FT101510 
FTlbl520 
FT1O1530 
Ft 10 1540 
FT 10155 
FT101560 
FT101570 



FT101580 
FT101590 



FT101600 



FT101620 
FT1G1630 
FT 10 1640 
FI101.650 
FT101660 
FT1G1670 
FT101680 
FT101690 
FT 10 1700 
FX101710 
FT101720 
FT101730 
FT101740 
FT101750 
Ft! 01760 
FT101770 
FT101780 
FT101790 
Ft 10 1800 
FT101810 
FT 10 1820 
FT101830 



ASNAS4 


TXH 
TXL 


ASNASl+1,1,0 
ASNAS7,4,13 


IS THIS ALL THE LABELS IN THIS TABLE. 
WRITE LINE IF BUFFER HAS INFORMATION IN 
YES, RETURN FOR NEXT TABLE 


FT 101840 
IT FT101850 




TRA 
REM 


ASNASN 


FT101860 
FT101870 


A5NAS2 


REM 
CAL 
SLW 
SLW 
REM 
TSX 


SYMTAB,2 
FORM30+3 
F0RM31+4 

LIST, 4 


GET BCD NAME OF GUILTY VARIABLE 
PUT NAME INTO ERROR MESSAGES 

PUT OUT BLANK LINE 


FT101880 
FT101890 
FT101900 
FT1G1910 
FT101920 
FT101930 




PZE 
REM 


BLANK,, 1 




FT 101 940 
FT101950 




RFT 
ERROR 


TASSN 
30, ASNASN 


IS IT TASSN THAT IS OFF. 
NO. THUS TGOTO IS OFF. 


FT 101960 
FT101970 




CKKUR 

SPACE 


31 t ASNASN 
2 


YfcS, TASSN IS OFF. PRINT MESSAGE 


FT101980 
FT101990 


TASSNX 
T&OTQX 


VFD 
VFO 


18/,018/TASSN 
18/,018/TGOTO 


WHOLE-WORD REPRESENTATIONS OF FLAGS 


FT 102000 
FT102010 
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TTL POST PASS i - ASEQUX 
POST-PASS 1 PROCESSOR FOR EQUIVALENCE STACKS. 



ENTRY... ASEQUX __ __ 

THIS ROUTINE ASSIGNS THE" SYMBOLS IN THE EQUIVALENCE 
CHAJNS TO COMMON OR VARIABLE STORAGE. EACH LINKED CHAIN 
"IS TREATED IN" ITS TURN AS FOLLOWS... 
THE STACK IS SCANNED TO FIND THE LARGEST DEL (DELMAX) 



AND TO DETERMINE IF ANY ELEMENT IS IN COMMON. 
IS T HEN SCANNED AGAIN. IF ANY ELEMENT OF THE 
IN COMMON, THE FLAG" BITS BCOMN" AND BLHSX ARE 
TURNED ON FOR EACH ELEMENT IN THIS CHAIN. 



THE STACK 
CHAIN IS 



VARIABLES ARE ASSIGNED TO STORAGE 
VARIABLE) BY THE EXPRESSION... 



(COMMON OR LOW-CORE 



FT102020 
FT102030 
FTIO264O 
FT102050 
'FT 102060 
FT102C70 
FT102080 
FJ102090 
FT 102100 
FT102110 
FT1Q2120 
FT102130 
FT102140 
FT 102150 
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LOCATION = CURRENT LCOMMN (OR LVARBS) + DELMAX - DEL FT102160 

THE OVERHANGCHANG) JS COMPUTED FROM THE E XPRESSION... FT102170 

Hang = length Tdelmax- del. " FT10218O 

THE MAXIMUM OVERHANG (HANGMX) TO DATE IS FIGURED FROM... FT102190 



AT 



HANGMX = MAXIMUM (HANG, HANGMX). 
THE END OF THIS STACK, THE APPROPRIATE COUNTER (LCOMMN 



FT102200 
FT102210 



OR LVARBS) IS INCREASED BY HANGMX. THE PROCESSOR THEN 
RETURNS TO TREAT THE NEXT EQUIVALENCE CHAIN. 



THE LOCATION ASSIGNED TO EACH VARIABLE IS PLACED IN THE ADDRESS 



ASEQUX 



AS5QU6 



FIELD OF THE EQUI 

FOR ARRAYS IS LOS 

REM 

REM 

ZET 

TRA 

REM 

STZ 



V TABLE WORD. NOTE THAT THE DIMTBL POINTER 
T AT THIS POINT. 



STZ 
STZ 
STZ 
REM 



NOCODE 
EXASEQ 

HANGMX 
DELMAX 
COMFLG 
CTCELL 



IS PROGRAM IN ERROR. 

YES. DON'T PROCESS E Q U T B L STACKS 



ASEQU7 



LXD 
TXH 



INITFG,4 
*+2»4*0 



REM 






TRA 


EXASEQ 




REM 






CAL 


P0GU4 




SLW 


INITFG 




LXA 


INITFG,4 





ASEQUX 



REM 




LDI 


EQUTBL, 4 


LNT 


300000 


TXI 


♦♦2,4,1 


TRA 


ASEQU7 


REM 




CLA 


EQUTBL,4 


TMI 


ASEQU1 


PAX 


»1 


ARS 


18 


LDQ 


DELMAX 


TLQ 


*+2 


XCA 




STA 


DELMAX 


REM 




LDI 


EQUIV,! 



GET POINTER TO STACK DIRECTOR 
ii ini. emu ur cwuidl ;>imu!\o. 



NO* GET DIRECTOR TO NEXT STACK 



GET EQUTBL POSITION OF TOP OF STACK 



GET TOP OF STACK LINKER WORD 



HAS THIS STACK ALREADY BEEN PROCESSED 

NO. BUMP POINTER 

YES. SKIP TO NEXT STACK 



GET ENTRY FROM EQUTBL 

1 INK WORD FOUND 

GET EQUIV TABLE POINTER 

SHIFT DEL TO ADDRESS 



PUT LARGER IN AC 
DELMAX = LARGEST DEL 

GET EQUIV ENTRY 



FT102220 
FT1Q223G 
FT102240 
FT102250 



FT1G226Q 
FT 102270 
FT102280 
FT102290 
FT1G2300 
FT10231G 
FT 102320 
FT102330 
FT 102340 
FT10235G 
FT 102360 
FT102370 
F f 102 380 
r 1 iu^j^u 
FT102400 
FT 10 24 10 
FT 1024 2 6 
F I 102430 
FT102440 
FT102450 
FT 102460 
FT102470 
FT 162480 
FT102490 
FT 102500 
FT1U 2510 
FT102520 
FT102530 
FT 102540 
FT102550 
FT102560 
FT102570 
FT102586 
FT102590 
FT 102600 
FT102&10 



LFT 
STL 



LFT 
STL 



TXI 
REM 



ASEQUI 



PAX 
TXH 
REM 
AXT 



HIT 
AXT 



SXA 
REH 
LXA 
TXI 



ASEQU9 



REM 
CLA 
TMI 
REM 



PAX 
ARS 
SUB 

SLW 

REM 
_ LD I 
LFT 
TRA 
REM 
CAL 

ASEQ'04 LFT 
ALS 
ADD 
LDQ 
~TLQ~" 
XCA 



REM 
LDQ 
TLQ 
XCA 
STO 
REM 



ASEQUi 



CLA* 

ADO 

REM 

ZET 

SIL 

ZET 

SIL 

STI 

STA 

REM 

TXI 

REM 

PI A 

PAX 

CAL 

ANA 

TRA 

REM 



BCOM.M 

COMFLG 

BLHSX 

DEFINE 

ASEQU2,4,1 



IS COMMON FLAG ON, 
YES. SEJLCOMFLG ON 



IS THIS VARIABLE DEFINED, 
YES. TURN ON THE DEFINE FLAG 
RETURN FOR ANOTHER ENTRY 



,4 
ASEQU2-2,4,Q 

LC0MMN,4 

comflg 

_LVARBS,4 



CTCELL,4 

I~NlfFG,~-T 
*+l,4,l 



EQUT8L,4 
ASEQU3 



lj 

DELMAX " 
ORIGIN 

EQUIV, 1 

BARRY 

ASEQU5 

= 1 



BDOUB 

1 

ORIGIN' 

DELMAX 

*+2 



HANGMX 
*+2 

HANGMX 

CTCELL 
ORIGIN 



COMFLG 

BCOMN+BLHSX 
DEFINE 
BLHSX 
EQUIV, 1 
EQUIV,! 



LINK WORD FOUND/ GET ADDRESS 
IS IHIS BOTTOM OF STACK. NO. 

BOTTOM OF STACK. 



FT102620 
FT102630 
FT102640 
PI102650 
FT 102660 
FT102670 
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SET PROPER COUNTER IN TRANSFER CELL 



PASS THROUGH THE CHAIN AGAIN 
JUMP POINTER 



GET ENTRY 



LINK WORD FOUND. 



SET ENTRY TO EQUIV TABLE 
!MlfLJPJJ r _J^_AJDR E SS 
DEL - DELMAX 
ORIGJN = DELMAX - DEL 



GET EQ UIV TABLE ENTRY 



IS IT AN ARRAY. 
YES. 



NO. 



RE-ENTRY FROM ARRAY LOOP. 
DOU BLE LENGTH IF BDOUB IS ON 



LENGTH + ORIGIN = HANG 



FT102680 
FT102690 
FT102700 
FJ102710 
FU02720 
FT1G2730 
FT102740 
FJ102750 
FT102760 
FT102770 
FT102780 
_FT1027_90 
FT102800 
FT102810 
FT102820 
FJ102830 
FT 102 840 
FJ 102850 
FT102860 
JFJ102870 
FT 102 8 80 
FT102890 
FT 102900 
FT 1029 10 
FT102920 
_FT102930 



TEST AC AGAINST MQ 
PUT LARGE R IN__AC 

HANG VERS US HANGMX 

PUT LARGER IN AC 



FT102940 
FT102950 
FT 102 960 
FT102970 



HANGMX =~TARG£ST HANG 

GET PROPER' COUNTER: 

OVERALL RELOCATAB LE OR IGIN OF SYMBOL 



?M? JI NOT IN COMMON STACK _ 
TURN ON COMMON BIT AND DEFINITION BIT 

IS THIS STACK DEFINED. 

YES. TURN ON THE 'EQUIV DEFINED BIT 

RESTORE ENTRY 

NO. SET DEFINITION OF ENTRY IN EQUIV 



ASEQU9,4,1 RETURN FOR ANOTheITWTry" 



,2 

DIMTBL-1,2 

=077777 

ASEQU4 



ARRAY. GET LENGTH FROM OIMTBL 



SAVE ONLY ADDRESS 



FT102980 

ww t n. i-\ +± *+. ** 

r i iu^^vu 
FT103000 
FT103Q10 
FT 103020 
FT103030 
FT103040 
FT103050 
FT103060 
FT103070 
FT103080 
FT103090 
FT1031C0 
FT 1031 10 
TABLEFT103120 
FT103130 
FT103140 
FT103150 
FT103160 
FT103170 
FT103180 
FT103190 
FT 103200 
FT1Q3210 



ASEQU3 


PAX 


t4 


LINK WORD FOUND 


FT10322Q 




TXL 


AS£0U8,4,0 


TRANSFER IF THIS IS THE END OF THE CHAIN 


FT103230 




REM 






FT103240 




CAL 


=-3B2 


NOT YET END OF STACK 


FT103250 




STP 


EQUTBL,4 


SET 'USED STACK' PREFIX BITS IN LINK WORD 


FT 103260 




TXI 


ASEQU9,4 f 1 


CONTINUE PROCESSING THIS STACK 


FT103270 




REM 






FT 103280 


ASEQU8 


CLA 


HANGMX 


UPDATE THE COMMON OR VARIABLE COUNTER 


FT103290 




ADD* 


CTCELL 




FT103300 




STO* 


CTCELL 




FT103310 




TRA 


ASEQU6 


RETURN FOR NEXT CHAIN 


FT 103320 




REM 






FT103330 


EXASEQ 


EQU 


* 




FT 103340 
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TTL POST PASS 1 *** TVECTL 

THE FOLLOWING ROUTINE SCANS THE LIBRARY NAME TABLE (S L N 



TAB) 



TO DETERMINE WHICH LIBRARY ROUTINES ARE USED BY THE OBJECT 
PROGRAM. A LINEAR SEARCH IS MADE THROUGH S L N T A B AND EACH 



ROUTINE USED IS DEFINED AS A TRANSFER VECTOR ENTRY* THE FIRST 
HAVING THE DEFINITION 1* THE SECOND 2, ETC. THIS DEFINITI ON 



GOVERNS THE ORDER IN WHICH THE ELEMENTS OF THE TRANSFER VECTOR 
WILL APPEAR IN THE J3BJECT PROGRAM. NOTICE THAT THIS RGUTI?4E 
COUNTS LIBRARY ROUTINES ONLY ... EXTERNAL (NON-LIBRARY) 
REFERENCES A RE COUNTED LATER ON IN POST PASS 1 IS Y P A S S). 
SPACE 3 



TVECIL_AXT 
AXT 

TV£Li ZET 



0,1 



XR1 HAS NUMBER OF ROUTINES USED 



-2,4 
SLNTAB-2,4 



TXI TVEL2,I,1 

TXL »+2,4,-LSLNTB 

TXl fVELlftTi-Z 

SXA LTVECT,! 



XR4 IS TABLE POINTER 

IS THIS ROUTINE USED IN TEXT 

YES, BUMP TOTAL BY ONE 

EXIT IF DONE 

OTHERWISE BUMP POINTER AND GO BACK 
SAVE THIS {PARTIAL) COUNT IN LTVECT 



FT103350 
FT 103360 
FT 103370 
FT103380 
FT 103390 
FT103400 
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FT103410 
FT103420 
FT103430 
FJ 103440 
FT 103450 
FT103460 
FT 103470 
FT103480 



REM 



FT103490 
FT103500 
FT103510 
FT103520 
FT10353G 



TTL POST PASS 1 - PROLE N 

THE FOLLOWING R OUTINE CALCULA TES THE LENGTH OF THE OB JECT TIME_ 

PROLOGUE TO BE GENERATED FOR THIS PROGRAM. 

SPACE 2 



THIS VALUE IS DEPENDENT ON, 
REM 



1. INDEX REGISTER SAVING REQUIREMENTS 

2. THE CONTENTS OF THE PROLOGUE TABLE (PRLTBL) 



FT 103540 
FT103550 
FT103560 
FJ103570 
FT10358G 
FT103590 
FT103600 
FT103610 
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3. THE PRESENCE OR ABSENCE OF ARITHMETIC STATEMENT FUNCTIONS 
SPACE 2 



THE PROLOGUE TABLE IS FIRST SORTED IN ORDER THAT ALL PROLOGUE 
TA BLE E NT RIES FOR EA CH ARGUMENT AR E TOGETHER (TO MINIMIZE LENGTH 
OF PROLOGUE). 
SPACE 2 



FT103620 
FT103630 
FT1G3646 
FT103650 
FT103660 
FT103670 



FORMAT 
REM 

BIT 



OF P R L T B L ENTRIES, 



S (5,1-5) = SUBROUTINE ARGUMENT NUMBER 
(6-20) = ARGUMENT INCREMENT (DELTA) 



FT103680 
FT103690 
FT103700 
FT103710 



SPACE 
SEE G 1 
OBJECT 



SPACE 

PROLEN AXJ 

NZT 

TRA 



(21-35) = LOCATION (RELATIVE 0) OF TEXT TO BE INITIALI 

2 _ __ . ____ 

i N P R L FOR A DISCUSSION OF THE ACTUAL LAYOUT OF THE~ 

TIME PROLOGUE, _ ^ __ 

"3" " -.-...---- - _ --.._ 

0_t4 _ 

SUBR 
PROLA 



STZ 

LXA 



LXA 
TXL 

SXD 
AXT 



TXI 
SXA 
CALL 
TXI 



XR4 IS USED TO CONTAIN LPROLG 



IS THIS A SUBROUTINE COMPILATION 
NO, EXIT THIS SECTION 



ERASE4 

PROLOG+2,1 

PROLOG+2V2 

PR0L9,1,1 

*+2,l 

PRLTBL-2,1 



ERASE4 = IFF NO XR«5 YET AT ALL 
SEJ XR1 TO LENGTH OF PRLTBL 
SEf XR2 TO LENGTH OF PRLTBL """" 
GO GET XR USAGE IF PRLTBL EMPTY 
SAVE LENGTH OF PRLTBL 
CALCULATED ADDR. OF LAST ENTRY IN 



*+lt It*. 

S0Rf,"PRLTBL,7 # 
*+l»l,l 



PRLTBL 

SAVE T HIS ADDR. IN SORT CALL SEQ. 

SORT PRLTBL 

XR1 IS LAST PRLTBL LOC. + 1 



ZEDFT103720 
FT103730 
FT103740 
FF103750 
FT103760 
FT10377C 
FT 103 780 
FT103790 
FT 10 3800 
FT103810 
FT103820 
FT 1038 30 
FT103340 
FT103850 
FT103860 
FT103870 
FT10388Q 
FT103890 



SXA 



PR0L2,1 



SVAE THIS IN PR0L2 



FT103900 



STZ 

J? T JL 

~~~~' " STZ ~'~ 

- :w\ttk- M- ■ ■ 

TXI 
PR0L2 CAL 
ANA 
LAS 
TRA 
TRA 
MACER 
REM 



REM 

REM 

PR0L3 TXI 
TIX 
TRA 
REM 
RE M 
REM 
>R0L4 SLW 
ANA 



ERASE1 

ERASE2 

ERASE 3 

0,4 

*+l,2,-l 

* • ,2 

ARGDEL 

ERASE 

PR0L4 

PR0L3 



ERASE1 = ARG. NO. 

E RASE2 - DELTA 

ERASE3 "= IFF NO XR*S YET THIS ARG, 

SET XR2 TO LENGTH OF PRLTBL 

PICK-UP PRLTBL ENTRY 

MASK OUT PCOUNT 

IS THIS SAME AR G. 

NO, GO TO PR0L4 

YES, GO TO PR0L3 



NO. AND DELTA 



PRLTBL OUT OF SORT 



... TO HANDLE SAME ARG. NO. AND DELTA 



*+ 1,4,1 

PROL2,2,l 

PR0L8 



BUMP LENGTH OF PROLOGUE BY 1 

STEP THROUGH PRLTBL 

AT END OF PRLTBL, GO GEfXR" NEEDS 



TO HANDLE CHANGE IN ARG. NO. AND/OR DELTA 



ERASE 
ARGBIT 



SAVE NEW ARG. NO. AND DELTA IN ERASE 
MASK OUT DELTA 



FT103920 
FT103930 
FT103946 
FT 103950 
FT103960 
FT103970 
Ft 103980 
FT103990 
Ftl04000 
FT104010 
FT 1040 20 
FT104030 
FT 104040 
FT104050 
"Ffi0406d 
FT104070 
FT104080 
FT104090 
Ftl04100 
FT10411G 
FT104120 
FT104130 





LAS 


ERASE 1 


COMPARE WITH LAST ARG. NO. 


FT104140 


PAGE 




TRA 


PROL7 


GO TO PR0L7 IF NEW ARG. NO. 


FT10415C 






TRA 


PROL5 


GO TO PR0L5 IFF SAME ARG. NO. 


FT104160 






MACER 


■■ - - - — 


PRLTBL OUT OF SORT 


FT104170 
FT104180 







REM 






REM 


... TO HANDLE 


CHANGE IN DELTA ONLY 


FT104190 
FT104200 






REM 








PR0L5 


Hll 
TXI 


ERASE3 
♦+1,4,1 


HAVE XR*S BEEN USED FOR THIS ARG. NO. 


FT104210 
FT 104220 






NO, BUMP LPROLG BY 1 






CAL* 


PR0L2 
DEL8IT 


SET EARSE2 TO THIS NEW DELTA 

X 


FT104230 
FT104240 






ANA 






SLW 


ERASE2 
ERASE3 


X 
INDICATE XR USED FOR THIS ARGUMENT 


FT104250 
FT 104260 






STL 




PR0L6 


TXI 


PROL3+l,4,2 


BUMP LPROLG BY 2 AND STEP THRU PRLTBL 


FT104270 
FT104280 






REM 








REM 


.... . TO HANDLE 


CHANGE I[1_.ARG._JI0._,. 


FT104290 
FT104300 






REM 




PR0L7 


ZET 


ERASE3 


WAS XR USED FOR LAST ARGUMENT 


FT104310 
FT104320 






STL 


ERASE4 


YES, TURN EARSE4 ON 






SLW 


ERASE1 


SAVE NEW ARGUMENT NUMBER 


FT104330 
FT104340 






XEC 


PROL2 


GET THIS PRLTBL ENTRY AGAIN 






ANA 


DELBIT 


SAVE THIS DELTA IN ERASE2 


FT104350 
FT104360 






SLW 


ERASE2 


X 






ST2 


ERASE3 


INDICATE NO XR*S THIS ARGUMENT YET 


FT104370 






ZET 


ERASE2 


IS THIS DELTA ZERO 


FT104380 






TXI 
TRA 


PR0L6-1,4,2 
PR0L6 


NO, THEN BUMP LPROLG BY 2 


FT104390 
FT1C4400 






YES, GO TO PR0L6 AND BUMP LPROLG 






REM 
REM 


... TO HANDLE 




FT104410 
FT 104420 






COUNTING OF XR SAVING REQUIREMENTS 






REM 
"ZET 


ERASE3 




FT104430 
FT104440 




PR0L8 


TO HANDLE SPECIAL CASE WHERE LAST ARG 






STL 


ERASE4 


USED XR BUT NO OTHER ARGS. DID 


FT 104450 




PR0L9 


SXA 


LPB0DY,4 


SET LBODY TO LENGTH OF PROLOGUE BODY 


FT 104460 






NZT 


RTNFLG 
PROLA-2 


DID A 'RETURN" STATEMENT OCCUR 


FT104470 






TRA 


NO, DO NOT SAVE XR»S IN PROLOGUE 


FT104480 






CAL 


XRFLAG 


GET. TEXT XR NEEDS 


FT 104490 
FT104500 






ZET 


ERASE4 


OR IN PROLOGUE XR NEEDS 






*•»*%.* 


•*■* *% ■» *-* •* "*" 


w 


r--ri aaci f\ 






Oka 


lOlDi 1 


A 


r f iUtJIU 


... . _ 




SLW 


XRFLAG 




FT104520 






PAI 
AXT 


"' 0,2 " "'" 


COUNT NUMBER OF TOTAL XR*S REQUIRED 


FT104530 
FT104540 






BUILD THIS COUNT IN XR2 






RFT 


400000 


X 


FTI04550 






TXI 


♦♦1,2,1 


X 


FT104560 






RFT 


200000 


X 


FT104570 






TXI 


♦+1,2,1 


X 


FT104580 






RFT 
TXI 


lOCOOO 
♦+T,2,1 


X 


FT104590 
FT104600 






X 






SXA 


N0XRS,2 


SAVE THIS COUNT IN NOXRS 


FT104610 






TXL 


PROLA-3,2,0 


GO TO PRQLA-3 IF NO XR'S NEED SAVING 


FT104620 






PXD 


,2 


OTHERWISE BUMP LPROLG BY 2 FOR EACH 


FT104630 






ALS 


1 


XR THAT NEEDS SAVING. 


FT104640 






STD 


* + l 


ONE FOR THE SXA AND ONE FOR THE AXT 


FT104650 






TXI 


♦+1,4,.. 


X 


FT104660 






TXI 


♦+1,4,1 


BUMP LPROLG BY 1 FOR THE TRA (N),4 


FT104670 






ZET 


LARSTS 


BUMP LPROLG BY 1 IF THIS IS A SUBR. 


FT104680 






TXI 


♦+1»4» 1 
LPROLG, 4 


AND THERE WERE ARITH. STMNT. FCNS. 
SAVE THIS FINAL COUNT IN LPROLG 


FT104690 
FT104700 




PROLA 


SXA 





TTL POST PASS 1 - SYPASS 

THE FOLLOWING ROUTINE CONSTITUTES THE POST PASS 1 



SYMBOL TABLE 



E Q U I V) PASS. THIS ROUTINE HAS TWO MAIN 



(S Y M T A B / 
JUNCTIONS, 
REM 

1. OEFINE LOW CORE VARIABLE STORAGE, FORMATS AND EXTERNAL 



TRANSFER VECTOR ENTRIES AND, 
2. COLLECT ALL UNDEFINED LABELS, UNDEFINED STRINGS, UNDEFINED 



VARIABLES AND STATEMENTS WITH NO PATH OF FLOW FOR LATER 
OUTPUT. ___ ._ 

SPACE""' "3 

EACH E Q U I V ENTRY IS EXAMINED FOR WHICH THE ASSOCIATED 

TyhTIb ENTRY IS "NON-ZERO. 



FT1C4710 
FT104720 
FT 104 730 
FT104740 
FT1G4750 
FT104760 
FT1 04770 
FT 104780 
FT 104790 
FT104800 
FT104810 
FT104820 
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FOR THE VARIOUS E Q U 



THE FOLLOWING ACTIONS ARE TAKEN 
I V ENTRIES POSSIBLE, 



SPACE 2 

EXTERNAL SYMBOL- 
REN 



EXTERNAL SYMBOLS ARE CHAINED TOGETHER 
USING THE DECREMENT" OF THE ¥ Q U T V WORD, 



B. THE LENGTH OF THE TRANSFER VECTOR 

(L T V E C T) IS BUMPED BY ONE AND THE 



FT104830 
FT 104 840 
FT1 04850 
FT104860 
FT104870 
FT104880 
FT 104890" 
FT104900 



REM 



SYMBOL IS GIVEN THIS DEFINITION (IN 
ADDRESS OF E Q U I V WORD). 

IF THE FIRST CHARACTER OF THE SYMBOL IS 
•4» THIS CHARACTER IS CHANGED TO «D«. IF 
THE FIRST CHARACTER IS f l* IT IS CHANGED 



FT104910 
FT10492Q 
FT104930 
FT104940 



TO 



REM 



REM 



STATEMENT LABEL- A. IF THE STATEMENT LABEL IS UNDEFINED IT IS 

STACK ED WITH OTHE R UNDEFINED LABELS. 

B. IF THE STATEMENT LABEL HAS NO PATH OF 



FLOW TO IT THIS LABEL IS STACKED WITH 
OTHER LABELS OF THIS TYPE. 



REM 



FORMA T (ST R ING) - A. IF TH E FORMAT IS UNDEFINED IT IS ST ACKED 

WITH OTHER UNDEFINED FORMATS. ~~ 



FT104950 
FT104960 
FT1 04970 
FT104980 
FT 104990 
FT105000 
Ft 105010 
FT1O502O 
FTi05d30 
FT105040 
FT105050 
FT105060 
FT 105070 



IF NOT UNDEFINED, THIS STRING 
10 PREVIOUS STRINGS USING THE 



IS CHAINED 
DECREMENT 



OF FIRST POOL ENTRY FOR THIS STRING. 



REM 



C. 



THE STRING 
E Q U I V) 



IS DEFINED (IN ADDRESS OF 
TO BE (LENGTH OF STRINGS SO 



REM 



D. 



REM 



SUBROUTINE ARGUMENT- 



REM 



INTEGER VARIABLE- A. 



FAR (L S T R I N)) + (LENGTH 
STRING) - 1. 


OF THIS 


L S T R I N IS BUMPED BY THE 


LENGTH OF 


THIS STRING. 




A. NO ACTION TAKEN BY S Y P 


ASS. 



FT105090 
FT105100 



FT105110 
F 1105120 
FT105130 
FT105140 
"FT 105 150 
FT105160 
FT 1051 70 
FT105180 
FT105190 
FT105200 
FT1052ld 
FT105220 
FT105230 
FT105240 



B. 



REM 



IF THE VARIABLE IS UNDEFINED AND 
B V A R B IS ON (INDICATING THAT IT WAS 
USED IN "A VARIABLE CONTEXT) THIS VARI ABLEFT105250 
IS STACKED WITH OTHER UNDEFINED VA,R I ABLESFT 105260 
DEFINED "OR~B"v"A~R"B ""OFF, A TEST" FOR FT10527G 
THE APPEARAN CE OF THIS VARIABLE IN ANFT105280 

FT1Q5290 
EQUIVALENCE STATEMENT IS MADE. FT105300 



IF 

FOR 



* 




C. 


, SUCCESSIVE TESTS ARE MADE FOR THE 


FT105310 
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* 






VARIABLE'S APPEARANCE IN A COMMON 


FT105320 




» 






STATEMENT, WHETHER OR NOT IT IS AN ARRAY 


FT105330 




* 




- - — — 


ANO WHETHER OR NOT IT IS A "2-CELL* 
VARIABLE (I.E. DOUBLE PRECISION OR 


FT 105340 
FT105350 




* 






* 






COMPLEX). IN ANY CASE, THE VARIABLE IS 


FT105360 
FT10537Q 




* 






DEFINED APPROPRIATELY IN THE ADDRESS OF 




# 






ITS E Q U I V ENTRY. 


FT105380 






REM 






FT105390 




ft 


REAL 


VARIABLE- A. SAME ACTION AS THAT FOR INTEGER VARIABLE. 


FT105400 






REM 






FT105410 




* 


NONE 
SPACE 


OF THESE- A, A 

" 3 


CATASTROPHIC ERROR MESSAGE IS ISSUED. 


FT105420 
FT105430 










SYPASS 


AXT 


102,1 
CARD+102,1 


ZERO OUT THE ERROR CELLS 


FT105440 
FT 105450 






ST2 






TIX 
REM 


•-1.1,1 




FT105460 










FT105470 






CAL 


LVARBS 


SET IVARBS TO VALUE-1 OF LVARBS ON 


FT105480 






SUB 


= 1 


ENTRY TO SYMBOL TABLE PASS 


FT105490 






SLW 


IVAR8S 




FT105500 
FT105510 






AXT 


LSYMTB,! 


SET XR1 TO LENGTH OF SYMBOL TABLE 






ZET 


SYMTAB,1 


IS THIS SYMBOL TABLE ENTRY ZERO 


FT105520 
FT 105 5 30 






TRA 


*+3 


NO, GO EXAMINE EQUIV ENTRY 




SPASS1 


TIX 
TRA 


♦-2.1,1 


YES, TIX THROUGH SYMBOL TABLE 
GO GET LCOMMN 


FT105540 
Ftl0555d 






ASCMN2 






ST2 


ERASE1 


INITIALIZE DOUBLE/COMPLEX SWITCH 


FT105560 
FT105570 






LOI 


EQUIV.l 


PUT EQUIV ENTRY IN INDICATORS 






IIL 
LFf 


700000 


INVERT LEFT-MOST 3 BITS 


FT105580 
FT1G5590 






BEXTF 


IS THIS AN EXTERNAL SYMBOL 






TRA 


SPASS4 


YES, GO PROCESS IT 


FT105600 






LNT 


/MLABL*700000 


NO, IS THIS A LABEL 


FT105610 






TRA 


SPASSA 


NO, GO SEE IF IT IS A STRING 


FT105620 






LNT 


BLHSX 


YES, HAS THIS LABEL BEEN DEFINED 


FT105630 






ERRORY 





UNDEFINED LABEL 


FT105640 






LNT 


BPATH 


YES, IS THIS LABEL IN PATH OF FLOW 


FT105650 






ERRORY 


3 


NO PATH OF FLOW 


FT105660 






TRA 


SPASS1 


YES, GO CONTINUE EQUIV PROCESSING 


FT105670 






DCU 
rxt-r« 






CTIfiRAOn 

1 I Jk W ** *J *J V 

FT105690 




SPASSA 


LNT 


/MSTRG*70O0OG 


IS THIS A STRING 






TRA 


SPASSB 


NO, GO SEE IF IT IS A SUBR. ARGUMENT 


FT105700 






LNT 


BLHSX 


YES, HAS THE STRING BEEN DEFINED 


FT105710 






ERRORY 


1 


UNDEFINED STRING 


FT105720 






PIA 




ACC = EQUIV ENTRY 


FT105730 






PAX 


.4 


XR4 = POOL POINTER FOR THIS STRING 


FT105740 






CAL 


POOL, 4 


SET ERASE = LENGTH OF THIS STRING 


FT105750 






SLW 

LXA 


ERASE 

STSWI72 " 


X 


FT105760 
DFT105770 






GET POINTER TO LAST STRING ENCOUNTERE 






TXL 
PXD 


♦+3,2,0 
,4 


TRANSFER IFF THIS IS FIRST STRING 


FT105780 






OTHERWISE CHAIN THIS STRING TO LAST 


FT105790 






STD 


POOL, 2 


X 


FT105800 






CAL 


LSTRIN 


GET LENGTH OF STRINGS SO FAR 


FT105810 






ACL 


ERASE 


DEFINE THIS STRING 


FT105820 






SUB 


= 1 


DEF. IS LSTRIN+LEN-1 


FT105830 






STA 


EQUIV, 1 


THIS IS DEFINITION OF THIS STRING 


FT105840 






STO 


POOL, 4 


SET LAST DECR. IN CHAIN TO ZERO 


FT105850 






SXA 


STSW1,4 


SAVE POOL POINTER FOR NEXT LINK 


FT105860 






TXH 


*+2»2,0 


TRANSFER IF THIS IS OTHER THAN FIRST 


FT105870 






SXA 

ADD 


STSW2.4 


SAVE POOL POINTER OF FIRST STRING 


FT10588Q 
FT105890 












SLW 


LSTRIN 


X 


FT105900 





TRA 

SPASSBJLFT 

TRA 

_ _ ML 
tra~ 

spassc lft 



TRA 
LFT 



ERRORY 
LFT 



TRA 
LNT 



TRA 

SPASSF STI 



SPASS1 

BARGT 

SPASSE 

/MINTG»7Q000Q 

SPAS SO 

BLHSX 

*+3 

B VARB 

2 

BEQUV 
SPASSG 
BCOMN 



SPASS2 
ERASE 



GO CONTINUE PROCESSING 

IS THIS A SUBROUTIN E ARGUMENT 



YES* GO CHECK IF ALSO IN COMMON 
NO, IS THIS AN INTEGER VARIABLE 



NO, GO SEE IF REAL VARIABLE 
YES, HAS IT BEEN DEFI NED 



UNDEFINED VARIABLE 

YES, DOES IT APPEAR IN AN EQUIVALENCE 



YES, GO SEE IF COMMON VARIABLE 

NO, DOES IT APPEAR IN COMMON ST HNT. 

NO, GOSEE IF IT IS AN ARRAY 

YES. SAVE THE INDICATORS 



FT1G591G 
JFT1G592Q 
FT 105930 
FT10594G 
FT 1059 50 
FT105960 
FT105970 
FT105980 
FT105990 
FT106000 
FT 106010 
FT106020 
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FT106030 
FT106040 



LDI 



EOUIV,! 



RESET INDICATORS TO EQUIV ENTRY 



FT106050 



EJECT 
POST PASS 



1 PROCESSOR FOR NON- EQUIVALENCED COMMO N VARIABLE S 



ASCMNX AND ASCMN2 



ENTRY.. . 

THIS PROCESSOR IS USED AFTER THE VARIABLES IN THE 

EQUIVALENC E STACK EQUTBL H AVE BEEN A SSIGNED TO S TORA GEt 

AND DURING THE POST PASS 1 SYMBOL TABLE SCAN. 
THIS ROUTINE IS E NTERED AT LOCATION AS CMNX FOR JEACH NON- 
EQUIVALENCED COMMON VARIABLE. THE CORRESPONDING ENTRY IN DIMTBL 
tFlUST WORD) IS STACKED IN THE COMMON S TACK COMTBL (LO CATED __. . 
OVER ~ T COLUMN v BEYOND THE LITERALS) . 

REM - 

AT THE END 
ENTERED AT 



FUQ6060 
FT106Q7G 
FT106086 
FT106G90 
FT106100 
FT106110 
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OF THE SYMBOL TABLE SCAN, THE ROUTINE IS 
LOCATION ASCMN2, AND COMTBL IS SORTED ON 



AGAIN 
THE VALUE 



OF THE COMMON 
DECREMENTS). 



IS ASSIGNED 



POINTER CPOINT (LOCATED IN THE 

EACH ENTRY INCOMTBL,_ JN ORDER, 

TO COMMON STORAGE. ON EXIT, THE COMMON COUNTER LCOMMN 
HAS THE ADDRESS (RELATIV E TO TOP OF COMMON) OF THE NEXT 



AVAILABLE 
REM 



STORAGE CELL. 



THE STORAGE ASSIGNMENT (DEFINITION) OF THE VARIABLE IS 
PLACED IN THE EQUIV WO RD ADDRESS. NOTE THAT A POSSIBLE 
POINTER TO THE DIMTBL WILL 
REM 



BE LOST AT THIS POINT. 



REM 
ASCMNX PIA 
PAX 
CAL 
REM 
LXA 
TXI 
SXA_ 
REM 
TXL 
REM 
_STR 
REM 
SLW 
REM 
TRA 



,2 

DIMTBL ,2 

COMCNT,2 



•+1,2,1 

COMCNT.2 



GEL E _Q_U__I V_ WORD 

SET POINTER 

GET COMMON INFORMATION FROM ..DIMTBL. 

GET COMMON TABLE POSITION POINTER 

BUMP 

RESTORE POINTER 



MSGIOO, , F INI SH 



CuLUMN+666,2 PUT COMM ON ENTRY INTO THE CGMT8L 



SPASS1 



FT10612G 
FT106130 
FT1G6140 
F1106150 
FT 106160 
FT1Q617G 
F f 106180 
FT106190 
FT 106200 
FT106210 
FT1G6220 
FT1G_623G 
FT106240 
_FT1_06250 
FTi06"260 
FT 106270 
FT 106280 
FT106290 
FT106300 
FT106310 
FT 106320 
FT 106330 
FT106340 
FT106350 
FT106360 
FT1G6370 



FT106380 
FT106390 
FT 106400 
FT106410 
FT106420 



FT 106440 
FT106450 





EJECT 






FT106460 
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SPASS2 


LNT 


BARRY 


IS THIS AN ARRAY 


FT106470 
SFT106480 






TRA 


SPASS3 


NO, GO SET EQUIV ENTRY ANO BUMP LVARB 






PIA 


f 2 


YES, SET XR2 TO DIMTBL ENTRY LOCATION 
X 


FT106490 
FT106500 






PAX 






CAL 


LVARBS 


GET CURRENT LVARBS 


FT106510 






ACL 


DIMTBL~1,2 


LVARBS + ARRAY SIZE 


FTI06520 






LFT 


BDOUB 


IS IT A DOUBLE-LENGTH VARIABLE. 


FT106530 






ACL 


DIMTBL-1,2 


YES. DOUBLE THE STORAGE ALLOCATION 


FT106540 




SPASSK 


STA 


LVARBS 


RECORD THE NEW LVARBS 


FT106550 






SUB 


REDUCE THE COUNT 


FT106560 






STA 


EQUIV,! 


DEFINE THE ARRAY IN EQUIV 


FT106570 






TRA 


SPASS1 


GO CONTINUE EQUIV PROCESSING 


FT106580 




SPASS3 


CAL 


LVARBS 


GET NUMBER LOW-CORE VARIABLES SO FAR 


FT1G6590 






ACL 


ONE 


BUMP LVARBS BY 1 


FT106600 






LFT 


BDOUB 


IS THIS A 2-CELL VARIABLE 


FT106610 






ACL 


ONE 


YES, BUMP LVARBS BY 1 


FT106620 






TRA 


SPASSK 




FT106630 




SPASS4 


LFT 


BARGT 


IS THIS EXTERNAL SYMBOL AN ARGUMENT. 


FT 106640 






TRA 


SPASS1 


YES. SKIP OUT 


FT106650 






LXA 


TVSW1,4 


CHAIN EXTERNAL REFERENCES THRU EQUIV 


FT106660 






TXL 
PXD 


*+3,4,0 


TRANSFER IF THIS IS FIRST EXTERNAL 


FU06670 






»i 


PUT CURRENT EQUIV POINTER INTO 


FT106680 






STD 


EQUIVt4 


DECREMENT OF LAST EQUIV ENTRY FOR 
EXTERNAL 


FT106690 
FT106700 






REM 






CAL 
ACL 


LTVECT 


SET ADDRESS OF THIS EQUIV ENTRY 


FT106710 
FT106720 






ONE 


BUMP LTVECT BY ONE 






SLM 


EQUIV,1 


TO T. V. ELEMENT NUMBER 


FT106730 






SXA 


TVSK1,1 


SAVE CURRENT EQUIV POINTER FOR NEXT 


FT106740 






STA 
TXH 


LTVECT 
*+2,4,Q ~ " 


X 


FT1G6750 
FTl66760 






SAVE POOL PTR. OF FIRST T. V. ELEMENT 






SXA 
LDI 


TVSH2.1 
SYMTAB.l 


X 


FT106770 
FT106780 






IF FIRST CHARACTER OF EXTERNAL NAME 






LFT 


700000 


IS 4 OR 1 CHANGE THIS CHARACTER TO 


FT 106790 






TRA 


SPASSL 


•D» OR «I» RESPECTIVELY 


FT106800 






SIL 


200000 


X 


FT106810 






LFT 


10000 


X 


FT106820 






pti 


i r\ n r* t"% *v 


w 


*»■•»* **.* ^ *%, **. 






OIL 


1UUUUU 


A 


I-I iUOSJU 






STI 


SYMTAB,1 


X 


FT106840 






TRA 


SPASS1 
/MR£AL*700Q0Q 


GO CONTINUE EQUIV PROCESSING 


FT106850 
FT 106860 




SPASSD 


LNT 


IS THIS A REAL VARIABLE 






ERRQRY 


4 


INVALID EQUIV ENTJIY- - 


FT106&7Q 






TRA 


SPASSC 


YES, GO PROCESS THIS REAL VARIABLE 


FT106880 






REM 






FT106890 




SPASSG 


LFT 


BCOMN 




FT106900 






TRA 
PI/T 


„,SPASS1 




FT106910 
FT106920 












ANA 
SSM 


=077777 




FT106930 
FT106940 












ADD 


IVAR6S 




FT106950 






STA 


EQUIV, 1 




FT106960 






TRA 


SPASS1 




FT106970 




SPASSE 


LFT 


BCOMN 


IS THE ARGUMENT IN COMMON. 


FT106980 






TRA 


SPASSF 


YES. GO ENTER INTO THE COMMON STACK 


FT106990 






TRA 


SPASS1 


NO. NO FURTHER PROCESSING NECESSARY 


FT107000 





TTL POST PASS 1 - AY C M N 2 
^PASS OVER E QUIV T ABLE COMP LETED. SORT THE COMMON STACK. 



ASSIGN STORAGE TO COMMON VARIABLES, STORAGE DEFINITION" IS 
PLACED IN ADDRESS OF EQUIV WORD . NOTE THAT THE DIMTBL POI NT E R 
FOR ARRAYS IS LOST AT THIS POINT. — — ■ 

REM 



FT 107010 
FT1Q702Q 
FT107030 
FT10704G 



ASCMN2 



NZT 
TRA 
REM 

LAC 
TXI 



SXA 

REM 



COMCNT 
OBJLEN 



WERE ANY COMMON VARIABLES PUT IN TABLE 
_.__ NOt„_GO TO OBJLEN 



COMCNT, 1 GET NUMBER OF ITEMS IN COMMON TABLE 

* + l_»l_»C0LUMN+666 GET ABSOLUTE ADDRESS OF END OF TABLE 

*+2,I 




SORTt **»C0LUMN*666-1 SORT THE COMMON TABLE 
-COMCNTjO, GET NUMBER OF COMMON VAR IABLES IN STACK 



COLUMN+666,1 GET C OMMON STACK ENTRY 
,4 



EQUIV, 4 

$2 " 

LCOMMN 



GET EQUIV POINTER 

GET 1 ^Wv^ENTrTToR ThTs"C0MM0N V AR I ABLE 



GET DIMTBL POINTER 



EQUIV, 4 
BARRY 



ASCMN3 
"=1 

BDOUB 

1 _ _ 

LCOMMN 
LCOMMN 
ASCMN4.1.1 



ASSIGN STORAGE POSITION TO THIS VARIABLE 
IS IT AN ARRAY. 



YES 



LENGTH IS 1 

IS IT DOUB. PREC. OR COMPLEX. 
YES. DOUBLE LENGTH OF STORAGE 



BUMP COMMON COUNTER 



RETURN FOR ANOTHFR r.nMMnw t^rip cmtov 



OBJLEN 



AT END, GO TO OBJLEN 



DIMTBL-1,2 

=077777 

ASCMN6 



GET LENGTH OF ARRAY 



SAVE ADDRESS FIELD (LENGTH) ONLY 



FT107050 
_FT 107060 
FT107070 
_FT107080 
FT107Q9G 
FT 107100 
FT107110 
FT107120 
FT 107 130 
FT107140 
FT 107 150 
FJ107160 
FT107170 
FT107180 
FT107190 
FT107200 
FT 107210 
FT107220 
FT107230 
FT1G7240 
FT107250 
FT107260 
FT107270 
FT107280 
FT 107290 
FT107300 
FT107310 
FT107320 
FT107330 
FT107340 
FT107350 
FT107360 



FT107370 



FT107390 
FT107400 
FT107410 
FT 107420 
FT107430 
FT107440 
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TTL POST PASS 1-OBJLEN 

THE FOLLOWING ROU TINE CALCULATES THE QUANT I_TIESt. 



SPACE 2 
CM N B 

REM 



RK-TOPCOM-LCOMMN 



(COMMON BREAK) 



L T V P R L = 



LTVECT + LP 
(TRANSFER VECTOR + 



R L G 
PROLOGUE) 



REM 



LTVPRT=LTVPRL + PCOUNT 



(LENGTH THRU TEXT) 



REM 



FT1G7450 
FT 107460 
FT107470 
fIJLG7480 
FT 107490 
FT1 0750 Q 
FT1G7510 
FT 107520 
FT10753O 
FT1Q7540 
FT 107550 
FT107560 
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L T P T S C = 



L T VPRT + LCONST 
(LENGTH THRU CONSTANTS) 



REM 



LTHRUS = LTPTSC + LS T R I __N__ 



(LENGTH THRU STRINGS) 



REM 



FT107570 
FT1G7580 
FT 107590 
FT107600 
FT1G7610 
FT107620 



L T H R V W = L THRUS + LWORKS 



REM 



FT107630 
FT107640 



PGMBRK=LTHRUW + LVARBS 



REM 



(PROGRAM BREAK) 

SPACE 2 . 

iN~AODlt"iON i"r"d iTHlS, THE OBJECT "PROGRAM ENTRY POINT (E N TR Y) 
XS CALCULATED. ALSO,_ IF P G M B R K EXCEE DS C M H B R K, A 
CATASTROPHIC ERROR MESSAGE IS ISSUED. 
SPACE 2 __. _,. • 

Ti¥aTlyT^We YARlduiT" WORDS' FOR THE PROGRAM card are formatted™ 

AND READIED FOR PUNCHING ( THIS CARD IS NOT ACT UALLY PUNCHED 



UNTIL JUST BEFORE THE tRANSFER VECTOR IS • STASHED*). 
SPACE 3 



FT107650 
FT 107660 
FT107670 
FT107680 
FT 107690 
FT107700 
FT 107710 
FJ 107720 
FT 107730 
FT107740 
FT107750 
FT107760 



OBJLEN 



CAL 
SUB 
SLW 
LXA 



TOPCOM 
LCOMMN 
CMNBRK 
LWGRKS,4 



FT107770 
FT107780 



SET UP FOR COMPLEMENTATION OF 



FT107790 
FT107800 



TXI 
SXD 



*+l f 4,-l 
FLAGW+2t4 



WORKING STORAGE RELOCATION IN 
C I T P R Q 





CAL 


LTVECT 




ACL 


LPROLG 




SLW 


LTVPRL 




AC1 


POOUMT 




SLW 


LTVPRT 




ACL 


LCONST 




SLW 


LTPTSC 




ACL 


LSTRIN 




SLW 


LTHRUS 




ACL 


LWORKS 




SLW 


LTHRUW 




ACL 


LVARBS 




SLW 


PGMBRK 




LAS 


CMNBRK 




ERROR 
NOP 


32tOUTUND 




SUB 


= 1 




ALS 


18 




STD 


FLGN2 




CAL 


PCOUNT 




SUB 


LARSTS 




SLW 


LTEXTS 



OBJECT PROGRAM TOO LONG 

PUT END-OF-PROGRAM INTO DECREMENT 
OF THE FLAGN IN STRU CTION. 

SET LENGTH OF TEXT 



FT107810 

FT 107830 
FT107840 
FT107850 
FT 107860 
FT107870 
FT107880 
FT107890 
FT107900 
FT107910 
FT10792J) 
FT1C7930 
FT107940 
FT107950 
FJ107960 
Tf 107970 
FT107980 
Ft 107990 
FT108000 
FT 1080 10 
FT108020 
FT108030 
FT108040 



CAL 
NZT 


LTVECT CALCULATE ENTRY POINT RELATIVE TO ZEROFT1O8O50 
SUBR IF MAIN PROGRAM, FT 10 8060 


TRA 
ACL 


0BJL1 ENTRY = LTVECT + LARSTS FT108070 
NOXRS IF SUBPROGRAM, FT 108080 


ZET 
ACL 


^YFFLG NO XR'S SAVED IF NO RETURN FT 108090 
ONE ENTRY = LTVECT + NOXRS + 1 FT108100 


NZT 

GBJL1 ACL 

STA 

REM 


SNAME X FT1G811G 

LARSTS X FT108120 

~ ENTRY X FT108130 

FT10814Q 


REM 
REM 
REM 
CAL 


THE FOLLOWING INSfRUCflONS SET-UP THE PROGRAM CARD. FT ib 8 15*6 
THE CARD IS ACTUALLY PUNCHED IN THE POST PASS 1 DRIVER. FT108JL6Q 

FT108170 
ITVFCT FT 108180 


ALS 
ACL 


18 F 1108190 
PGMBRK FT 108200 


SLW 
ACL 


PCWD3 F 1108210 
PCWD1 FT108220 


ACL 
ACL 


CMNBRK FT108230 
SNAME FT108240_ 


ACL 

SLW 


ENTRY FT108250 
PCW02 FT108260 
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TTL P Q S 
THE FOL LOWIN G 
S S OF 



S Y P 
SPACE 



T ~ P ASS 1 - OUTUN 
ROUT I NE FO RMATS AND OU TPUTS 
THE FOLLOWING TYPESf 



D 
ERRORS 



DETECTED IN 



'jf. "s T A f E HENT S ~N I T HMO PATH OF FLOtf 



REH 



2. UNDEFINED VARIABLES 



REM 



3. UNDEFTNED STRINGS (FORMATS) 



OUTUND 

Ur*UA 



REM _______ 

4V UNDEFINED 

SPACE 3 

4,1 
TBUNO+1 



STATEMENT LABELS 



FT1G8270 
FT108280 
FT1G8290 
FT1G830Q 
FT 108310 
FT108320 
FT108330 
FT108340 
FT108350 
FT108360 
Ft 108370 
FT108380 
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AXT 
uuA 



SET TO PICK UP FOUR TYPES OF ERRORS 



PDX 

TXL 



.2 

UND5+1,2,0 



TXI 
SXD 




UND2 



TSX 
PON 
AXT 

AXT 

LDQ 
CLA_ 
STO 
STQ 



TXI 
TXI 



UND3 



UND4 



UND5 



MiUND 



*+l»2,-l 
UND3»2 



UND5.1 

U NP2 ___ _ 

MSUND+1,1 

UND2-4_ 

* + 3»4 

EJREX»4 

ERR1 



SET UP THE RETURN FROM THE 
PRINT SECTION OF T HE ERROR ROU TINE. 

NOCODE, 



GO TO ERROR 
RETURN HERE 



ROUTINE TO 
FROM ERROR 



SET 
ROUTINE 



LIST, 4 



• *tt* 



0,1 
0,2 



BLANKS 
..,1 



LIN10+1,2 

LIN 1Q,2 

*+l,2»~2 

»*1,1,1 

TXH UND4,1,.. 

TXH U NP2,2,-16 

TSX LI ST, 4 

PZE LIN10,,16 

TRA UND2-2" 
REM 

PXA ,2 

PAC ,2 

SXD *+2»2 

TSX LIST, 4 

>ZE LiNIO,,.. 

AXT • • , 1 

fix uNbi.it i 

AXT 16,1 

CAL BLANKS 

SLW LINlO+17,1 

TIX *- 1,1,1 

TRA TSTPP2 

SPACE 3 

PON UNMS4,,7 

PON UNMS3,,5 

PON UNMS2*,6 

PON UNMS1,,6 
REM 



GO TEST 'NOCODE 



FT108390 
FT108400 
FT108410 
FT108420 
FT10843G 
FT1084 40 
FT108450 

FT1Q_8460 _ 

FT 108470 
FT108480 
FT 108490 
FT108500 
ETCFT 108510 
FT108520 
FT108530 
FT108540 
FT108550 
FT 108560 
FT108570 
FT108580 
Ft 108590 
FT 108600 
Ffl086i6 
FT108620_ 
FT108630 

FT 108640 

FT1G8650 

FT108660 

FT108670 

FT10S680 

FT 10 8690 

FT108700 

FT108710 

FT108720 

FT 108730 

FT108740 

FT108750 

FT108760 

Ft 108 770 

FT1 08780 

FT1 08790 

FT 108800 

FT108810 

FT108820 

FT108830 

FT108840 

FT1C8850 

FT108860 



UNMS1 BCI 6, **** UNDEFINED STATEMENT LABELS- FT108870 PAGE 280 

UHHS2 SC I _6 ,_***♦_ UNDEFI NED FORMAT NUMBERS- FT 1088 80 

~mn$3 BCI 5, ****" UNDEFINED VARIABLES- FT108890 

UMMS4 BCI 7, **** STATEMENTS WITH NO PAT H OF FLOW- _ FJ 108900 .. ._„__, _ 



TTL POST PASS 1 - TSTPP2 FT108910 PAGE 281 

TSTPP2 ZET NOCODE _ _ EXIT IF FAT AL ERROR FOUND FJJL0892Q 

TRA FINISH OTHERWISE GO ON TO TSTPST FT108930 



TTL P S 
THE FOLLOWING 



INTO COLUMN BINARY 
DEBUGGING PACKAGE. 



f > A S S 1 - T S T P S T 

ROUTINE PUNCHES THE OBJECT PR OGRAM _S YMBOL TA _BLE 
CARDS AS REQUIRED BY THE FMS-II OBJECT TIME 
THE FORMAT OF THESE CARDS CAN BE FOUND IN, 



REM 



IBM 7090/7094 PROGRAMMING^ 



SYSTEMS 

NO. 



- FORTRAN II OP ERATI ONS 



FT108940 
FT 108950 
FT 108960 
EJ108970 
FT108980 
FT108990 
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(PUBLICATION NO. C28-6066-4) 

REM _ 

THE SYMBOLS REQUIRED IN THIS TABLE ARE ASSEMBLED INTO THE 
LOW-CORE PORTION OF THE POOL REGION (I.E. BEGINNING AT LOCATION 
ITO LUTfAND PROCEEDING UPWARD ) . 
FORMATTED AND OUTPUT ON SYSBIN. 



THESE ARE THEN SORTED, 



SPACE 

LDI 

RNT 

TRA 

CLS 

ALS 



3 
PRGBOX 



WAS 'SYMBOL TABLE* CC ENCOUTERED 



fSTOi 
PST02 



ADD 
STD 
AXT 

AXT 

AXT 

ZET 

TRA 

TIX 

TRA 

SPACE 

LDI 

LFT 

TRA 

SIL 

CAL 

ANA 



PST03 



PST04 



RIR 
STI 
CAL 
SLW 
TXI 
LNT 
fRA 
LFT 



TRA 
RIL 
LFT 
SIL 



FSTOt) 



l>T16 



SIL 

TRA 

SPACE 

SXD 

TXL 

AXT 

SXD 

TXI 

TXI 

SXA 



STCC 

QUTPGC- 1 

NXTLOC 

18 

MAXNLC 

PS TO 3 

LSYMTB*1 

0,2 



"BY SYSTEM MONITOR 
NOt GO PUNCH POR GRAM_„CARP^__ 
YES, PREPARE TO PUNCH SYMBOL TABLE 
GET LENGTH OF AVAILA BLE POOL REGIO N 



FT 109000 
FT109010 
FT1Q9020 
^109030 
FT 109040 
FT 109050 
FT 109060 
FT109G70 
FT 109080 
FT109090 
Ffl69l60 
FT109110 



X 

SAVE 



THIS IN PST03 



f 4 

SYMTABfi 
»+3 

PST01»1,1 
PST05 

2 

EQUIV, 1 

700000 

PST04 

300000 

SYMTAB,! 
=0600000000000 



PREPARE TO SCAN COMPLETE 
POOL POINTER FOR STORING __ 
2 X (NO. SYMBOLS STORED) 
IS THERE A SYMTAB E_NJRY HERE 
YES, SKIP NEXT COUPLE OF 

NO, SCAN ALL OF SYMTAB 

AT END OF SYMTAB GO TO PST05 



SYMTAB 
SYMBOLS 



INSTRUCTIONS 



THIS SYMBOL 
FORMULA NUMBER 
A VARIABLE 



V. ELEMENT 



TNZ PST02 

TXI * + l_,4,2 

TXH PST15,4,.. 

RIL 77777 



700000 
COLUMN+1,2 



SYMTAB, 1 
COtUMtt, 2 
PS T 02, 2, -2 
200000 
PST02 
8ARGT 



GET EQUIV ENTRY FOR 
IS THIS AN EX TERNAL 
NO, GO SEE IF IT IS 
YES^ _SET PREFIX - 3 
00 NOT ENTER IF A T 

X — - - 

X 

IS_THERE_ROOM FOR THIS ENTRY_INJPOOL 

EXIT IF POOL REGION OVERFLOW 

YES_t CLE AR OUT EQU I V G AR B AG E 

x 

STORE THIS EQUI V WORD IN POOL R EGION 
"NOW~*GEf THE ASSOCIATED SYMBOL 

AND *HJT IT INT& 1HE POOL REGTO&i ALSO 

BUMP POOL PTR AND GO FOE NEXT SYMBOL 

IS THIS SYMBOL A VARIABLE 
" Nb"t""fST RING) IGNORE fHIS SYMBOL 

DO NOT ENTER IF SUBP ROGRAM ARGUMENT 



PST02 

700000 
BCOMN 
200000 
500000 
PSTG3-1 
3 

PST08,2 
WfPGC-T,2,0 
COLUMN, 2 

* + l,4 

* + 1,2,.. __ 

»+3,2 



X 

YES, TURN OFF PREFIX BIT_S 

IF COMMON 

IF 

X 

GO STORE THIS SYMBOL 



SET 

NON-COMMON 



PREFIX = 7 
SET PREFIX = 



CALCULATE UPPER LIMIT_OF POOL USED 

EXIT IF SYMBOL TABLE NULL 

X _ ... 

X 

x_ __ ~.~ — - 

X 

SAVE THIS IN SORT CALL 



FT109120 
JLT109130 
FT109140 
FI109150 
FT109160 
FT109170 
FT109180 
FT 109190 
FT 109200 
FT109210 
Ffl09220 
FT109230 
FT109240 
FT109250 
FT 109260 
FT109270 
FT 109280 
FT1Q929Q 
FT 109300 

r- Tr -i rxrk'rt r\ 

FT 109320 
FT109330 
FT 109340 
FT109350 
FT109360 
FT109370 
FT1Q9380 
FT 109390 
FT109400 
FT109410 
FT109420 

FT109430 
FT 109440 
FT109450 
FT 109460 
FT109470 
FT109480 
FT109490 
FT109500 
FT109510 
FT1G9520 
FT109530 



ST06 CALL S0RT1,C0LUMN+1,.. 
CAL LABEL 



SAVE OBJECT DECK LABEL 



FT109540 
FT1Q955G 
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SLW 
CAL 

Ol» ft 

TSX 



ERASE 
=HST _ 
LABEL 
CDLABL»4 



SET-U P FOR «ST» 

X 

SET-UP COLS. 73-80 



LABEL ON SYMTAB CARDS 



CAL SNAME 

SLW 9 L EFT+2 

LXD PSf05+3,T 

PXD ,JL 

ars i """" 

ANA =077777000000 



SLW 
ACL 



9LEFT+3 
9LEFT+2 



GET SUBPROGRAM NAME i OR ZEROES) 
THIS I S WORD 3 OF F1RT SYMTAB CARD 
GET NUMBER OF SYMBOLS IN SYMBOL TABLE 

X__„ __ _ 

x ' 

X 

THIS IS WORD 4 OF FIRST CARD 
GET (PARTIAL) CHECKSUM 



PST07 



SLW 
AXT 

Axr 

CAL 



SUM 
20,4 
0,2 
COLUMN, 2 



SET TO STASH SYMBOLS AND EQUIV'S 

INTO 'BINARY "CARD IMAGES 
GET NEXT SYMBOL 



SLW 

ACL 



9LEFT+24,4 
SUM 



STORE THIS IN CARD IMAGE 
ACCUMULATE SUM 



SLW SUM 

LDI CQLU MN+1 ,JL 

CAL COLUMN* 1,2 

ANA =077777 

LFT 400000 

TRA PST12 



SET _I N D AND LAC TO EQUIV ENTRY 
X 

CLE AR OUT PREFIX 

IS THIS AN EXTERNAL FORMULA NUMBER 
NO, GO TO PST12 



PST08 



ACL LTVPRL 

ORA =0200004000000 

SLW 9LEFT+25,4 

ACL SUM 

SLW"" SUM 

TXI *+l,2,-2 

TXL PSf09t2t.. 

TIX PST07,4,2 



CAL 
SLW 



STW1 
9LEFT 



BUMP BY LENGTH OF T.V* AND PROLOGUE 
PUT IN IBM'S REQUIRED BITS 
PUT THIS INTO CARD "IMAGE 
ACCUMULATE CHECKSUM 

x 

ARE THE RE M ORE SYMBOLS TO GO 

NO, GO TO PST09 
IS THIS CARD JULL 
SET "WORD 1 FOR IBM 



NO, GO TO PST07 



1QS20 



tN020 



PST09 



WRIT E 
STL 
BRA 
>TW 
P2£ 
MZE 
REM 
TSX 
AXT 
STZ 
TRA 
SPACE 
AXT 
"TXI 
TXL 
STZ 
STZ 
TXI 
TIX 



PST1 



TXI 

PXD 

ORA 
SLW 



IOEX ~ 

WRITE,, *+4 

S Y SB IN, ,1 INARY"" "' 

9LEFT* ,24 

COL 7 3V, 3 

CDLABL,4 

22,4 

SUM 

PST07 

2 

0,1 

*+l,4,-2 

PST10,4,0 

9 LEFT +24, 4 

9LEFT+25,4 

♦+1,1,-2 

*-3,4,2 

♦+1,1,22 

,1 

=0600500000000 

9LEFT 









BUMP CARD SEQUENCE NUMBER 
SET FOR 1 1 SYMBOLS/CARD 
RESET CHECKSUM 
GO START ON NEXT CARD 



AT END FILL LAST CARD WITH BLANKS. 

x 

X __ __ 

x " ' 

X 
X 
X 



FT109560 
FT109570 
FT109580 
FT109590 
FT 109600 
FT109610 
FT 109620 
FJ109630 
FT 109640 
FT109650 
FT 109660 
FT109670 
FT 109680 
FT109690 
Ffl09700 
FT 1097 10 
FT 109720 
FT109730 



FT109740 
FT109750 
FT109760 
FT1Q9770 
FT 109780 
FT1G979G 
FT 109800 
FT109810 
FT 109820 
FT109830 
FT 109840 
FT109850 
FT1G9860 
FT10987JL 
"FT 109880 
FT109890 



FT109900 



FT109920 
FT 109930 
FT 109940 
FT109950 
FT109960 
FT109970 
FT10998C 
FT109990 
FT 11 0000 
FT110010 
FT110020 
FT110030 



GET WORD COUNT 

X 

COMPLETE WORD 1 

STORE THIS IN CARD IMAGE 



FT110040 
FT110050 
FTl 10060 
FT110070 
FT 110080 
FT 110090 
FT 110100 
FJ110110 
FT 110120 
FT110130 



I0S21 


EQU 


* 




FT110140 
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WRITE 


*SYSBIN, BINARY, 


9L£FT,24,C0L73,3 WRITE THIS LAST CARD 


FT110150 
FT110160 






STL 


IOEX 








BRA 


WRITE,, *+4 




FT110170 






PTW 


SYSBIN,, BINARY 




FT110180 






PZE 
MZE 


9LEFT,,24 
COL73,,3 




FT110190 
FT110200 










£^021 


REM 
CAL 


ERASE 




FT110210 
FT1 10220 






RESTORE OBJECT DECK LABEL 






SLW 


LABEL 


X 


FT110230 
FT 110240 






STZ 


TLSWTH 


INDICATE TO RE-SEQUENCE 






CAL 


=0200500000000 


RESET 9LEFT FOR »STASH« 
X 


FT110250 
FT110260 






SLW 


9LEFT 






AXT 


23,1 


CLEAR COLUMN BINARY IMAGE 


FT110270 






STZ 


9LEFT+24,! 


X 


FT110280 






TIX 
STL 


*~1,1,1 
STOUT 




FT110290 
FT110300 






INDICATE ST OUT FOR MAP 






SPACE 


3 




FT110310 
FT110320 






LXD 


PST16,1 


CLEAR POOL AREA USED ABOVE COLUMN 






TXL 


PSTll, 1,666 


X 


FT110330 






TXI 


*+l, 1,-666 


X 


FT110340 






AXT 


0,2 
COLUMN+666,2 


X 


FT110350 
FT110360 






STZ 


X 






TXI 


*+l,2,-l 

»-2.i,i 




FT1 10370 
FT1 10380 






TIX 


X 




PST11 


TRA 
REM 


OUTPGC-1 


EXIT P S T 


FT110390 
FT110400 










PST12 


LNT 


100000 


IS THIS A SOURCE PROG. VAR. OF SOME 


FT110410 






TRA 


PST14 


TYPE. NO, MUST BE ERASABLE 


FT110420 






LNT 
TRA 


200000 
PST13 


YES, IS IT A COMMON VARIABLE 


FT110430 
FT 110440 






NO 






SSM 




YES, DO COMMON RELOCATION 


FT110450 






ADO 


TOPCOM 


X 


FT110460 






ORA 


=0200000000000 


PUT IN IBM'S REQUIRED BITS 


FT110470 
FT 110480 






TRA 


PSTG8-4 


GO PUT THIS INTO CARD IMAGE 






REM 






FT110490 




^ST13 


ACL 


LTHRUW 


DO LOW-CORE VARIABLE RELOCATION 


FT110500 






TRA 


r% ■-% rs *\ n .n *% r\ j** f\ n r* *s 

PST08-4 




FT110510 
FT110520 






GO STASH THIS ENTRY 






REM 


LTHRUS 




FT110530 




PST14 


ACL 


DO ERASABLE RELOCATION 


FT110540 






ACL 


LVARSS 


X 


FT110550 






TRA 


PST03-4 


GO STASH THIS ENTRY 


FT110560 






REM 






FT110570 




PST15 


ERROR 


38,*+l 


POOL AREA OVERFLOW — NO SYMBOL TABLE 


FT110580 






STZ 


NOCODE 


LAST ERROR NOT FATAL 


FT110590 






TRA 


OUTPGC-1 


EXIT SYMBOL TABLE SECTION 


FT110600 






REM 






FT110610 





TTL 
REM 



REM 

REM 
REM 
REM 



REM 

REM 



REM 
REM 
REM" 
REM 



REM 
RFM 



REM 
REM 



CDLABL 



TZE 
AXT 



TIX 
TXL 
TXH 
AXT 
TXI 
SXA 
TXI 
SXA 



TXI 
AXT 
AXT 
LMVT1 LDQ 
CuVT SXA 
ZAC 
LGL 
STQ 
XCA 
ZAC 
DVP 
XCA 
ADO 
STA 



P i 
1) 
2) 
3) 



COLUMN BINARY, 



ST PASS 1 - C D t A B L 

SUBROUT INE CONVERT S BCD N AME TO 

EACH CALL INCREMENTS SEQUENCE NUMBER. 

IF TLSWTH IS SET TO ZERO, ROUTINE RESETS SEQUENCE 



FT110620 
FT110630 
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NUMBERING TO ZERO AND PICKS UP NEW LABEL FROM 



CALLING SEQUENCE 

SNAME = BCD LABEL TO BE USED. 



FTU0640 

FT110650 

* LABEL* Ft! 10660 

FT 110670 

FT 110680 
FT110690 



TLSWTH = 0, 



IF SEQUENCE NUMBERING 
RESE T TO ZERO, AND IF 
IS TO BE USED. 



IS TO BE 
NEW NAME 



TSX CDLABLt4 
(RETURN) 



FT110700 
FT110710 
FT1I0720 
FT110730 
FT 110740 
FT110750 




LBL0UT,1 
LBLOUT+1,2 



SAVE XR*S 



LBLOUT+2,4 

TLS WTH 

SQNQ 
C0L73 



HAS TITLE BEEN CONVERTED TO COL. IMAGE 



YES, PUT SEQUENCE NO. IN CARD 
NO, ZERO OUT COLUMNS 73 THRU 



80. 



CQL73+1 
C0L73+2 
LABEL 
*+3 
SNAME 
=H(MAIN) 
'TMPTL "*"" 



FT110760 


FT110770 


FT110780 


FT110790 


FT110800 


FT110810 


FT110820 


FT110830 


FT110840 


FT110850 



UP 
IF 



PICK 
SKIP 
NO LABEL. 

NO. _ SET 
SAVE NAME 



THE NEW NAME 
LABEL HAS BEEN FOUND 
IT 



IS IT A 
LABELING 



SUBROUTINE. 

TO 'MAIN PROGRAM* 



6,1 
6,2 



COUNT TRAILING BLANKS 



ASSUME BLANK FOUND, COUNT WITH MINUS 



* + 2 
0,1 



FT110860 
FT110870 
FT1 10880 
FT110890 
FT 110900 
FT110910 
'FT 110920 
FT1 10930 
FT 110940 

_ FT 110950 
FTi 10960 

ARITH .FT11Q970 
FT 110980 



N0N-8LANK FUUNU, RfcbET mUNifcK 



CNTBLK,2,1 
j*+3 jj. ,0 
♦+2,1, -24 
-24,1 
*+l,l,-12 
NUMCNT,1 
**1,1,36 

S TNUM,! 

*+l,l,12 

3,4 

24,2 

TMPTL 

C0LSFT,2 

6 
TMPTL 



RETpEAT LOOP FOR ALL SIX BCD CHARACTERS FT111000 

SKIP IF NO BLANK C HARACTERS FT111010 

"IF 4 OR : MORE r TRAILING BLANKS, RESET COUNTERFT111020 

^ FT111030 

CALCULATE NO. OF DIGITS IN SQNCE NO. 

SAVE COUNT OF DIGITS 

CALCULATE SHIFT NEEDED ON SEQUENCE NO. 
SAVE NO. OF LEADING CHARACTERS (MINUS 2) 



INITIALIZE 
INITIALIZE 



FT11104C 
FT111050 
FT 11 1060 

_____ FT111070 

CONVERSION ROUT. TO ACTUAL C0UNTFT1 11080 



CARD WORD POINTER FOR TI TL E. 



INITIALIZE SHIFT POINTER FOR TITLE. 
BEGIN CONVERSION OF BCD TO COL. IMAGE. 
INITIALIZE SHIFT INSTRUCTION 

LOOK UP COL. IMAGE IN TABLE 

"OF 



FT 11 1090 
FTI 11 100 
FT111110 



=3 

TBLHD 
PCKENT 



GET ADDRESS 
SAVE REST 
CALCULATE 
X 

X 

X 

"" X 

X 



ENTRY IN TABLE 

OF CHARACTERS TO BE 

LOCATION IN CONVERSION TABLE. 



CONVERTED. 



FT111120 
FT111130 
FT 111140 
FT111150 
FT111160 
FJ111170 
FT 11 1180 
FT111190 
FTi 11200 
FT111210 



PCKENT 



MPY 

JtCA_ 

STA 

CAL 



= 12 



BTPTN 



ARS 
ANA 



i* iJL.S» i 



MO LP 



ALS 
0_R5 
TXI 

_TNX_ 
TXI 
TIX 
ZET 
TRA 



BTPTN 

»♦ 

** 

=07777 

** 

C0L73+3,4 

*+l, 2,-12 

£NDLP,2,-36 



PICK UP TABLE ENTRY 



HOVE 12 BIT IMAGE TO RIGHT IN AC 
REMOVE ALL OTHER BITS 



SHIFT TO POSITION* 

STO RE IN CA RD I_MAG_E 

MOVE SHIFT POINTER 

RESET SHIFT POINTER AT END (-12) 



*+l,4»-l 
_CNVT1,_1,6 
TLSWTH 
LBLOUT 



RESET COLUMN POINTER. 

ARE ALL CHARA CTER S CONVER TED AND .STORED.. 
YES. IF SEQUENCE NUMBER JUST INSERTED, 
RETURN 



$mo 



SXA 
SXA 
SfL 
CLA 
STO 
CLA 



PNT2,2 
PNT4,4 
TLSWTH 
=-1 



TITLE JUST ADDED. 
COLUMN POINTER. 



SAVE SHIFT POINTER AND 



TURN OFF TITLE SWITCH 
INITIALIZE SEQUENCE NUMBERING 



SQSUM 
SQSUM 



INCREMENT SEQUENCE N O. IN BCD ARITHMETIC. 



ADD 
CVR 



= 1 
8CDCNV,,6 



CONVERT VIA TABLE LOOKUP_ 



FT111220 
FT111230 
FT11124G 
FT 11 1250 
FT11126d 
FTXH270 
FT111280 
FT111290 
FT111300 
FJ 111310 
FT1H320 
FT111330 
FT111340 
_FT111350 
FTiil360 
FT111370 
FT 111380 
FT 11 1390 
F Til 1400 
FT111410 
FT111420 
FT111430 
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PNT2 



PNT4 



SLW 
AXT 
CAL 
SXA 
ALS 
AXT 
ANS 
TNX 
STZ 
TRA 



SQSUM 
*»,2 



ZERO OUT PREVIOUS NUMBER IN C ARD I MAGE . 



=0777777770000 

*+l ? 2 _ SET SHIFT COUNT 

** " " " X 

**t4 

C0L73+3,4 

STNUM1,4,1 

C0L73+3,4 

*-2 



STNUM1 
STNUM 


LDQ 
RQL 


SQSUM 

*• 


NUMCNT 


LXA 
AXC 


PNT4,4 
**t 1 


TBLHD 


TRA 
PZE 


CNVT 
CONVTB 


L8L0UT 


AXT 
AXT 


**,1 



PICK UP COLUMN POINTER. 

ZERO OUT "PARTIAL WORD 

ZERO OUT REMAINDER OF CARD 

~X" 

X _ 

INITIALIZE CONVERSION ROUf. FOR SEQUENCE 
SHIFT OFF UNUSABLE LEADING BCD DIGITS. 



FT11144G 
FT111450 
FT 11 1460 
FT111470 
F'ri 11480 
FT111490 
FT11150G 
FT111510 
FT111520 
FT111530 



NOFT 111540 
FT111550 



SET COLUMN POINTER 

SET C0UNTER_ FOR NUMBER OF DIGIT S 

PUT NO. IN CARD IMAGE 



LESTORE XR*S 



AXT 
TRA 



**,4 
lt4 



FT111560 
FT111570 
FT111580 



FT111600 
FT11161G 
FT 111620 
FT111630 



# 


TTL POST PASS 1- OUTPGC 

THE FOLLOWING MACRO WRITES THE PROGRAM CARD ON SYS8IN. THE 


FT 11 1640 
FT 11 1650 




* 


VARIOUS WORDS IN THE PROGRAM CARD WERE FORMATTED IN ROUTINE 
8 J L E N. 


FT111660 
FT111670 
FTl 11680 
FT111690 
FT111700 
3 FT111710 
FT111720 
FT111730 
FTU1740 
FT111750 
FT111760 
FT111770 
FT111780 
FT111790 
FT111800 
FT111810 






SPACE 3 

TSX CDLA6L,4 SET-UP FOR OBJECT DECK LABELLING 




I0S22 
OUTPGC 


EQU * 

WRITE *SYSBIN,1,PCWD1, 3, CMNBRK, 1,SNAME,1, ENTRY, 1, SUM, 18, C0L73,: 




OUTPGC 


STL IOEX 

BRA WRITE,, *+8 






PTW SYSBIN,,1 
PZE PCHD1,,3 






PZE CMNBRK,, 1 
PZF SNAME..1 






PZE ENTRY,, 1 
PZE SUM,, 18 




END22 


MZE C0L73,,3 
REM 
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TTL POST PASS i~ ST VECT 

THE F OLLOWING ROUTINE STAS HES T HE TRANSFER VECTOR INTO BINA RY 

CARD IMAGES. TRANSFER VECTOR ELEMENTS REPRESENTING LIBRARY 

ROUTINES ARE STASH ED FIRST A ND THEN NON-LIBRARY EXTERNAL 

REFERENCES ARE STASHED. THE NON-LIBRARY REFERENCES WERE CHAINED 

TOGETHER BY THE POST PASS 1 RO UTINE S Y P A S S. 

SPACE 2 

THIS ROUTINE HAS B EEN S ET UP AS A SUBRQUTIN£_B£CAUS_E A_MOD_I_FIED 

VERSION OF THIS ROUTINE IS USED BY ROUTINE M A P TO LIST THE" 

TRANSFER VECTOR IN THE STORAGE MAP IN POST PASS 2. 

SPACE 3 " "~ " " " " 



FT111820 
FT111830 
Ffill846 
FT111850 
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TSX 
TRA 
REM 
REM 
STVECT N2T 



TRA 
SXA 
AXT 
STVl CAL 
ZET 
TSX 
TXL 
TXI 



NZT 
TRA 



LXA 
STV2 CAL 
TSX 
CAL 
PDX 
TXH 
XSTV AXT 
TRA 



STVECT,4 



GENPRL 



LTVECT 



STASH TRANSFER _V ECTOR 

GO TO NEXT POST PASS I ROUTINE 



FT11186G 
FT111870 
FT111880 
FT111890 
FT111900 
FT1119I0 
FT1H920 
FTill930 
FT11I940 
FT111950 



1,4 

EXSTV,4 
-2tZ 

SLNTAB-1,2 
SLNTAB-2,2 
STASH, 4 



IMMEDIATE EXIT IFF V ECT OR IS EMPTY 

x "~ 

SAVE XR4 FOR RETURN 



XR2 IS USED AS SPECIAL NAME TABLE PTR, 

GET_NEXT TA BLE ENTRY 

IS THIS NAME USED IN OBJECT PROGRAM 
YES, GO STASH IT 



*+2,2,-LSLNTB 

STVl, 2, -2 

TVSW2 

EXSTV 

TVSW2,2 

SYMTAB,2 

SfASHtV""""^" 

EQUIV,2 

,2 

STV2,2,0 

• • ,4 

1,4 



NO, TRANSFER IFF AT END OF TABLE 
BUMP POINTER AND GET NEXT NAME 



FT111960 
FT111970 
FT11198G 
Fill 1990 
FT11200G 
FT112010 
FT11202G 
FT11203G 
FT 112040 
FT112050 



ARE THERE ANY OTHER VECTOR ELEMENTS 

NO, GO EXIT THE SCENE, MAN 

GET PTR. TO FIRST TV EL. IN SYMTAB 
SET ACC TO THIS ELEMENT OF TV 



STASH THIS ELEMENT 
GET POINTER TO NEXT ELEMENT 
PUT THIS INtO XR2 
GO GET NEXT IFF THE RE IS A N E XT 
AT END, MAKE LIKE A B-I-G BIRD 
AND FLY AWAY 



FTH2060 
FT112070 
FT112080 
FT11209G 
FT112100 
FT11211G 
FT11212G 
FT112130 
Ffll2140 
FT1I2150 



TTL 


POST P 


A S i 


i 1 - GENPRL 


FT112160 


REM 


THE FOLLOWING SUBROUTINE GENERATES THE OBJECT-TIME 


FT112170 


REM 


PROLOGUE CODE. 


ON ENTRY TO THIS SECTION, THE PROGRAM 


FT112180 


REM 


CARD IS OUT ON 


SYSBIN AND THE TRANSFER VECTOR HAS BEEN 


FT112190 


REM 




FT112200 


REM 








FT112210 


REM 


THE PROLOGUE CODE IS BROKEN INTO THREE SECTIONSt 


FT112220 


REM 


SECT, 


. 1 = 


XR SAVING 


FT112230 


REM 


SECT, 


► 2 = 


BODY OF PROLOGUE 


FT112240 


REM 


SECT, 


► 3 = 


APPENDIX 


FT112250 


REM 








FT112260 


REM 


SECTION 3 PRECEDES SECTIONS 1 AND 2 IN THE OBJECT-TIME 
CODE. THE PROLOGUE THUS APPEARS AS, 


FT112270 


REM 


FT112280 


REM 


APPEND 


AXT 


..,1 APPENDIX— CONTAINS AXT*S AS 


FT112290 


REM 


AXT 


..,2 NECESSARY AND FINAL SUBR. 


FT112300 


REM 




AXT 


..,4 SUBROUTINE EXIT. 


FT112310 


REM 




TRA 


(N+l),4 N * NO. SUBR. ARGUMENTS 


FT112320 


REM 








FT112330 


REM 


ENTRY 


SXA 


APPEND, 1 XR SAVING AS REQUIRED. 


FT112340 


REM 




SXA 


APPEND+1,2 *ENTRY* IS SUBPROGRAM 


FT112350 


REM 




SXA 


APPEND+2,4 ENTRY POINT 


FT112360 


REM 








FT112370 


REM 




CAL 


1,4 BODY OF PROLOGUE— SETS 


FT112380 


REM 


- - - 


STA 


ADDRESSES IN TEXT AS 


FT112390 


REM 


STA 


REQUIRED. 


FT112400 


REM 


- - - - 


PAX 


,1 


FT112410 


REM 


SXA 


— fl 


FT112420 


REM 




TXI 


*+l,l, — 


FT112430 


REM 




SXA 


~ »1 


FT 112440 


REM 




SXA 


— tl 


FT1 12450 


REM 






• 


FT112460 


REM 






• 


FT112470 


REM 


. 


FT112480 


SPACE 


2 
SUBR 






FT1 12490 


GcNPRL HIT 


IS THIS A SUBROUTINE COMPILATION 


FT112500 


TRA 


PASS2 




YES, EXIT FROM THIS SECTION 


FT112510 


NZT 


RTNFLG 




IS THERE A RETURN STATEMENT. 


FT112520 


TRA 


GENrA 





NO. 


r 1 1U33U 


LDI 


XRFLAG 


ARE ANY XR»S TO BE SAVED IN APPENDIX 


FT112540 


RFT 


700000 
"GENP9" 




YES, GO GENERATE SECTIONS 3 AND 1 


FT11255G 


TRA 




OF THE PROLOGUE 


FT112560 


CAL 


NOAR&S 




SET -ACC TO J*QL*. OF. SUBR. JlRiGUMENTS 


FT112570 


ACL 


TRA4 




SET ACC TO TRA (N0ARGS),4 


FT112580 


TSX 


STASH, 4 
LP80DY 




STASH THIS INSTRUCTION 


FT112590 


uJNPA NZT 


IS SECTION 2 EMPTY 


FT112600 


TRA 


GEHPD 




YES, GET READY TO EXIT THIS SECTION 


FT112610 


STZ 


ERASE 




ERASE = ARG. AND DELTA 


FT112620 


srz 


ERASEl 
ERASE2 




ERASEl = ARG. 


FT112630 


STZ 


ERASE2 = DELTA 


FT112640 


STZ 


ERASE3 




ERASE3 = XR YET THIS ARG. 


FT112650 


REM 






ERASE4 = PCOUNT 


FT112660 


LXA 


PR0L2, i 
* + 3,l " 




XR1 = PRLTBL + LPROLG 


FT112670 


SXA 




SAVE THIS IN FOLLOWING CAL 


FT112680 


LXA 


PROLOG+2,2 




XR2 = LENGTH OF PROLOG TABLE 


FT112690 


TXI 


*+l,2,-l 




SET XR2 TO LENGTH OF PRLTBL 


FT112700 


odNPi CAL 


• • 1 2 
ERASE4 




PICK-UP NEXT PRLTBL ENTRY 


FT112710 


STA 


SAVE PCOUNT FOR THIS ENTRY IN ERASE4 


FT112720 


ANA 


ARGDEL 
ERASE 




SAVE ARG. AND DELTA 


FT112730 


LAS 


IS IT SAME AS LAST ARG. AND DELTA 


FT112740 


TRA 


GENP3 




NO, GO TO GENP3 


FT112750 
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TRA 


GENP2 


YES, GO TO GENP2 


FT112760 
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— — 


MACER 
REM 




PRLTBL OUT OF SORT 


FT112770 
FT112780 






REM 


... TO HANDLE 


SAME ARGUMENT AND DELTA 


FT112790 
FTl 12800 






REM 








SENP2 


ZET 
TRA 


ERASE2 


IS THIS DELTA NON-ZERO 


FT112810 
FT112820 






GENP7 


YES, GO TO GENP7 






CAL 
ACL 


STA 
LTVPRL 


NO, GET STAREADY FOR STASHING 


FT112830 
FT 11 2840 






STA LTVECT+LPROLG 






ACL 
SSM 


ERASE4 


STA LTVECT + LPROLG + PCOUNT 


FT112850 
FT112860 






INDICATE ADDRESS RELOCATION 






TSX 


STASH, 4 
GENP1,2,I 


GO STASH THIS INSTRUCTION 
GO GET NEXT PRLTBL ENTRY 


FT112870 
FT112880 






TIX 






TRA 


GENPD 


GET READY TO EXIT THIS SECTION 


FT112890 
FTl 12900 






REM 








REM 


... TO HANDLE 


NEW ARG. AND/OR DELTA 


FT112910 






REM 






FT112920 




G£NP3 


SLW 


ERASE 
ARGBIT 


SAVE NEW ARG. AND DELTA 


FT112930 
FT112940 






ANA 


ISOLATE THIS ARG. 






LAS 


ERASE1 
GENP8 


IS THIS A NEW ARGUMENT 


FT112950 
FT112960 






TRA 


YES, GO TO GENP8 






TRA 


GENP4 


NO, GO TO GENP4 


FT112970 






MACER 




PRLTBL OUT OF SORT 


FT112980 






REM 
REM 






FT112990 






... SAME ARG. 


BUT NEW DELTA 


FT113000 






REM 






FT113010 
FT113020 




&ENP4 


ZET 


ERASE3 


ARE XR*S IN USE FOR THIS ARG. 






TRA 
STL 


GENP5 
"ERASE 3 


YES, GO TO GENP5 


FT113030 
FT113040 






NO, INDICATE THAT THEY ARE NOW 






CAL 


PAX1 


STASH PAX , 1 


FT113050 






TSX 


STASH, 4 


X 


FT113060 






xec 


GENPi 


GET THIS PRLTBL ENTRY AGAIN 


FT113070 






ANA 


DELBIT 


ISOLATE THIS NEW DELTA 


FT113080 






ALS 


3 


PUT NEW DELTA IN ACC (3-17) 


FT113090 
FT 113100 






SLW 


ERASE2 


SAVE IN ERASE2 




GizUPb 


ACL 


TXI11 


GENERATE TXI PGMCTR+1 ,1, DELTA 


FT113110 






ACL 


PGMCTR 


X 


FT113120 






COM 




TUfMCiTr * rv«-M-» T~t* r r\ ft j~» r~ * -r * n ft i 
ItKUiUHIC HULmCOO l\CLUUHI iUII 


«-"ri i •«»-»«* #* 






TSX 


STASH, 4 


STAST THIS TXI 


FT113140 




GEM? 7 


CAL 
ACL 


SXA1 


NOW GENERATE SXA CTEXT),1 


FT113150 






LTVPRL 


X 


FT113160 






ACL 


ERASE4 


X 


FT113170 






SSM 




INDICATE ADDRESS RELOCATION 


FT113180 






TSX 


STASH, 4 
GENP3-2 


STASH THIS SXA (TEXT),1 


FT113190 
FT113200 






TRA 






REM 






FT113210 






REM 


... SAME ARG. 


BUT NEW DELTA WITH XR*S ALREADY IN USE 


FT113220 






REM 






FT113230 




GTNP5 


LDC 


ERASE2,1 


XR1 = -(OLD DELTA) 


FT113240 






XEC 


GENPI 


GET PRLTBL ENTRY AGAIN 


FT113250 






ANA 


DELbIT 


ISOLATE NEW DELTA 


FT113260 






ALS 


3 


SHIFT NEW DELTA INTO ACC (3-17) 


FT113270 






SLW 


ERASE2 


SAVE THIS IN ERASE2 


FT113280 






STO 


*+l 


X 


FT113290 






TXI 


•+lt It •• 


GET (NEW DELTA - OLD DELTA) 


FT113300 






PXD 
TRA 


,1 
GENP6 


PUT THIS INTO ACC 


FT113310 
FTl 13320 






NOW GO STASH THIS TXI AND SXA 






REM 

rbT 


... TO HANDLE 


NEW ARGUMENT NUMBER 


FT113330 
FT113340 












REM 






FT113350 





GENP8 SLW 


ERASE1 


SAVE NEW ARG. IN ERASE1 


FT113360 
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XEC 


GENP1 


GET THIS PRLTBL ENTRY AGAIN 


FT113370 
FT113380 




ARS 


30 


SHIFT NEW DELTA INTO ACCC30-35) 




ACL 


CAL4 


ACC = CAL (ARG NO.), 4 


FT113390 
FT 113400 




TSX 


STASH,4 


STASH THIS CAL 




XEC 


GENP1 


GET PRLTBL ENTRY AGAIN 


FT113410 
FT113420 




ANA 


ARGDEL 


SAVE NEW ARG. AND DELTA IN ERASE 




SLW 


ERASE 
DELBIT 


X 


FT113430 




ANA 


SAVE NEW DELTA IN ERASE2 


FT113440 




TNZ 


GENP4+2 


IF NON-ZERO DELTA, GO TO GENP4+2 
X 


FT113450 
FT 11 3460 




SLW 


ERASE2 




ST2 


ERASE3 


INDICATE NO XR*S YET THIS ARG. 


FT113470 
FT113480 




TRA 


GENP2+2 


OTHERWISE GO GENERATE STA 




REM 






FT113490 
Ffl 13500 




REM 


... TO HANDLE 


GENERATION OF SECTS. 1 AND 3 OF PROLOGUE 




REM 






FT113510 




G6NP9 CAL 


AXT1 


PUGENERATE AXT*S IN APPENDIX AS REQD. 


FT113520 




RFT 


100000 
STASH, 4 


X 


FT113530 
FT 113540 




TSX 


X 




CAL 


AXT2 


X 


FT113550 




RFT 


200000 


X 


FT113560 




TSX 


STASH, 4 
AXT4 


X 


FT113570 
FT113580 




CAL 


X 




RFT 


400000 


X 


FT113590 




TSX 


STASH, 4 


X 


FT113600 




CAL 


NOARGS 


GENERATE FINAL SUBR. EXIT (TRA (N), 


4)FT113610 




ACL 


TRA4 


X 


FT113620 




TSX 


STASH, 4 

ENTRY 


X 


FT113630 




CAL 


GET ADDRESS OF FIRST AXT 


FT113640 




SUB 


NOXRS 


X 


FT113650 




SUB 


ONE 


X 


FT113660 




SLW 


ERASE 




FT113670 




RNT 


100000 


GENERATE SXA IFF XR1 TO BE SAVED 


FT113680 




TRA 


GENPB 


OTHERWISE GO TO GENPB 


FT113690 




ACL 


SXA1 


X 


FT113700 




SSM 




INDICATE ADDRESS RELOCATION 


FT113710 
FT113720 




TSX 


STASH, 4 


GO STASH THIS INSTRUCTION 




CAL 


ERASE 


<:pt ho Fno wpvt ¥d 


cm aT-an 

1 I 4. J. _/ I «/ V 




ACL 


ONE 


X 


FT113740 




STA 


ERASE 


X 


FT113750 




GENPB RNT 


200000 


GENERATE SXA ~ ,2 IF NECESSARY 


FT1 13760 




TRA 


GENPC 


OTHERWISE GO TO GENPC 
X 


FT113770 
FT 113780 




ACL 


SXA2 




SSM 




X 


FT113790 
FT113800 




TSX 


STASH, 4 


X 




CAL 


ERASE 


SET UP FOR NEXT XR 


FT113810 




ACL 


ONE 


X 


FT113820 




STA 


ERASE 


X 


FT113830 

FT113840 




GENPC RNT 


400000 


GENERATE SXA — ,4 IF NECESSARY 




TRA 


GENPA 


EXIT THIS SECT. GENPRL IF NOT NEC. 


FT113850 




ACL 


SXA4 


X 


FT 11 3860 




SSM 




X 


FT113870 




TSX 


STASH, 4 


X 


FT113880 




TRA 


GENPA 


EXIT THIS SECTION 


FT113890 
Ftl 13900 




REM 






REM 


... TO HANDLE 


GENERATION OF TRA AROUND A. S. F. 


FT113910 
FT 113920 




REM 








GtNPD CAL 


LARSTS 


IF A. S. F. ARE INVOLVED IN THIS 


FT113930 




TIE 


PASS2 


SUBPROGRAM THEN AT END OF PROLOGUE 


FT113940 




ACL 


LTVECT 


GENERATE TRANSFER AROUND THEM TO 


FT113950 





ATi" LPROLG ENTRY "POINT OF TEXT PROPER FT11396G PAGE 292 

ACL TRA X FJU3970 

X FT113980 



TSX STASH,4 X _ _ .__ .„ _FJ 113990 

—_ - - FT114000 





TTL POST PASS 1 SUBROUTINES - STOUM 


PFT114010 




* 


THIS SUBROUTINE IS ENTERED ON ENTRY TO POST PASS 1 IF L S T S Y 


MFT114020 




* 


IS NGN-ZERO. THIS CELL WILL BE NON-ZERO IF THE STATEMENT 


FT114030 






REH 


FT 11 4040 




* 


LIST SYMBOL TABLE 


FT114050 






REM 


FT114060 
FT1 14070 




♦ 


APPEARED ANYWHERE IN THE SOURCE PROGRAM, 






SPACE 3 


FT114G80 




# 


THIS ROUTINE OUTPUTS ON M L S T A P EACH SYMBOL, ITS RELATIVE 


FT1 14090 




* 


LOCATION IN S Y M T A B AND ITS CORRESPONDING E Q U I V ENTRY. 


FT114100 
FT114110 






REM 




£- 


THIS ROUTINE ALSO DUMPS THE USED PORTION OF P L (4 ENTRIES/ 


FT114120 
FT114130 




* 


LINE) IN OCTAL ONTO M L S T A P. 






SPACE 3 


FT114140 
FT114150 




STDUMP 


SAVE STDUMX 




I0S23 


EQU * 


FT114160 
FT 1141 70 






WRITE ♦MLSTAP,DEC,STDMPl t 3 






STL IOEX 


FT114180 






BRA WRITE,, *+3 


FT114190 






PTW MLSTAP,,DEC 


FT114200 






MZE STDMP1,,3 


FT114210 




END23 


REM 


FT114220 




IGS24 


EQU * 


FT114230 






WRITE *MLSTAP,DEC,STDM10,10 


FT114240 
FT114250 






STL IOEX 






BRA WRITE,, *+3 


FT114260 






PTW MLSTAP,,DEC 


FT114270 






MZE STDM10,,10 


FT114280 




t^D24 


REM 


FT114290 




I0S25 


EQU * 


FT 114300 
FT114310 






WRITE *MLST AP, DEC, STDM1 1,10 






STL IOEX 


FT114320 
Ffl 14330 






BRA WRITE,, *+3 






PTW MLSTAP,,DEC 


FT114340 
FT114350 






MZE STDM11,,10 




EMD25 


REM 


FT114360 




IGS26 


EQU » 


FT114370 






WRITE *MLSTAP»DEC»STuMi2, 10 


FT114380 
FT 114390 






STL IOEX 






BRA WRITE, ,*+3 


FT114400 
FT114410 






PTW MLSTAP,,DEC 






MZE STDM12,,10 
REM 


FT114420 
FT 114430 




£^D26 




IOS27 


EQU * 


FT 11 4440 
FT114450 






WRITE *MLSTAP,DEC,STDM13,10 






STL IOEX 


FT114460 
FT 114470 






BRA WRITE,, *+3 






PTW MLSTAP,,DEC 


FT114480 






MZE STDM13,,10 


FT1 14490 




nMD27 


REM 


FT11450G 




I0S28 


EQU * 


FT114510 






WRITE *MLSTAP,DEC,STDMP4,1 


FT114520 






STL IOEX 


FT114530 






BRA WRITE, ,«+3 


FT114540 
FT 114550 






PTW MLSTAP,,DEC 






MZE STDMP4,,1 


FT114560 
FT114570 




BHD28 


REM 






AXT 4096,1 


FT114580 






AXT 0,2 


FT114590 






ZET SYMTAB,2 


FT114600 
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STDMPA 



TRA 
TXI 



STDMP3 



TIX 

TRA 



*-3,l,l 
PLDHPX 



STDUMX 

TfDMPI 
STDMP2 
STDMP3 



RESTQR 

TRA 

BCI 

BCI 

PXA 

TSX 

SLW 

CAL 



SLW 
CAL 
LGR 
ALS 



OR A 
SLW 



5TDMP7 



AXT 
ZAC 



LGL 

LGL 
ALS 
LGL 
ORA 
SLW 
TIX 
ZAC 
LGL 
STQ 
TSX 
ORA 
SLW 
CAL 
ARS 



IOS29 



TSX 

SLW 

EQU 

WRITE 

STL 

BRA 



EN029" 



STDMP4 



STOMPS 
STDMP6 
STDMP8 
STOMP 9 
S TDM1C 

sTdm'IT 

STDM12 

STOM13 



M __ _ 

3»1SYMB0L TABLE DUMP 

1,0 

,2 

QCT BCD ,4 

STDMP4+T 

$YMTAB,2 



FTU4610 
FT1L4620 
FT 114630 
FT114640 
FT114650 
FT114660 
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STDMP4+2 

£_GUIV,2 

33 

_1_2 

=H 
STOMPS 
4,4 



PW 

MZE 
REM 

X RA 
BCI 

PZE 
PZE 
PIE 
BSS 

BSS 
BSS 
BCI 
BCI 
BCI 
BCI 
REM 
REM 
ROUTINE 



1 
I 

i 

=H G^) _ 

STDMP6+4,4 

STDMP7,4,1 



6 

STDMP9 
Q CTBC D,4 
000 



=H 

STOMPS 

STDMP9 

21 

QCT8CD»4 

STDMP8+1 

♦ "" " 

»MLSTAP,PEC,STPMP4,1Q 
IOEX 

WRITE,, *+3 
MlSTApr,OEC 
STDMP4,,J0 

STDMPA 

It" " " ~~ 



LOCN SYMBOL 



DVLPAECAGAEI 
A H A S Q R R~x""N 
u R s I A. U M G T R X L 
8 B X H N V N T Y F F 



ARG 

NO 



FT114670 
FT114680 
FT114690 

OU *J00 

FT 114710 
FT114720 
FT114730 
FT114740 



FT114750 
FT114760 
FT'i 14770 
FT114780 
FT 114790 
FT 114800 
FT114810 

FT114830 
FT114840 
FT114850 
FT114860 
FT 114370 
FT114880 
FT114890 
FT114900 
FT114910 
FT114920 
FT1 14930 
FT114940 



FT114950 
FT114960 



TO DUMP POOL REGION 



FT1 14970 

CTt t i. *\r\ f\ 
r I 11T70U 

FT 114990 
FT115000 
FT115010 
FT115020 
FT115030 
FT115040 
FT115050 
FT11506Q 
FT 115070 
FT115080 
FT115090 
FT115100 
FT115110 
FT115120 
FT115130 
FT115140 
FT115150 
FJ115160 
ADDR FT115170 
FT115180 
FT115190 
FT115200 



s 




FT115210 
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IGS30 EQU 


* 


FT115220 




PLDMPX WRITE 


*MLSTAP,DEC,STDMP2,1 


FT115230 




PLDMPX STL 


IOEX 


FT115240 




BRA 


WRITEt i*+3 


FT115250 




PTW 


MLSTAP,,OEC 


FT11526G 




M2£ 


STDMP2,»1 


FT115270 




£^D30 REM 




FT115280 




I0S31 EQU 


* 


FT115290 




WRITE 


*MLSTAP,DEC,PLDMP1,3 
IOEX 


FT115300 
FT115310 




STL 




BRA 


WRITE,, *+3 


FT115320 




PTW 


MLSTAP,,DEC 


FT115330 




MZE 


PLDMP1,,3 


FT115340 




END31 REM 




FT115350 




I0S32 EQU 


* 


FT115360 




WRITE 


*MLSTAP,DEC,STDMP2,1 


FT115370 




STL 


IOEX 


FT115380 




BRA 


WRITE, ,*+3 


FT115390 




PTy 


MLSTAP,,DEC 


FT115400 




MZE 


ST0MP2,,1 


FT115410 




IHD32 REM 




FT115420 




REM 




FT115430 




LXA 


NXTLOC1 
PL0MP2+1,1 


FT115440 




SXD 


FT115450 




AXT 


0,1 


FT115460 
FT115470 




REM 






PLDMP6 AXT 


12,4 


FT1I5480 




CAL 


=H 


FT115490 




SLW 


PLDMP3,4 


FT115500 




TIX 


*-l,4,l 


FT115510 




REM 




FT115320 




PXA 


tl 


FT115530 




TSX 


0CTBC0,4 


FT115540 




SLW 


PLDMP4+1 


FT115550 




AXT 


12,2 


FT115560 




REM 




FT115570 




PL0MP2 TXI 


*+I,l»l 


FT115580 




TXH 


PLDMP5,1,*» 


FT115590 




LOQ 


POOL+1,1 


FTl 15600 




TSX 


CINSTR,4 


FT115610 




SLW 


PLQHP3+U2 


FT145&20 




STQ 


PLDMP3+2,2 


FT115630 




TIX 


PLDMP2,2,3 


FT115640 




REM 




FT115650 




IUS33 EQU 


* 


FT115660 
FTl 15670 




WRITE 


*MLSTAP,DEC,PLDMP4,14 




STL 


IOEX 


FT115680 




BRA 


WRITE,,*+3 


FT115690 




PTW 


MLSTAP,,DEC 


FT115700 




MZE 


PLDMP4, ,14 


FT115710 




ErtD33 REM 




FT115720 




TRA 


PLDMP6 


FT115730 




REM 




FT115740 




I0S34 EQU 


* 


FT115750 




PLDMPb WRITE 


*MLSfAP,DEC,PLDMP4,14 


FT115760 




PLOMP5 STL 


IOEX 


FT115770 




BRA 


WRITE, ,*+3 


FT115780 




PTW 


MLSTAP,,DEC 


FT115790 




MZE 


PLDMP4,, 14 


FT115800 





t£ND34 REM 

TRA STOUMX - - FT 1 15820. 

REM" FT! 1 5830 

PLDHP1 BC 1 ll 00UMP 0F PO OL AREA _ _ ±Ikl5M9 

"plompVbci It 



FT 115810 PAGE 296 



FT115850 



PLDMP3 BES 13 H 115860 



ITLFMSII EDITOR 



CONTROL CARD NO. 



SPACE 6 

THE FgLtOWJNG 'INSTRUCTIONS' CAUSE PUNCHING OF THE EDITOR 

LBL 2FSTR 

PROGRAM CARD FOR THE SECOND PART OF FAST RAN ( FASTRAN RESIDES ON 



THE SYSTEM" TAPE AS TWO RECORDS— NOS. 30 AND 31) 
SPACE 



B^GRC2 



EQU 
ORG 
9LP 
IORT 



3 

* 

<L _ __„ _ 

BEGRC2»tC0LUMN-8EGRC2+l 



TXI 
ASS 
ORG 



BEGINZ,,31 
1iEGRC2~ 



ENTRY PT.»fPORGRAM NO, 



FT115870 
FT115880 
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FT115890 
FT11590Q 
FTlT59iO 
FT 115920 
FT 11 5930 
FT115940 
FT1 15950 
FT115960 
FT115970 
FT 115980 
FT 115990 
FTJJL6000_ 
FT 11 60 10 



EJECT 



'FT 116020 Ph&E 298 



TTL PASS 



■rilTcTTTTT'oir Frii6030 page 299 

U FT116040 - 

FT 116050 




* * * FT116080 

----- f asTr-a N-cTirrrni ISSoo 

K--^-r -^-., — -?r-^ -s .. i^rns-s — FcTTpI FTll6lib 

______ _ FT116120 

— FT 116 130 
FT11614P 

- --0- LToTiyroT, r"NiTA~n ft 1 16150 

BLU^*, FT116160 

3 r* «** c a PT11A170 

o * * FT116180 

— ___ — PASS2 *V 

M M _ ----- -■ — — — — — "FT116210 



f N "dTa n a UNIVERSITY 



"EJECT FT 116220 

QH ENTRY TO PASS 2 COMPILATION IS TO THE POINT WHERE TH E PROGRAM FT116230 
CARD IS OUT ""AND THE TRANSFER VECTOR AND PROLOGUE HAVE BEEN FT116240 

'STA SHED* IN TO CARD I MAGES. __ . FT1 16250 

REM FT116260 

THE FOLLOWING IS AN OVERA LL PICTURE OF PASS 2. (DE T AIL ED C0M_MENTS_FT_1162_7q 
PRECEDE : EACH SECTION). ~ FT116280 

REM FT LI 6 290 
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SPACE 



REM 



PASS 2 PERFORMS THE FOLLOWING FUNCTIONS IN THE INDICATED ORDER, FT11630G 

16310 
16320 
16330 
16340 
16350 
16360 
16370 
16380 
16390 
16400 
16410 



CITPRO- GENERATE AND STASH OBJECT TIME TEXT CODE* THIS IS 
DONE BY PROCESSING C I T AND C I T F L G. .__ 

SC0N5T- STASH OBJECT TIME CONSTANTS. 



REM 



REM 



SSTRIN- STASH OBJ ECT TIME STRINGS (FORMATS). 
i 
LSTASH- CLOSE PUNCH FILE BY FORCING OUT LAST CARD. 



FT1 
FT1 
FT1 
FT1 
FJ1 
FT1 
FT1 
Ftl 
FT1 



SPACE 5 FT1 

THIS IS THE END OF PASS 2. AT THIS POINT POST PASS 2 IS ENTERED. FT1 



AND 



fTL ~P A~S S 2 - C I T P R 

THE FOLLOWING ROUTINE IRRESPONSIBLE FOR PROCESSIN G C._ I _.!__- 

■CTTTL G.~"'tHAT~IS; THE "OBJECT TIME TEXT CODE IS GENERATED 

USING_TH£j: I J AND C I ,.JL.F_L G FILE S GENERATED WITH THE PASS 1 

SUB ROUT I NE "T""l t ¥ L ~D. 

SP ACE 2 __ __ 

TTOVTC'I T T~R IS BROKEN INTO THREE SECTIONS, 

REM 



GETFLG- 



THIS SECTION OBTAINS THE NEXT C I T WORD AND ITS 
ASSOCIATED FLAG. IF NECESSARY, G E T F L G R EADS 
SYSUTinfO~"PULL IN THE" NEXT CITANDCITFLG 
BLOCKS. WHEN G E T F L G RECOGNIZE S THE 'END -OF- 



FT 116420 
FT11643G 
FT116440 
FT 116450 
FT 1 16460 
FT1 16470 
FT116480 
FT116490 
FT11650b 
FTH6510 
FT 116520 
FT116530 
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C I T» "FLAG "l» 77 OCTAL), CONTROL IS SENT, BY 
G_E_T_F L G, TO THE NEXT ROUTINE IN PASS 2 (THAT I St. 

~S C N S t). 



FT116540 
FT116550 



REM 



FLAG PROCESSORS- 



ThE"SEVERAL FLAG PROCESSORS SIMPLY PERFORM 
THE REQUIRED RELOCATION ON A C I T ENTRY 



"ACCORDING TO THE VALUE OF ITS ASSOCIATED 
FLAG. 



FT116560 
FT116570 
"Ft 1' 16580 
FT 116590 
FT1 16600 
FT116610 



REM 



2STASH- THIS ROUTINE IS BUILT I NTO THE PROCESSOR FOR FLA Gj=j 

"~ "AND"TS"RESP0NSIBLE FQR~STASHING THE FINALIZED OBJECT 

TIME INSTRUCTION INJO A BINARY CAR D IMAGE AND 

INSERT fNG "THE" PROPER RELOCATION SPECIFICATION INTO 
THIS CARD IMAGE. AFTER STAS H_INGj_2_S_ T ASH SENDS 
CONTROL TO G E f F L G TO PROCESS THE NEXT C I T 
ENTRY. 



FT116620 
NFT 116630 
FT 116640 
FT116650 



FT116660 
FT116670 
FT1 16680 
FT116690 



EJECT 

THILI 
C I t 
THE NE 
SPACE 
NZT 



S THE FIRST OF THEJJiREOLI JL^ THE NEXT 



10535 

bETFGS 

GETFG5 



TRA 
EQU 
READ 
STL 



3 

CITSW1 

GETFG1 



WAS CIT2 PUT ON TAPE 



NO, BYPASS READ OF SYSUT1 



F.MD35 



BRA 
PZE_ 
MZE 
REM 



SYSUT1,BINARY,CTFLG2,-1 

IOEX . 

READ,,*+3 
SYSUTltt BINARY^. 
CTFLG2,,-1 



READ CIT2 FLAG BLOCK 



I0S36 



EQU 
READ 



STL 
BRA 



PZE 

MZE 



END36 
GETFG1 



PASS2 
GETFLG 



REM 
_A_XC_ 

REM 
EQU 
EQU 
REM 



GETFG2 



AXC 
A XT 



GETLCA 



G£TLCB 



GETLCC 



GETFG3 



LDQ 
ZAC 
LGL 
STQ 
STA 
JLAS 
TRA 

JM 
CAL 

LXA 

TIX 

AXT 

LXA 

TXI 

SXA 

TXI 

SXA 

SXA 

LXA 



SYSUT1,BINAR Y,CIT2,-1 

IOEX 

READ , t *+3 



READ CIT2 BLOCK 



SYSUT1,, BINARY 
CIT2,*-1 



_WL_ 

GETFG1 _ 
GETFG1 

lt~2 
6,4 

• • , 2 

6 

..,2 

GETFGA 

=076 __ 

SCONST 

GETFG4 

• • , 1 

GETFGlt 1 
GEfFG3,4,i 
6,4 

GETFG2,2 
»+l,2«rl 
GETFG2,2 

•♦ltltl 
"GETFGlt 1 
GETFG2+1,4 
GETFGA, 1 



CIT WORD POINTER 



DEFINE SYMBOL • PASS2_» 
DEFINE SYMBOL • GETFLG* 



FLAG WORD POINTER 
FLAG WORD BYTE POINTER 



SET MQ = CURRENT FLAG WORD 
PREPARE ACC TO ACCEP T NEW FLAG 



SHIFT NEW FLAG INTO ACC 
SAVE REMAINDER OF FLA G WO RD 



SAVE THIS FLAG TEMPORARILY 

JS THIS FLAG = 76 OR 77 (OCTAL) 

FLAG *~77 ... GO TO SCONST 

FLAG = 76 ... GO READ NEXT CIT BLOCK 



FT 116700 
FT116710 
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WORD AND ITS" ASSOCIATED FLAG" ARE "OBTAINED AND PASSED ON TO 
XT SECTION OF C I T P R 0. _ .__ _ _ 



FT116720 
FJ116730 
FT 116740 
FT116750 



FT1I6760 
FT 116770 
FT 116780 
FT116790 
FT 116800 
FT116810 
FT 116820 
FT116830 
FT 116840 
FT116850 
FT116860 
FT116870 
FT116880 
FT1_16890 
FT 116900 
FT 116910 
FT1 16920 
FT116930 



FT116940 
FT116950 
FT116960 
fjl 16970 
FT 116980 
FT116990 
FT117000 
FT117010 
FT117020 
FT117030 



FT 11 7040 
FT117050 



SET ACC TO THIS CIT ENTRY 



FT 117060 



5tl AKi 



• n> ** ~r -v ««*->»■» r\ n r% t »s r r r» 

U ^1* wuku ruiMiciv 



IF END OF FLAG WORD SET-UP FOR NEXT 

RE J>§I F .k AG _ KOfi-P B YTE POSTER 

BUMP FLAG" WORD POINTER 

X 

X 

BUMP CIT WORD POINTER 

X 

SAVE FLAG WORD BYTE POINTER 

SET XRITO FLAG 



FT117080 
FT117090 
FT117100 
FT117110 



FT117120 
FT1J7JL30 
FT117140 
FT117150 
FT117160 



EJECT 
THIS IS 



VARIOUS 
TO THIS 
SPACE 
TXH 



THE_SECONO_OF THE THREE C 
PROCESSORS FOR THE C I t 
SECTION THE CURRENT C I 



I T P R SECTIONS. THE 



FLAGS RESIDE HERE* ON ENTRY 
T FLAG RESIDES IN XR1. .„ 



CITER,1,MAXFLG 



ERROR IF FLAG TOO HIGH 



TRA* 

FLGTB1 EQU 



FLGTBL.l 

* 



TRANSFER TO APPROPRIATE FLAG 



FLAGH 
FLAGG 
FLAGD 
FLAGQ 



FLAGE 
Fi AGW 



FLGT8L 
MAXFLG 

CITER 



FLAGX 
FLAGS 
FLAGC 
FLAGF 



FT117170 
FT 117180_ 
FT117190 
FJ 11 7200 
Ffi 17210 

FT 11 7220 

PROCESSOR FT 11 72 30 

FTU7240 

Ffi 17250 
FT 117260 
FT 117270 
FT117280 
FT 117290 
FT 11 7300 
FT11731Q 
FT117320 
Ffi 17330 
FT117340 
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E0U_ 

SPACE 

STR 

REM 

REM 

REM 

REM 
"REM 
SPACE 



FLAGT 
FLAGV 
FLAGR 
F LAGP 
"FLAGN 
♦-FLGTB1-1 



MCR, »SCQNST 



FOR USE IN TEST ABOVE 



ILLEGAL CIT FLAG ENCOUNTERED 



FT11735Q 


FT117360 


FT117370 


FT117380 


FT117390 


FT117400 


FT117410 


FT 117420 



THE 
TO 
2 



FOLLOW IMG ARE THE FLAG PROC ESSORS. CON TROL IS SENT 
'THE PROPER PROCESSOR VIA ROUTINE CITPRO. 



REM 
REM 


FLAG = P 




REM 
FLAGP ACL 


LTVPRL 




SSM 
TRA 


FLAGN 





TEXT RELOCATION 



FT1 17430 
FT117440 
FT 117450 
FT IX 7460 
"Ffi 17470 
FT117480 
FT117490 
FTU7500 
"FT 117510 
FT117520 



SPECIFY ADDRESS RELOCATION 
GO STASH THIS INSTRUCTION 



FLAGR 



FLAGV 



REM 
REM 
REM 
PAX 
5LW 
CAL 
STA 
CAL 

REM 
REM 
REM 
PAX 
SLW 
I'D I' 
PTA 
STL 
LNT 
TRA 
ANA 

SSM 
ADD 



FLAG = R 



ERASE 
EQUIV, 1 
ERASE 
E RASE 
FLAGP 

FLAG = V 



TEXT RELOGAT-H W- OH EQUIV £*4X RY 

SAVE CIT WORD 

GET EQUIV JENTRY 

BUILD WORD FOR TEXT RELOCATION 

SET ACC FOR TEXT RELOCATION 



GO DO TEXT RELOCATION 



tl 

ERASE 
EQUIV, 1 

OVERFG 
BCOMN 
FLGVl 
=077777 

TOPCOM 



RELOCATION 



COMMON OR VARIABLE 

SAVE CIT WORD 

GET EQUIV ENTRY 
SET EQUIV ENTRY INTO A CC 
FLAG FOR POSSIBLE ALTERNANT 
IS COMMON FLAG ON 



YES, 
X 



WCOMMON RELOCATION 



FT117530 
rm rjtu 
"Ft" 11 7550 
FXU7560 
FT1 17570 

Frii75.ao 

FT117590 
FT1J7600 
FT 1176 10 
FT117620 
FT 11 7630 
F_T1_17640 
FT1 17650 
FT117660 
FT117670 

FT 117680 

Ft! 17690 
FT1 17700 

RELOCATIONFT117710 

FT117720 

Ffi 17730 
FTU7740 
FT 117750 
FT117760 



TRA 


FLAGT+4 




*FT117770 
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FLGV1 ACL 


LTHRUW 


DO VARIABLE RELOCATION 


FT117780 
FTl 17790 




TRA 


FLAGT+4 






REM 






FT117800 
FT117810 




REH 


FLAG = T 






REM 




EXTERNAL SYMBOL RELOCATION 


FT117820 
FT117830 


_ 


FLAGT PAX 


,1 




SLW 


ERASE 
EQUIV, 1 


SAVE WORD TO BE STASHED 


FT117840 
FT117850 




CAL 


GET EQUIV ENTRY 




SUB 


one 




FT117860 




STA 


ERASE 


BUILD WORD TO BE RELOCATED 


FT117870 




CAL 


ERASE 
FLAGP+1 


SET ACC 

GO STASH THIS WORD 


FT117880 
FT 117890 




TRA 




REM 






FT117900 
FT117910 




REM 


FLAG = F 






REM 






FT117920 
FT 117930 




FLAGF PAX 


tl 


STRING RELOCATION 




SLW 


ERASE 


SAVE ARGUMENT 


FT117940 




CAL 


EQUIV, 1 


GET EQUIV ENTRY 


FT117950 




ACL 


LTPTSC 


BUMP BY LENGTH TO STRINGS 


FT117960 
FT 117970 




TRA 


FLAGT+4 


60 STASH THIS WORD 




REM 






FT117980 




REM 


FLAG = C 




FT117990 




REM 




CONSTANT RELOCATION 


FT118000 




FLAGC ACL 


LTVPTS 


FT118010 




TRA 


FLAGP+1 


GO STASH 


FT118020 
FTl 18030 




REM 






REM 


FLAG « S 




FT118040 




REM 






FT118050 




FLAGS PAC 


tl 


LIBRARY SUBROUTINE ENTRY RELOCATION 


FT118060 




SLW 


ERASE 


X 


FT118070 




CAL 


0,1 


X 


FT118080 
FT118090 




SUB 


ONE 


X 




STA 


ERASE 
ERASE 


X 


FT 118 100 
FT118110 




CAL 


X 




TRA 


FLAGP+1 


X 


FT118120 




REM 




FT118130 




REM 


FLAG - X 




FT118150 




REM 






FLAGX CAL 


TRA 
LTVECT 


SUBPROGRAM EXIT 


FT118160 
FT118170 




ACL 


GENERATE TRANSFER TO RESTORE SECTION 




TKA 


FLAGf>+l 


OF PROLOGUE AND GO STASH 


r 1 1 JiOloU 




REM 






FT118190 




REM 


FLAG = W 




FT118200 
FT118210 




rem 






FLAGW SLW 


ERASE 


WORKING STORAGE RELOCATION 


FT118220 




PAC 


,4 




FT118230 




TXI 


*+lt4,.. 

ERASE, 4 


THIS DECREMENT SET BY SYPASS 


FT118240 
FT 118250 




SXA 






CAL 


ERASE 




FT118260 




ACL 


LTHRUS 




Fril8270 




TRA 


F L AGP* 1 




FT118280 
FT118290 




REM 






REM 


FLAG = E 




FT118300 




REM 






FT118310 




FLAGfc PAX 


>1 


NON-LIBRARY EXTERNAL REFERENCE 


FT118320 




SLW 


ERASE 


X 


FT118330 




CAL 


EQUIV,1 
FLAGS+3 


X 


FT118340 
FT118350 




TRA 


X 




REM 






FT118360 





REM 

REM 

FLAGQ PAX 

TIE 

SXD 
STL 
TRA 
REM 



FLAG = 



t4 

GETFLG 
FLGNlt 4 

ADJOIN 

GETFLG 



REM 
___ JLEM 
FLAGD AXT 

SXD 



FLAG = D 
FLGN1,1 



STL 
TRA 



ADDIN 
FLAGV 



REM 
REM 
REM 
FLAG6 AXT 
TRA 

REM 

REM 

FLAGH CAr 

SSM_ 

TSX 
CAL 
TSX 
CAL 
SSM 
TSX 
TRA 
REM 
REM 

_ ~ * E A 

FLAGN ZET 
TRA 



FLAG = G 
-ltl 



FLAGD+1 



FLAG = H 
CAL" 



STASH, 4 
SLH8_ 
STASH, 4 
STZOV 

STASH,4 



GETFLG 



FLAG = N 

ADDIN 
FLGN1-2 



FT118370 
FT118380 



SAVE CONSTANT ADD-IN 



FLAG THAT ADD-IN IS PRESENT 



FT118390 
FT118400 
FT118410 
FT118420 



ADD-IN = 1 AND VARIABLE RELOCATION 

X 



FT11843G 
FT118440 
FT 118450 
FT118460 
FT118470 
FT118480 



FT118490 
FT118500 



FT118510 
FT118520 



ADD-IN = -1 AND VARIABLE RELOCATION 



FT118530 
FT118540 
Ftli8550 
FT118560 



OUTPUT THE SEQUENCE, 



CAL 
SLW 


(FPT) 
8 




STZ 


77462 











FT118570 
FT 118580 
FT11859Q 
FT118600 
FT118610 
FT118620 
FT118630 
FT1 18640 
FT118650 
FT118660 
Ffli'8670 
FT118680 



IS AN ADDIN IN EFFECT 
YES, GO GET IT 



STZ 



OVERFG 



FT118690 
FTU8700 
FT118710 
FT118720 
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ZERO OUT THE SPECIAL FLAG 



♦FT118730 



* 


EJECT 
THIS IS 


THE THIRD OF THE 


THREE C I T P R SECTIONS. IT IS HERE 


FT118740 
FT118750 
FT 11 87 60 
FT118770 




* 


THAT THE FINALIZED BINARY WORDS ARE STASHED INTO CARD IMAGES. 
SPACE 2 




* 
* 


ON ENTRY TO THIS SECTION 
IN THE ACC (P, 1-35) AND 


THE BINARY WORD TO BE STASHED RESIDES 
THE SIGN BIT OF THE ACC IS ON IFF 


FT118780 
FT118790 




* 


ADDRESS 
SPACE 
AXT 
AXT 
~~SLW 
ACL 
SLW 
TXI 


RELOCATION IS TO 

3 

20,2 

0,4 

9LEFT+24,2 

SUM 


BE PERFORMED ON THIS WORD AT BSS TIME. 


FT118800 
FT118810 
FT118820 
FT118830 
FT I 18840 
FT118850 
FT118860 
FT118870 




2STASH 
STSHl 


XR2 IS IMAGE WORD POINTER 
XR4 IS RELOCATION BIT COUNTER 






STORE THIS WORD IN CARD IMAGE 
ACCUMULATE CHECK-SUM 






SUM 
*+l,4,2 


X 

BUMP RELOCATION BIT COUNTER BY 1 






TPL 
TXI 


STSH2 
*+l,4,l 
ADREL 
OVERFG 


GO TO STSH2 IFF NO RELOCATION 
OTHERWISE BUMP RELOCATION BIT COUNTER 
SET LOW MQ TO 010 
IF OTHER RELOCATION, GET THE BITS 


FT118880 

FT118890 

FT118900 

*FT118910 






LDQ 
ZET 
LDQ 
STZ 
ZAC 
LGL 






*03 
OVERFG 


ZERO OUT THE FLAG 


*FT118920 
♦FT118930 






72,4 


SET ACC TO ZERO 

MOVE RELOCATION BITS INTO 8-RIGHT 


FT118940 

FT118950 

FT 118960 

FT118970 

FT11898C 

FT118990 

FT119000 

FT119010 

FT119Q20 

FT119030 
FT 11 9040 

FT119050 
FTl 19060 
FT119070 
FT 119080 
FT119090 
FT119100 
FTI19110 
Ft 119 120 
FT119130 
FTl 19140 
FTI19150 
FT119160 
FT119170 
FT119180 
FT119190 
FT119200 
FT119210 
FT119220 
FT119230 
FT 119240 
FT119250 
FTl 19260 
FT119270 
FT119280 
FT119290 
FT119300 
FT119310 
Ffll9320 
FT119330 






ORS 
LGL 
ORS 
SXA 
CAL 
ACL 


8LEFT 

36 

SRIGHT 

STSHl, 4 

PGMCTR 

ONE 

PGMCTR 

EXSTSH-1,2,1 

STSH3,2,339 

9LEFT,2 

SUM 

9LEFT 


AND/OR 8-LEFT 
X 




STSH2 


X 

SAVE RELOCATION BIT COUNTER 






BUMP PGMCTR BY 1 
X 






SLW 
TIX 
TXI 

SXD 


X 

GO EXIT IF IMAGE NOT FULL 




>TSH3 


RE-COMPLEMENT WO CNT AND PUT IN 7-9 
SAVE INSTRUCTION WORD COUNT IN 9-LEFT 
ACL 9-LEFT INTO CHECK-SUM 
X 






CAL 
ACL 






ACL 
ACL 


9LEFT+2 
9LEFI+3 


ADD RELOCATION BITS TO CHECK-SUM 
X 






SLW 

TC V 


SUM X 

mi AOl i. r% r*» f r» * r» r- -r-» <r> r\ r*r\r\ t * n r- 1 i » *t/-> 

^utHOLft ri\crHi\c jj'ou run. laocul iiMto 

* 

*SYS8IN,8INARY,9LEFT,24,C0L73,3 WRITE SIN. CARD IMAGE 




I0S37 


EQU 
WRITE 






STL 
BRA 
PTW 
PZE 
MZE 
REM 
CAL 
ACL 
STA 
AXT 
SXA 
AXT 
SXA 
STZ 
STZ 
STZ 
TRA 
SXA 
TRA 
SPACE 


IOEX 

WRITE, »*+4 
SYS8IN,, BINARY 
9LEFT,,24 






LND37 


C0L73,,3 

9LEFT 

=20 

9LEFT 

20,4 

STSHl-1,4 

0,4 

STSHl, 4 

SUM 

8LEFT 

8RIGHT 

*+2 

STSHl-1,2 

GETFLG 

3 






- 


GET 9-LEFT ADDR. FOR NEXT CARD IMAGE 

GET ORIGIN OF NEXT CARD 

X 

RESET WORD POINTER 






X 

RESET RELOCATION BIT COUNTER 






X 

RESET CHECK-SUM 

RESET RELOCATION WORDS IN IMAGE 

X 




STSH4 
EXSfSH 


GO BACK TO SECTION 1 OF C I T P R 

SAVE WORD POINTER 

GO BACK TO SECTION I OF C I T P R 
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« 


EJECT 
THIS IS 


THE TAIL-END OF 


THE PASS 2 PROCESSOR FOR FLAG = N 


FT1 19340 
FT119350 
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SPACE 
SLM 


3 
ERASE 


SAVE WORD TO BE STASHED 


FT119360 
FT119370 
FT119380 
FT119390 
FT 119400 
FT119410 




FLGN1 


PAX 
TXI 
SXA 
LRS 
CAL 
LLS 


1 4 


XR4 = UNBUMPED ADDRESS 
DO THE ADD-IN 






ERASE t 4 



GENERATE MODIFIED UORD 
SAVE SIGN OF ACCUMULATOR 






ERASE 



RESTORE ACCUMULATOR 
AND ITS SIGN 

SKIP IF NOT A VARIABLE ADDEND 


FT119420 
FT119430 
FT 11 9 440 
FT119450 






STZ 

NZT 


ADDIN 
OVERFG 




FLGN2 


TRA 
TXH 


FLAGN+2 
*+4f 4 1 ** 


IS VARIABLE REFERENCE ABOVE PROG. 


FT119460 
BRK.FT119470 






LNT 
TRA 


BCOMN 
FLAGN+2 


NO* IS THIS A COMMON VARIABLE. 
NO. RELOCATION BITS ARE OIO 


FT119480 
FT119490 
FT 119500 
FT119510 






TRA 
LFT 


FLAGN+3 
BCOMN 


YES. RELOCATION BITS ARE Oil 
ABOVE PRGBRK. IS IT IN COMMON. 






TRA 
TRA 


FLAGN+2 
FLAGN+3 


YES. RELOCATION BITS ARE OIO 
NO. RELOCATION BITS ARE Oil 


FT119520 
FT119530 





TTL 
THE 



PAS 
FOLLOWING 



S 2 - 
ROUTINE 



S C N S T 
STASHES TH E CONS TANTS 
CARD IMAGES. 
THE ORDER 



REQUIRED BY THE 



BINARY 
OUT IN 



THE CONSTANTS IN 
THAT THEY APPEAR IN THAT 



08JECT PROGRAM INTO 

Q_Q n _T_A_ B_ ARE PUT 

TABLE. AFTER ALL OF THESE CONSTANTS HAVE BEEN STASHED 
IS RELINQUISHED TO_ THE NEXT ROUTINE IN PA SS 2 (S S T R 



CONTROL 
I N). 



SCONST 



SPACE 
NZT 
TRA 
LXA 



3 

NOCONT 
SSTRIN 
NOCONT, 2 



_ARE 

NO, 



ANY NORMAL C ONSTANTS IN U SE 
GO TO SSTRIN IMMEDIATELY 



SXD 
AXT 



CAL 
TSX 
TXT 
TXL 



EXSCON BSS 



EXSCON-1,2 
1»2_ 

CQNTAB+1,2 
ST ASH ,4 
*+ 1,2,1 
*-3 , 2 , *» 




GO TOS S T R I N AT END OF S C H S 



FT11954G 
FT119550 
FT119560 
FJ119570 
FT119580 
FTU959G 
FT 119600 
FT119610 
FT 119620 
FT 119630 
FT 119640 
FT119650 
FT119660 
FT119670 
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FT119680 

FT119690 

TFT 119700 



TTL P A S S 2 

THE FOLLOWING ROUTI 



IMAGES. THESE STRI 
CHAINED TOGETHER IN 
STRINGS ARE STASHED" 
2 (L S T A S H). 



- S S T R I N 
NE STASHES^ STRINGS (F ORMATS) I NTO BINA RY CARD 
NGS ACTUALLYRESIDE IN P L BUT WERE 
S Y P A S S (IN POST PASS 1). AFTER ALL THE 
CONTROL ~IS GIVEN TO THE NEXT ROUTINE IN PASS 



SPACE 

SSTR IN NZT 
TRA 
LXA 



SSTR1 



CAL 

PAX 
SXD 



TXI 
CAL^ 

TXI 



TIX 
LXD 



XSTR 



TXH 
BSS 



3 

LSTRIN 



LSTASH 
STSW2,1 



>OOL,1 
ERAS E 



i2 

»+l,2 

P OOLtl _ 

STASH, 4 " 

*+l,l,~l 

*-3,2, 1 

ER ASE,! 

SSTR1,1,0 





ARE THERE ANY STRINGS TO STASH 

NO, GO TO L S T A S H IMMEDIATELY 
GET POOL POINTER OF FIRST STRING 



FT119710 
FT1 19720 
FT 119730 
FT119740 
FT11975Q 
FJ1 19760 
FT1 19770 
FT119780 
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GET POOL ENTRY FOR THIS STRING 
SAVE THIS ENTRY IN ERASE 



FT119790 
F T119800 
FT 119810 
FT119820 



XR2 = LENGTH OF THIS STRING 



FT119830 
FT 119840 



AND GO STASH IT 
BUMP XR1 TO GET NEXT STRING WORD 



FT119850 
FT119860 
Fill 9870 
FT119880 



GO BACK FOR NEXT WORD IF NOT AT END 
GET SAVED POOL WORD FOR LAST STRING 



ARE THERE MORE STRINGS. YES, GO. 
GNO, GO TO LSTASH 



FT119890 
JFT119900 
FT119910 
FT119920 



TTL PASS 2 - LSTASH 

THE FOLLOWING ROUTINE _IS_ USED IG_FQRC£ _OUIJidEJASI_CPERHAPS 

TaRTTalTy FILLEDf BINARY CARD IMAGE ONTO SYSBIN. THIS IS DONE 
USING THE ^tash ftfiHTTNF THAT RESIDES IN SECTION 3 OF C I T P R 
UPON COMPLETION OF LSTASH, CONTROL IS PASSED ON TO POST 
PASS 2. 



SPACE 
LSTASH LXA 
TXH 
AXT 



SXA 
STZ 



TIX 
LAC 



TXI 
REM 



tz ./% i— *& ■ 1* -W /» i 
SXA 

Tra 



STSHl-1,2 

PPASS2,2»19 

EXLSTH,4 



PICK UP WORD POINTER 



EXSTSH,4 
9LEFT+24,2 
•-1,2,1 
STSHi-l,JL_ 



STSH3,2,340 

GETFLG ,4 " 
EXSTSH,4 



IF IMAGE FULL GO TO POST PASS 2 
S E T_R ET URN IN STA SH _ 

x~ 

ZERO UNUSED COLU MNS OF LAST CA RD 

"x ~~ " " 

GET WORD COU NT FOR L A ST CARD 

SET-UP DECR. OF 9 LEFT 



RESET STSH4 IN STASH ROUTINE 
X 



PPASS2 



GO TO POST PASS 2 



FT119930 
F_T119940_ 
FT119950 
O.FT119960_ 
" FT1 19970 
FT119980_ 
FT 119990 
FX1 20000 
FT120010 
FT 120020 
FT120030 
FT 120040 
FT120050 
FT120_060 
FT 120070 
FT120080 
FT120090 
FT120100 
FT 120 lib 
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TTL PASS 

THE FOLLOWING INS 
6 ETF 



2 - MISCELLANEOUS 

TRUCT1GNS 5i IMPLY MAKE-UP THE TAIL END OF _ 

ENTRY IS MADE HERE WHEN 
ROUTINE 



FT120120 
FT120130 
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ION 1 OF C I T P R 0), 
FLAG (=76 OCTAL) IS ENCOUNTERED. 



L G (SECT 

AN «END-OF-C I T» 

Gef F L G "IS "RE-TnItIATED TO START WITH A NEW C I T AND 
C I T F L G BLOCK. 



GETFG4 



SPACE 
AXT 
SXA 
SXA 



3 
ltl 



AXT 
SXA 



GETFG1,1 
G£TFG2»1 
6,1 
GETFG2+1, 



R ESET C I T WORD POINTER 

ALSO RESET FLAG WORD POINTER 
RESET FLAG WORD BYTE POINTER 
X 



ZET 
TRA 
AXT 

SXA 
AXT 



GTSWCH 



END OF CIT1 OR CIT2 
END OF CIT2 



CTFLG2-1, 
GETLCA,! 
GETLCB 1 1 
CIJ2-1,1 
GETLCC1 
GTSWCH _ 
GETFG5-2 
3 




END OF CIT1* RE-INITIALIZE FOR CIT2 



TURN ON CIT2 SWITCH 



GO SEE IF CIT2 IS ON TAPE 



TAIL-END OF THE TV E C T L ROUTINE 



DEFINE THIS TRANSFER VECTOR ELEMENT 

X _ _ . _. 

GO LOOK FOR MORE LIBRARY REFERENCES 



FT12014G 
FT120150 
"FT120160 
FT120170 
FT126180 
FT120190 



FT120200 
FT120210 
FT 120220 
FT 120230 
FT 120240 
FT120250 



FT120260 
FT120270 
fT120280 
FT120290 
FT 120300 
FT120310 
FT 120320 
FJ120330 
FT120340 
FT120350 
FT120360 
FT120370 
FT120380 



TTL 



POST PASS 2 - DESCRIPTION 



REH 
SPACE 

# 
REM 



9 

* * 



FAST RAN COMPILER 

REM _ _ 

R E S £ ARCH COMPUTING CENTER 

REM „ 



INDIANA UNIVERSITY 



REM 



BLOOMINGTON, INDIANA 
SPACE 3 



REM 



POST PASS 2 



REM 



FT120390 
FT12040Q 
FT120410 
FT12 042Q 
FT12O430 
FT120440 
FT120450 
FT120460 
FT12047G 
FT120480 
FT 120490 
FT120500 
FT12!05iO 
FT120520 



FT120530 
FT120540 
FT120550 
FT120560 
FT12057G 
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On' ENTRY TCLPQST P ASS ,_2 J _JHE_0!yi£TJ'. *gS**£ 5 ^Mtt ! yj*^£fif 



FT 
FT 



OUTPUT ONTO- ^^ATlBilBINARrTARbS.-THOiSULT OF AN ERROR-FREEFT 
COMPRATION . ioSUP AS? . 1 I S CONCERNED ja™™L£Qy£!UNG_n^ f T 
ITEMSt pf 

SPACE 2 



CMAPPiNCTOF ^THr OBJECT "PROGRAM TOTNDlCAfFTHE EXACT CORE 
STORAGE LAYqUT_OFJ^J)BJE^PRJGR^ 



FT 
FT 



REM 



DETERMINING IF THE NEXT PROGRAM ON_JHLJffPUT JAPE IS 
WiOTHETTT^RANToSPILATION. IF THE NEXT PROGRAM DOES 
INVOLVE FASTRAN THEN POST PASS 2 SENDS CQNJR pL T O__THE 



FT 
FT 
FT 
FT 



WllTLTzmON^ClToirOF-T^ BEGIN THIS NEXT FT 

iVTiltr.it"*. Tp TH ^ "F^t poriGBAM nnFS NOT I NVOLVE FAS TRAN FT 
THllmfit^ SYSTEM MONITOR. FT120T20 



120580 

120590 

120600 

120610 

120620 

120630 

120640 

120650 

120660 

120670 

120680 

120690 

120700 

120710 
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TTL 
THE 



P S 
FOLLOWING 



T PASS 2 ■ 
ROUTINE IS USED 



■ MAP 
TO OUTPUT 



THE STORAGE MAP ASSOCIATED WITH THIS COMPILATION. THIS MAP 
CONTAINS THE FOLLOWING ITEMS IN THE INDICATED ORDER (ITEMS WHICH 



FT12073C 
ON THE SYSTEM OUTPUT TAPEFri20740 

FT120750 
FT120760 
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DO NOT 
SPACE 



APPLY TO A PARTICULAR PROGRAM ARE NOT MAPPED ), 

2 

NOT 



STORAGE NOT USED BY PROGRAM 
INDEX REGISTERS USED BY THE OBJECT PROGRAM 
ORIGIN TAND LENGTH OF FOLLOWING, 
TRANSFER VECTOR __ 

PROLOGUE 

ARITHMETIC STATEMENTS _ 



TEXT 
CONSTANTS 



STRINGS 
WORKING 



(FORMATS) 
STORAGE 



LOW-CORE VARIABLES 
COMMON STORAGE 



TRANSFER VECTOR 
OCTAL LOCATIONS 



OCTAL 
OCTAL 
OCTAL 
OCTAL 
OCTAL 



LOCATIONS 
LOCATIONS 
LOCATIONS 
LOCATIONS 
LOCATIONS 



PPASS2 



KAPi 



SPACE 

CAL 

TZE 

SLW 

CAL 

SLW 

TSX 



PTW 
C_AL 
SLW 
CAL 
SLW 
CAL 



LABEL 

MAP L 

LTn'1+9 

BLANKS 

L INI +10 

LIST, 4 

LINlftii 

GAR81 

Tin i+9 

GARB 1+1 
LINl+10 
PGMBRK 



TSX 
ARS 



ORA 
SL+f 
CAL 
TSX 
SLW 
TSX 



0CTBCD,4 
6 

GARB2 
L I M2+5 
CMNBRK 
0CTBCD,4 
LIN2+7 
LIST, 4 



PON 
CAL 
TSX 
SLW 
CAL 
TSX 
ALS 
ORA 
SLW 
TSX 
PZE 



LIN2,,10 

PGMBRK 

6lN8Cb,4 

LIN3+5 

CMNBRK 

BI NBCD, 4 

GARB3 
LIN3+7 
LIST, 4 
LIN3, ,10 



OF NUMBERED EXECUTABLE STATEMENTS 



OF 

0F_ 

OF 

OF 
OF 



STRINGS (FORMATS) 

NON-DIMENSIONED NON-COMMON VARIABLES 



DIMENSIONED NON-COMMON 
NON-DIM ENSI ONED COMMON 
DIMENSIONED COMMON VARIABLES 



VARIABLES 
VARIABLES 



GET LABEL OF PROGRAM BEING COMPILED 

TRANSFER IF MAIN PROGRAM 

STORE SUBPROGRAM NAME IN HEADING 

X _ 

X 

GO LIST MA P HEADING 
PAGE EJECT 
RESTORE LIN1 



TO 'MAIN PROGRAM* 



USED ... 
PROGRAM BREAK 



• MESSAGE 



X 

GET PROGRAM BREAK A ND C OMMON BREA K 
FOR • STORAGE NOT 

R I GHJ- ADJUST 

LEADING BLANK 

WS£RT AM* MESSAG E 

GET COMMON BREAK 

CONVERT TO OCTAL 

INSERT IN MESSAGE 

PUT OUT OCTAL PROGRAM LIMITS 



FT120770 
FT120780 
FT 120790 
FT120800 
FT120810 
FT120820 
FT 120830 
FT120640 
FT 120850 
_FT 120860 
FT120870 
FT120880 
FT120890 
FT120900 
FT 120910 
FT120920 



FT120930 
FT120940 
FT120950 
FT120960 
FT 120970 
FT120980 
FT120990 
FT121000 
FT121010 
FT121020 
FT121030 
FT121040 
FT121050 
FT121060 
FT121070 
FT121080 



DOUBLE SPACED 

GET PROGRAM BREAK FOR DECIMAL CONVER, 

DO DECIMAL CONVERSION 

INSERT IN DECIMAL MESSAGE 

DO SAME FOR COMMON BREAK 

X 



LEFT-ADJUST 
TRAILING BLANK 
INSERT IN DECIMAL 
PUT OUT DECIMAL 
SINGLE SPACED 



MESSAGE 
MESSAGE 



FT121090 
FJ 12 1100 
FT 12 11 10 
FT 121 120 
FT121130 
FX12H40 
FT121150 
FT121160 
FT12U70 
FT 1211 80 
FT121190 
FT121200 
FT121210 
FT 121220 
FT 12 1230 
FT121240 
FT 12 1250 
FT121260 
FT121270 
FT121280 
FT 12 1290 



EJECT 

REM ... TO PUT OUT INDEX REGISTER USAGE MESSAGE FI121310 

__._. — _ — - FT121320 

CAL XRFLAG_ __ XRFLA G CONTAINS 'OR' -ED XR'S USED FT121330 

ANA TG7BIT ""'SAVE TAG ONLY FT121340 

ALS 3 MOVE TO DEC REMENT _ FJ121350 

PDX" t T ~~ XR1 « XR'S USED FT121360 

CAL GARB4ja GET APPRO PR IATE WORD FOR MESSAGE _ FT 121 370 

SLW~ ~ "TIN4+7 INSERT IN MESSAGE FT12_380 

TSX LIST, 4 _____ PUT OUT THIS MESSAGE FT121390 

"PON"' Qjq^ f8 - — DOUBLE SPACED FT121400 



FT 121 300 PAGE 316 



EJECT 






FT121410 
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REM 


... TO PUT OUT 


rABLE OF LIMITS OF VARIOUS SECTIONS OF 
PROGRAM 


FT121420 
FT121430 




REM 


THE OBJECT 




REM 






FT121440 




TSX 


LIST»4 


PUT OUT 'ORIGIN LENGTH* HEADING 


FT121450 




PON 


LIN5,,13 


DOUBLE SPACED 

PUT OUT *OCTAL — DECIMAL* MESSAGE 


FT121460 
FT121470 




TSX 


LIST, 4 




PZE 


LIN6,,14 


SINGLE SPACED 


FT12148G 




AXT 


8,1 


PREPARE FIRST 8 TABLE ENTRIES 


FT121490 




STZ 


MAPORG 
LTVECT+8,1 


X 


FT121500 
FT121510 




HAP2 CAL 


GET LENGTH OF NEXT ENTRY 




TZE 


MAP3 


IF ZERO GO GET NEXT ENTRY 
CONVERT LENGTH TO DECIMAL 


FT121520 
FT121530 




TSX 


BINBCD»4 




ALS 


6 


RIGHT-ADJUST 


FT121540 
FT121550 




ORA 


GARB3 


TRAILING BLANK 




SLW 


LIN7+13 
LTVECT+8,1 


STORE THIS IN MESSAGE 


FT121560 
Ffl21570 




CAL 


NOW CONVERT LENGTH TO OCTAL 




TSX 


0CTBCD,4 


X 


FT121580 




SLW 


LIN7+11 


INSERT IN MESSAGE 


FT121590 




CAL 


MAPORG 


CONVERT ORIGIN OF THIS SECTION TO 


FT121600 




TSX 


BINBCD,4 


DECIMAL 


FT121610 




ALS 


6 


LEFT-ADJUST 


FT121620 




ORA 


GARB3 


TRAILING BLANK 


FT121630 




SLW 


LIN7+8 


INSERT IN MESSAGE 

NOW CONVERT ORIGIN TO OCTAL 


FT121640 




CAL 


MAPORG 


FT121650 




TSX 


0CTBCD,4 
LIN7+6 


X 


FT121660 
FT121670 




SLW 


INSERT IN MESSAGE 




AXT 


4,2 


MOVE SECTION NAME INTO PLACE 


FT121680 




CAL* 


GARB5,1 


USED INDIRECT TABLE ADDRESSING 


FT121690 




SLW 


LIN7+4,2 


MOVE INTO OUTPUT AREA 


FT121700 




TIX 


»-2,2,l 


MOVE TOTAL OF FOUR WORDS 


FT121710 




TSX 


LIST,4 


LIST THIS TABLE ENTRY 


FT121720 




PON 


LIN7,,14 


DOUBLE SPACED 


FT121730 




CAL 


MAPORG 
LtVECt+8,1 


UPDATE MAPORG 


FT121740 
FT121750 




ACL 


X 




SLW 


MAPORG 
MAP2,1,1 


X 


FT121760 




MAP3 TIX 


GO BACK FOR NEXT TABLE ENTRY 


FT121770 




L.AL. 




Lfl^l IAOLC ClMiM iO " UUflPIUlM i 1 UKAbC ' 


FT121780 




LAS 


TOPCOM 


SKIP IFF NO COMMON 


FT121790 




TRA 


*+2 
MAP28 


SOMETHING'S MESSED UP 


FT121300 
FT121810 




TRA 


SKIP MAP OF COMMON 




ADD 


= 1 


X 


FT121820 




SLW 


ERASE 


X 


FT121830 




TSX 


BINBCD,4 
6 


CONVERT ORIGIN TO DECIMAL 


FT121840 
FT121850 




ALS 


LEFT-ADJUST 




ORA 


GARB3 


TRAILING BLANK 


FT121860 




SLW 


LIN8+8 


INSERT IN MESSAGE 


FT121870 




CAL 


ERASE 


NOW CONVERT ORG COMMON TO OCTAL 


FT121880 




TSX 


0CTBCD,4 


X 


FT121890 




SLW 


LIN8+6 


INSERT IN MESSAGE 


FT121900 




CAL 


TOPCOM 


CALCULATE LENGTH OF COMMON 


FT121910 




SUB 


CMNBRK 


LENGTH = TOPCOM - CMNBRK 


FT121920 
FT121930 




SLW 


TEMP 


SAVE THIS LENGTH FOR CONVER. TO OCTAL 




TSX 


BINBCD,4 


CONVERT LENGTH TO DECIMAL 


FT121940 




ALS 


6 


LEFT-ADJUST 


FT121950 




ORA 


GARB3 


TRAILING BLANK 


FT121960 




SLW 


LIN8+13 


INSERT IN MESSAGE 


FT121970 




CAL 


TEMP 


CONVERT COMMON LENGTH TO OCTAL 


FT12198G 




TSX 


0CTBCD,4 


X 


FT121990 




SLW 


LIN8+11 


INSERT IN MESSAGE 


FT122000 





TSX LIST, 4 LIST THIS (THE LAST) TABLE ENTRY FT122010 PAGE 318 

PON LIN8,,14 DOU B LE SPACED _ _ . _.FT 122020 ....._ 





EJECT 
REM 
REM 
NZT 


... TO PUT OUT THE 


TRANSFER VECTOR IN THE MAP 


FT122030 
FT12204G 
FT122050 
FT122060 
FT122070 
FT122080 




MAP 2 8 


LTVECT 


IS THE TRANSFER VECTOR EMPTY 






TRA 
AXT 
LOO 
STQ 
TIX 
TSX 


MAP7 
16,3 


YES, BYPASS THIS SECTION 






BLANKS 
LINlO+17,2 
*-l,2,l 
LIST, 4 




FT122090 
FT122100 
FT122110 
FT122120 
FT 122 130 
FT122140 
FT122150 
FT122160 
FT122170 
FT122180 
FT122190 
FT122200 






PUT OUT BLANK LINE 

DOUBLE SPACED 

PUT OUT MAP HEADING FOR THIS SECTION 






PON 
TSX 


BLANKS,,! 
LIST, 4 
LIN9,,3 
MAP4,4 






PON 
AXT 


DOUBLE SPACED 

SUBROUTINE »STVECT« IS GOING TO BE 






SXA 
SXA 


STVl+2,4 
STV2+1»4 


USED TO PICK-UP TRANSFER VECTOR 
ELEMENTS FOR THE MAP 






TSX 
TRA 


STVECT+2,4 
MAP6 


AFTER SETTING UP "STVECT 1 GO TO IT 
GO TO MAP6 AT END 




MAP4 


SLH 
TIX 


LINlO+17,1 
MAP5+1»1,2 


THIS SECTION GETS CONTROL WHEN STVECT 
FINDS A T.V. ELEMENT 


FT122210 
FT122220 






SXA 
TSX 


MAPS, 4 
LIST, 4 


WHEN LINE IS FULL, yRITE IT 
X 


FT122230 
FT122240 
FT122250 
FT122260 






PON 
CLA 
STP 
STP 
AXT 
AXT 


LIN10,,16 

* 

*-2 

MAP6+6 

16,1 

...4 

lt4 

MAP30,1,15 

*+l»l,-16 

tl 


DOUBLE-SPACED (FIRST TIME ONLY) 
FORCE SUBSEQUENT LINES SINGLE SPACED 






X 
X 


FT122270 
FT122280 




MAP5 


RESET FOR NEW LINE FT122290 
X FT122300 
RETURN TO STVECT FT122310 
EXIT IF LAST LINE EMPTY FT122320 
PREPARE TO OUTPUT LAST T.V. LINE FT122330 
X FT122340 
X FT122350 
X FT122360 
OUTPUT "LAST LINE ~~ FT 122370 
DOUBLE IFF THIS IS ONLY LINE TO GO OUTFT122380 




MAP6 


TRA 
TXH 






TXI 
PXA 






PAC 
SXD 


,1 

*+2,l 






TSX 
PON 
AXT 
SXA 
SXA 
CAL 
STP 
STP 
NZT 
TRA 
LXA 
STZ 


LIST, 4 
LINlOt,.. 




MAP30 


STASH, 1 

STVl+2,1 

STV2+1,1 

MAP3-4 

MAP4+4 •"" 

MAP&+6 

TVSW2 
*+6 

TVSW2,1 
SYMTAB.l 


RESTORE STVECT TO NORMAL 

X 

X 

RESTORE PON'S 


FT122390 
FTI22400 
FT122410 
FT122420 




- 


X 

■X ■ - - • 

CLEAR SYMTAb OF EXTERNAL REFS. 


FT122430 
FTX2Z440 
FT122450 
FT122460 
FT 122470 
FT122480 
FT122490 
FT122500 
FT12251Q 
FT122520 
FT 122530 
FT122540 
FT 122 550 






CAL 
POX 
TXH 
AXT 
CAL 
SLW 


EQUIV,1 

tl 

*-3,l,0 

16,1 

BLANKS 

LINlO+17,1 

""•-iTiiT 








INITIALIZE OUTPUT AREA TO BLANKS 

X 

X 






TIX 


X 
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EJECT 
REM 



REM 
REM 



REM 
REM 



HAP7 



AXT 
AXT 



ZET 
TRA 



TIX 
TRA 



HAPS 



LDI 
LFT 



TRA 
IIL 



LNT 
TRA 



CAL 
STA 



PXD 
STO 



STZ 
NZT 

TRA 
LXO 



PXA 

J> T _ A 

SXD" 
TXI 



MAP9 



SXA 

SXD 



MAP10 



TXI 
LNT 
TRA 
CAL 



TO SET-UP 'POOL ' AREA WITH NUMBERED ST ATEMENTS, 
"FORMATS, AND ALL "COMBINATIONS OF DIMENSIONED AND 

AND NON -DIMENSIONED AND CO MMON AND NON-COMMON 
"VARIABLES • - ■ — - 



FT122560 
FT122570 
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LSYMTB,1 
lt_2 

SYMTAB, 1 
MAP8_ 

*-2 , 1 , 1 
MAP29 



INITIALIZE FOR SYMTAB SEARCH 
X 



FT122580 
FT122590 
FT12260Q 
FT122610 
Ffl22620 
FT122630 



IS NEXT SYMTAB ENTRY ZERO 

NO, GO SEE WHAT KIND OF SYMBOL IT IS 



EQUIV,1 
400000 



YES, GO LOOK AT NEXT SYMBOL 
GO PUT OUT LAST PORTION OF MAP 
GET EQUIV ENTRY FOR THIS SYMBOL 
WAS THIS ENTRY IN ERROR 



FT122640 
FT12265G 
FT 122660 
FT122670 
FT122680 
FT122690 



MAP7+4 
700000 



YES, GO GET NEXT ENTRY 

NO, INVERT SYMTAB MODE BITS 



/MLA8L*700000 
MAP10 



IS THIS A STATEMENT LABEL 
NO, GO SEE IF STRING 



EQUIV, 1 
POOL, 2 



YES, CHAIN TO LAST LABEL 
X 



FT122700 
FT122710 
FT122720 
FT122730 
"FT 122740 
FT122750 



tl 

POOL, 2 



POOL— 1 , 2 
GARB 15 
MAP9 
GARB15,4 

,2 

P00LHU4 
GARB 15,2 
MAP7+4,2,2 
GARB 15, 2 
GARB15,2 



POOL ENTRY = DEFN. ,, SYMTAB POIN TER 
SET NEXT POOL ENTRY TO ZERO 

IS THIS FIRST LABEL SO FAR 

YES, GO 



INITIALIZE CHAINING 
NO, CHAIN THIS LABEL TO LAST 



ONE 



X 
X 
X 
BUMP 



POOL POINTER FOR NEXT ENTRY 



MAP7+4,2,2 
/MSTRG*700000 



FIRST LABEL ENCOUNTERED 

SET-UP FIRST CHAI N LIN K 

BUMP POOL' POINTER FOR NEXT 
IS THIS A STRING 



ENTRY 



MAP12 

EQUIV, 1 



NO, 
YES, 



GO SEE IF VARIABLE 
GET EQUIV ENTRY 



FT122760 
FT122770 
FT122780 
FT 122790 
FT122800 
FT122810 
FT 122820 
FT122830 
FT! 22840 
FT122850 
FT122860 
FT12287 
FT122880 
FT122890 
FT122900 
FT12291C 



STA 


POOL, 2 


PXD 


,1 


STD 


POOL, 2 


STZ 


POOL- 1,2 


NZT 


GARB16 


T-RA 


MA^ll 


LXD 


GARB16,4 


PXA 


,2 


STA 


POOL-1,4 


SXD 


GARB16,2 


TXI 


MAP7+4,2,2 


HAP11 SXA 


GARB16,2 


SXD 


GARB16,2 


TXI 


MAP7+4,2,2 


MAP12 LFT 


BARGT 


TRA 
LNT"""' 


MAP7+4 

/MINTG*700000 


TRA 


MAP14 


LNT 


BCOMN 


TRA 


MAP15 


LNT 


BARRY 


TRA 


MAP19 


CAL 


EQUIV, 1 


STA 


POOL, 2 



~X~ FT122920 

POOL '"ENTRY = D£FN77,SYMTA8 POINTER FT 1 2 2940 

SET NE XT POOL ENTRY TO ZERO FT122950 

IS THIS FIRST STRING SO FAR FT122960 

YES* GO INITIALIZE CHAINING FT122970 

NO, GO CHAIN THIS STRING TO LAST ONE FT 122980 

X FT122990 

"X " ~ "" FT123000 

X FT 123010 

BUMP POOL POINTER FOR NEXT ENTRY FT123020 

FIRST STRING ENCOUNT ERED FT123030 

SET-UP FIRST CHAIN LINK FT123040 

BUMP POOL POINTER FOR N EX T ENTR Y FT123050 

IS THIS A SUBROUTINE PARAMETER FT 123060 

YES, OOJslOT PROCESS THIS ENTRY FT123070 

NO, IS~THIS~AN INTEGER VARIABLE FT12308Q 

NO, GO SEE IF REAL VARIABLE FT123090 

YES, IS THIS VARIABLE IN COMMON FT123100 

N0 ' GO SEE IF I T'S A N ARRAY FT123110 

YES, IS If AN ARRAY " ~" FT123120 

NO, MUSJ BE NON-DIME NSIONED, COMMON FJ 123130 
CHAIN f HIS" fOLAST DlMEN., COMMON VAR.FT123i4G 

X FT123150 



PXD 
STO 



STZ 
NZT 




TXI 
MAP14 LNT 



TRA 
TRA 



MAP15 LNT 
TRA 



CAL 
STA 



PXD 
STD 
STZ 
NZT 
TRA 
LXO 



PXA 
STA 
SXD 
TXI 
MAP 16 SXA 
SXD 



TXI 

MAP17 CAL 
STA 
PXD 



STD 
STZ 



NZT 
TRA 

LXD 
PXA 
STA 
SXD 
TXI 

HAP 18 SXA 

~ SXD 

TXI 

MAP 19 CAL 
STA 
PXD 
STD 

■"—*"•■ sfZ 
NZT 
TRA 
LXD 
PXA 
STA 
SXD 
TXI 



tl 

POOL»2 



ENTRY = DEFN.,, SYMTAB POINTER 



POGL-1,2 
GARB20 



X 

POOL 

SET NEXT POOL 

IS THIS FIRST 



ENTRY 
DIMEN., 



TO ZERO 
COMMON 



SO FAR 



MAP13 

GARB20,4 

,2 

POOL-1,4 

GARB20,2 

MAP7+4,2, 2 

GARB2G,2 

GARB2G,2 

MAPf+4,2,2 

/MREAL*70OOQO 



YES, GO INITIALIZE CHAINING 

NO, CHAI N T HIS VARIABLE TO LA ST ONE 

X 

X 

X 
BUMP 



POOL POINTER FOR NEXT ENTRY 



FIRST DIMEN., COMMON ENCOUNTERED 
SET-UP FIRST CHAIN LINK 



BUMP POOL 
IS THIS A 



POINTER FOR NEXT 
REAL VARIABLE 



ENTRY 



MAP7+4 
MAP12+4 



BARRY 
MAPI 7 
EQUIV, 1 
POOL, 2 



NO, DO NOT PROCESS THIS SYMTAB ENTRY 
_YJSx„GO TO V ARIA BLE PROCE SSOR 
IS THIS AN ARRAY 
NO, MUST BE NON-DIMEN., NON-COMMON 



FT123160 
FT12317G 
FT123180 
FT123190 
Ffl23200 
FT12321G 
FT123220 
FT123_230 
FT12324G 
FT123250 
FT 123260 
FT123270 
FT 123280 
FT 123290 
FT 12 3 300 
FT123310 
FT123320 
FT12333G 
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CHAIN 
X 



TO LAST DIMEN., NON-COMMON VAR. 



FT123340 
FT123350 



, 1 
POOL, 2 



POOL ENTRY = DEFN. ,, SYMTAB POINTER 



FT123360 
FT123370 



POOL-1,2 

GARB18 

MAP 16 

GARBjL8,j^ 

t2 

P00JL-JLt4 

~GARB18»~2 

MAP7+4,2,2 

GARBi"8V2"~ 

GA RB18,2 

MAP7+4,2,2 

EQUIV,! 



ENTRY TO ZERO FT123380 

DIMEN., NON-COMMON VAR. FT 12 3390 



ALIZE CHAINING 

S VARIABLE TO LAST ONE 



SET NEXT POOL 
IS THIS FIRST 
YES, GO INITI 

NO, CHAIN THI 

X 

X 

X 

BUMP POOi. POIN TER FOR NEXT EN TRY 

FIRST DIMEN., 

SET-UP FIRST 

BUMP POOL POI 

CHAIN THIS TO 



FT123400 
FT123410 
FT1 23420 
FT123430 
FT123440 
FT123450 
FT123460 
FT123470 
FT123480 



POOL, 2 
• 1 



NON-COMMON ENCOUNTERED 

CHAIN LINK 

NTER FOR NEXT ENTRY 

LASTNON-DIMEN. , N0 N-CQMMFT123490 

FT1~23506 

FT123510 



POOL, 2 

POOL-1,2 

GARB 17 

MAP18 

GARB17,4 

»2 

POOL-1,4 

GARB 17, 2 

MAP 7+4, 2, 2 

GARB17,2 



POOL ENTRY = DEFN. ,, SYMTAB POINTER 

SET NEXT POOL ENTRY TO ZERO 

IS 



CHAIN THIS VARIABLE TO LAST ONE 



THIS 
YES, GO 
NO, 
X 
X 
X 

BUMP POOL 
FIRST NON- 



FIRST NON-DIMEN., NON-COMMON 
INITIALIZE CHAINING 



POINTER 
•DIMEN., 



FOR NEXT ENTRY 
NON-COMMON HIT 



GARB17,2 
MAP7+4,2,2 
EQUIV, 1 
POOL, 2 
,1 
POOL, 2 

POOL-1,2 

GARB19 

MAP20 

GARB19,4 

,2 

POOL-1,4 

GARBl9,2 

MAP7+4,2,2 



SET-UP FIRST CHAIN LINK 

BUMP POOL POINTER FOR NEXT ENTRY 

CHAIN THIS TO LAST NON-DIMEN., COMMON 

X 

X 

POOL ENTRY = DEFN. ,, SYMTAB P OINTER 

SET NEXT POOL ENTRY TO ZERO 

IS THIS FIRST NON- DIMEN. , COMMON 

YES, GO INITIALIZE CHAINING 

NO, CHAIN THIS VARIABLE TO LAST ONE 

x " 

X 



X 
BUMP 



POOL POINTER FOR NEXT ENTRY 



FT123520 

FT 123530 

FT12354CT 

FT12355J) 

FT123560 

FT123570 

FT123580 

FT123590 

FT123600 

FT123610 

FT123620 

FT123630 

FT 123640 

FT123650 

FT123660 

FT12367Q 

FT 123680 

FT123690 

FT123700 

FT123710 

FT 123720 

FT123730 
FT 123 740 

FT123750 



MAP2G SXA 
SXD 

TXI 

REM 
"MAP 29" PX A 
LAS_ 

SL« 
TR A 

NOP 



GARB19,2 
GAR B19 ,2 
MAP7+4»2»2 



t2 

NXTL OC 
NXTLOC 
*+2 



FIRST NON~OIMEN.t COMMON ENCOUNTERED 
SET-UP FIRST CHAM LINK 



BUMP POOL POfNTER FOR NEXT ENTRY 



SET NXTLOC - MAXINXTLOCt 
CELLS U SED BY MA P) 

~X~ 
X 



NO. PQQL 



FT 123760 
FT123770 
FT123780 
FT1237_9G 
FT 123800 
FT123810 
FT123820 
FT123830 
FT1.23840 
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EJECT 

REM 



TO 



OUTPUT LOCATIONS, OF_J4imBEREO^IAIEMENISj_ FORMATS* 



REM 

REM 

MAP 21 STZ 

SYL 

AXT 
SXA 
HIT 

TRA 

CAL 

PAX 

CAL 
POX 



AND VARIABLES 



ERASE 

ERA SER 

0,1 



MAP27+2,_1 
GARB15»1 
MAP2J+2 
GARB 15,1 

t2 

POOL, 2 

, 4 



CAL 
TSX 



MAP22 



MAP 2 3 



MAP24 



SYMTAB,4 
RTJUST,4 

** ,4 

LIN10-1,4 



POOL, 2 
MAP27+2,_4 
«+3,4,3 
=077777 



GARB23,4 

0CTBCb,4 

6 

GARB2 

MAP22 

LIN10,4 

MAP22,4 _ 

MAP24-1,4,12 

*+l,4,3 

MAP22,4 

PQOL-1,2 

,2 

MAP26^2jl_0 

MAP 2 2-4 

**3t4,-2 

*+2,4,i 

MAP22,4 

MAP24+5,4 

ERASfc 

MAP25 

LIST, 4 



LIN10,,.. 
ERASE1 
MAP27 
2,4 

MAP22,4 
MAP23 
ERASE 
LIST, 4 
"BLANKSit 1 
MAP27+2,4 
GARB 2 1,4 

#+2 
LI ST, 4 

MAP24+5,4 
* + 5,4 



•NO LINE THIS SECTION YET 1 SWITCH 
'EXIT THIS SECTION' ^WIICH 



FT123850 
FT123860_ 
FT1 23870 
FT 123 880, 
FT 123 890 
FT123900 



PAGE 323 



INITIALIZE SECTION COUNTER 

SAVE SECTION. COUNTER 

IS THIS SECTION 
YES, GO LOOK AT 
GET FIRST POOL 
X 



EMPTY 

NEXT SECTION 

ENTRY FOR THIS SECTION 



DEFN.,,SYMTAB POINTER 
vqa. = <;vMTAR POINTER 

An ■"* ■»■*■ ■ ••■■-- — - — "■ ' ~ ' : -~ 



PICK-UP THIS SYMBOL 
RIGHT JUSTIFY S YMBOL 



CURRENT LINE POSITION POINTER 
PUT THIS SYMBJJL_IN_HESSAGE__ 



GET POOL ENTRY AGAIN 

GET CURRENT SECTION. POINTER 



FT123910 
FT123920 
FT123930 
FJJL23940 
FT 123950 
FT123960 
FT 123970 
FT1 23980 
FT123990 
FT1 24000 
FT124010 
FJ 124020 
FT 124030 
FT124040 



SUBTRACT 

X 

X 

ADD PROPER 



FROM TOPCOM IF COMMON SECT 



CONSTANT 

LOCATION TO OCTAL 



CONVERT 

R I GHT-AD JUST 

LEADING BLANK 

GET LINE POSITION PQINTEg.,.. 

"STORE THIS LOCATION IN OUTPUT LINE 

SEE IF LINE IS FULL__ _. - 

TRANSFER IF LINE IS FULL 
OTHERWISE BUHP_PQINTER FOR NEXT ENTRY 
SAVE UPDATED LINE POSITION POINTER 
IS THERE ANPTHER POOL ENTRY „_ _ 



FT124050 
FT12406CL 
FTli24070 
JH" 1240 80 
FT124090 
FT124100 
FT124110 

FT124120L 

FT 124 130 

FT124140 

FT124150 

FT124160 

Ftl24170 

FT124180 



X 

NO, 



GO FINISH THIS_SECIION 



FT124190 
FT124200 



YES, GO PROCESS 
GET PROPER WORD 



NEXT ENTRY 
COUNT 





TO 



D I T T 

prepare to outp ut a une this section 

save Tine word count 

is "this first lin€ -jhis segtjon 

YES, GO PUT OUT HEADINGS 

OUPUT LINE OFXHJS_$ECI_ION__ 

SINGLE SPACED (ALWAYS) 

IS THIS LAST LINE THIS SECTION „ 



NEXT SECTION 
FOR NEXT LINE 



YES, GO GET 

NO, PREPARE 

X 

GO GET NEXT LINE 

SET 'NO LINE THIS 

PUT OUT A BLANK 

DOUBLE SPACED 

GET CURRENT SECTION 

SET-UP LIST CALL 

X _ 

OUTPUT THIS SECTION 
ADDR. AND DECR. SET 



SECTION 
LINE 



YET' SWITCH 



POINTER 
FOR HEADING 



HEADING 
ABOVE 



GTTCURRENT LINE LENGTH 
SAVE IN LIST CALL 



FT124210 

r I X.£.tC£.\t 

FT124230 

FT124240 

FT124250 

FX124260 

FT124270 

FT124280 

FT124290 

FT124300 

FT124310 

FT124320. 

FT124330 

FT124340 

FT124350 

FT124360 

FT124370 

FT124380 

FT124390 

FU24400 

FT124410 

FT 124420 

FTT124430 

FT124440 



LXA 

CAL_ 

STA 

TSX 

PON 

TRA 



26 STL 

_LXA 

TXH 

HAP27 STZ 

STZ 

AXT 



TXH 
TXI 



SXA 
AXT 
SXA~ 
TRA 



MAP27+2,4 
GARB22,4 
*+2 
JLIST,4 

MAP24+4 



ERASE1 
MAP22,4 _ 
MAP24-2,4,2 
ERASE __ 
ERASE 1 
• • 1 1 



MAP31 f lf4 

»- 3 , 1 

_2»2_« 

MAP22t2 

HAP2I+4 



GET CURRENT SECTION POINTER 

GET LOCATION OF SECONDARY HEADING 



SAVE MESSAGE LOCATION IN LIST CALL 
OU TPUT SECONDARY HEADING 

x" 

GO OUTPUT LINE THIS SECTION 



SET 'EXIT THIS SECTION' SWITCH 
GET CURRENT LINE POSITION 



TRANSFER IF LAST LINE NOT FULL 
RESET •NO LINE THIS SECTION YET* 



RESET 'EXIT THIS SECTION' SWITCH 
XR1 = CURRENT SECTION N UMBER 



GO TO M A P 
SECTION IS 



3 1 IF LAST (THE SIXTH) 
OUT. OTHERWISE GO GET 



NEXT SECTION 
RESTORE MAP22 
X 
GO 



GET NEXT SECTION 



FT124450 
FT 124460 
FT 124470 
FT12448G 
FT124490 
FT1 24500 
FT124510 
FT124520 
FT12453Q 
FT 124540 
FT 1245 50 
FT 124560 
FT 1245 70 
FT124580 
FT124590 
FT124600 
FT 1246 10 
FT124620 
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EJECT 
REM 


.••• TP PPTP.MI 

STOUT 


SYMBOL TABLE MESSAGE IF NECESSARY 


FT124630 
FT124640 


MAP31 


REM 
NZT 


WAS SYMBOL TABLE PUNCHED 


FT124650 
FT124660 




TRA 
TSX 
PON 
TSX 
PON 
TRA 


FINISH 
LIST, 4 


NO, GO TO F I N I S H 

OUPUT SYMBOL TABLE PUNCHED MESSAGE 


FT124670 
FT124680 




BLANKS, 1 
LIST, 4 
LIN19,,16 
FINISH 


X 
X 


FT124690 
FT124700 




X 

FINAL MAP EXIT 


FT124710 
FT124720 
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EJECT 

REM ... GARBAGE AREA FOR MAP 


FT124730 
FT124740 


P 


REM 
MAPQRG 


FT124750 
FT124760 




GARB1 BCI 2, MAIN PROGRAM 
GARB2 BCI If 00000 


FT124770 
FT124780 




GARB3 BCI 1,00000 
BCI 1,1,2,4 


FT124790 
FT124800 




BCI 1,2,4 
BCI 1,1,4 


FT124810 
FT124820 




BCI 1,4 
BCI 1,1,2 


FT124830 
FT124840 




BCI 1,2 
BCI 1.1 


FT124850 
FT124860 




GARB4 BCI 1,N0NE 

GARB6+4,2 


FT 124870 
FT124880 




GARB7+4,2 
GARB7A+4,2 


FT124890 
FT124900 




GARB8+4,2 
GARB10+4,2 


FT124910 
FT124920 




GARBll+4,2 
GARB12+4,2 


FT124930 
FT124940 




GARB13+4,2 
GARB5 BSS 


FT124950 
FT 124960 




GARB6 BCI 4, TRANSFER VECTOR 
GARB7 BCI 4, PROLOGUE 


FT12497G 
FT124980 




GARBTA BCI 4, ARITH. STMNT. FCNS. 

GARBS BCI 4, TEXT 

GARB10 BCI ""™4; CONSTANTS 
GARB11 BCI 4, FORMATS 


FT12499G 
FT125000 
FT125010 
FT125020 




GARB12 BCI 4, WORKING STORAGE 
GARB13 BCI 4, LOW-CORE VARIABLES 


FT125030 
FT125040 




PON LIN18,,9 
PON LIN17,,9 


FT125050 
FT125060 




PON L~IN16»,9 
PON LIN14,,10 


FT125070 
FT125080 




PON LIN13,,7 
GARB21 PON LIN11,,9 


FT125090 
FT125I00 




LIN15 
LIN15 


FT125110 
FT125120 




LIN15 

nm5 


FT125130 
FT 125440 




LIN12 
GAR822 LIN12 


FT125150 
FT125160 




TOPCOM 
TOPCOM 


FT125170 
FT125180 




LTHRUW 
LTHRUW 


FT125190 
FT125200 




LTPTSC 

GAR823 LTVPRL 
r £ Mp 


FT125210 
FT125220 
FT 125230 
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EJECT 
REM 


... BCI'S FOR MAP 


FT125240 
FT125250 
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REM 
LINl BCI 


4, 


FT125260 
FT125270 
FT12528Q 
FT125290 
FT125300 
FT125310 
FT125320 
FT125330 




BCI 
LIN2 BCI , 
LIN3 BCI , 
LIN4 BCI 
LIN5 BCI 

BCI 


7, FASTRAN STORAGE MAP FOR MAIN PROGRAM 
STORAGE NOT USED BY PROGRAM- XXXXX TO XXXXX (OCTAL) 

XXXXX TO XXXXX (DECIMAL) 
8* INDEX REGISTERS USED BY THIS PROGRAM- XXXXXX 
6, 
7, ORIGIN LENGTH 


- -- 


LIN6 BCI 
BCI 

LINT BCI 
BCI 


6, 

8, OCTAL — DECIMAL OCTAL — DECIMAL 

6, 

8, 


FT125340 
FT125350 
FT125360 
FT125370 


■■- - - 


LIN8 BCI 

BCI 

dm BCI 

LINIO BCI 


9 f COMMON STORAGE XXXXX XXXXX 
5, XXXXX XXXXX 
3, TRANSFER VECTOR- 
8, 


FT125380 
FT125390 
FTI25400 
FT125410 




BCI 
LIN11 BCI 


9, 

9, OCTAL LOCATIONS OF NUMBERED STATEMENTS IN TEXT- 


FT125420 
FT125430 




LIN12 BCI 
BCI 


9, ST NO - LOC ST NO - LOC ST NO - LOC 
6, ST NO - LOC ST NO - LOC 


FT125440 
FT125450 
FT125460 
FT125470 
FT125480 
FT125490 
FT125500 
FT125510 
FT125520 
EFT125530 
FT125540 




LIN13 BCI 
LIN14 BCI , 


7, OCTAL LOCATIONS OF FORMAT STATEMENTS- 
OCTAL LOCATIONS OF NON-DIMENSIONED NON-COMMON VARIABLES- 




HN15 BCI 
BCI 


9, NAME - LOC NAME - LOC NAME - LOC 

6, NAME - LOC NAME - LOC 

9, OCTAL LOCATIONS OF DIMENSIONED NON-COMMON VARIABLES- 

9» OCTAL LOCATIONS OF NON-DIMENSIONED COMMON VARIABLES- 

9, OCTAL LOCATIONS OF DIMENSIONED COMMON VARIABLES- 

* * * SYMBOL TABLE (LABELLED STOOOOOO IN COLS. 73-80) PRI 

6, CEDES BINARY OBJECT DECK * * * 




LIN16 BCI 
LIN17 BCI 
I INI 8 BCI 
LIN19 BCI , 
BCI 





__ p S T "p A S S 2 " F l H l S H -— c 

THF FOLLOWING ROUTINE IS T EMPO RARY AND AUIMAnMLkY_ilMS __ 

-I- ^oItrSl back to The^MveT-TT the system input tape is not at 
i _ an end-of-file. .__ ...___ - . — — — ■ — — — - 

JrHIS WILL S0QN__BE REPL ACED WITH REGARP-ig-f^IRA N RESI P1NG_IN 
_ a monitor SYSTEM. 

SPACER 3 

TnuS'H"ZET MGNTOR 

TRA FIN3 

— ~~ """"ZET " ENFILF 

TRA FIN1 



FU2555G 
FT12556G 
FT 125570 
FT125580 
FT 125590 
FT125600 
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IF UNDER IU MONITOR, GO TO F I N 3 

X __ 

TRTliFTTEND-SF-F ILE 
YES, GO STOP 



10538 EQU 
BA CKR 

STL 

BRA _ 

MZE " 
EHD3Q REM 

TRA 
RJM 

REM 

1 539 EQU 
FIN1 WEOF 

F1N1 STL 



MINTAP,! 
IOEX 

_BACKRjL»*t2. 
MINTAP,,! 



QAfifcpAfP nvFR i AST RECORD (THIS WAS 



FT125610 
_FT125620 
FT125630 
FT125640 
FT125650 
FT125660 
FT 1256 70 
FT125680 



START 



♦MLSTAP 
IOEX 



ORIGINALLY READ TO HANDLE CON- 
TINUATION C ARDS. 



FT125690 

FT125700 

FTi 25710 

FT125720_ 

FTT25730 

FT12_5740 

FT125750 

FT125760 



WRITE" ENO-OF-F ILE ON OUTPUT TAPE 





BRA 


WE0F,,*+2 




MTW 


MLSTAP 


Ef4D39 


REM 




IUS40 


EQU 


* 




BACKR 


*MLSTAP, 1 




STL 


IOEX 




BRA 


BACKR,, *+2 




MTW 


MLSTAP,,! 



BACKSPACE "OVER 'THIS* FILE" MARK IN CASE 



OD40 REM 
REM 

SWT """ 
TRA 

"rrvcli £OH 

RCLOCK 

STL 

BRA 
t"ND41 REM 

REM 
ICS42 EQU 
FIN4 CLOSE 



6 

*+3 

* 



IOEX 
RCLOCK, ,»+! 



ANOTHER INPUT TAPE IS COMING AL ONG 
PRINTThT FINAL TIME IF SS 6 DOWN 



FT125770 
FT125780 
FT12579Q 
FT125800 
FT 1258 10 
FT125820 
FT125830 
FT125840 
FT 125850 
FT 125860 
FT125870 
JFT125880 
FT 125890 
FT125900 



PRINT THE TIME 



F1N4 



STL 
BRA 



MZE 
C^D42 REM 

10543 EQU 
CLOSE 
STL 
BRA 

"'" MTW 
END43 REM 

10544 EQU 

CLOSE 

STL 

BRA 
„__ ..._„_ .--^ 

LMD44 REM 



• 

MINTAP 

IOEX" 

CLOSE,, *+2 

MINTAP 

• 

•MLSTAP 
IOEX 

CLOSE, ,*+2 
MLSTAP 



♦SYSBIN 

IOEX 

CLOSE 9 , *+2 
SYSBIN 



CLOSE SYSTEM INPUT TAPE 



CLOSE SYSTEM _ qUTPUT_TAPE_ 



FT125910 
FT 125920 
FT125930 
FT125940 
FT125950 
FT125960 
FT125970 
FT125980 
FT125990 
FJ126Q00 
FT 1260 10 
FT126020 
FT126030 
FT126040 
FT 126050 
FT126060 
"Ft 1260 70 
FT126080 
FT 126090 
FJ126100 
Ft! 261 10 
FT126120 
FT 126 130 
FT126140 



I0S58 



EQU 
REWIND 



SYSUT1 



REWIf^D FAST RAN'S SCRATCH TAPE 



STL 
§&A 

MZE 



IOEX 

REWIND,, *+2 
SYSUTl 



THIS INSTRUCTION IS RE FERRING TO AN_IQS LO CATION***** 

~ CLEAR SYSUT1«S BUFTBL ENTRY 



suun 

L.MD58 



STZ 
BOOL 
REM 
REM 



NZT 
TRA 



BUUT1 
233 



MONTOR 
FIN2 



MERE WE UNDER IU MONITOR 



NO. 



IQS45 EQU 
LOAD 



LOAD IQS/FMS-II MONITOR 



STL 
BRA 



PZE 

MZE 



IOEX 
L QAD ,»*+3 

** 9 f 1 

10 



END45 



REM 

REM 



10546 
FIN2 

FIN2 



£r*D46 



5TART4 



FIN3 



... FOR 

EQU 

PRINT 

STL 

BRA 

MZE 

LDQ 
CAL 
HTR 
REM 
SPACE 

BCI 

SPACE 
LDJ_ 
IIR 
LFT 



NON-MONITOR OPERATION (SWITCH 5 UP) 



START4,4 
IOEX 

PRINT, ,*+2 
START4, ,4 

ALLSVN 
ALLSVN 
START 



4,0DISMOUNT 

3 

LASTLA 



GIVE OPERATOR DISMOUNT INSTRUCTIONS 



ARE LAMPS FN WORKING ORDER 



HALT... WITH RETURN TO INITIALIZATION 
SECTION IF THERE I_S_ANOTHER _D ATA TAPE. 



AND LIST A-5 



410000 
77 



FT12615G 
FT126160 
FT126I70 
FT126180 
FT126i90 
FT126200 
FT12621G 
FT126220 
FT126230 
FJT12624Q 
FT I 262 50 
FT126260 
FT 126270 
_FT 126280 
FT126290 
FT126300 
FT126310 
FJ126320 
FT 126330 
FU2634G_ 
FT126350 
FTJ26360„ 
FT 126370 
FT 1263 80 
FT126390 
FT126400 
FT 126410 
FT126420 
FT 126430 
FT126440 
FT126450 
FT 126460 
FT126470 
FT126480 
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I0S47 



END47 



TRA 


I0S47 


RNT 


770000 


TRA 


I0S38 


EQU 


# 


BACKR 


MINTAP,2 


STL 


IOEX 


BRA 


BACKR,, *+2 


MZE 


MINTAP, ,2 


REM 




TRA 


FIN4 



IS NEXT CARD A N IU MONITOR CC 

RETURN TCTmONITOR IFF NEXT CARD IS 
N0TJ5CD OR IF NEXT CARO_IS_AN IU/FMS 
CONTROL CARD (COL. 1 = 12-6-8) 



FT 126490 
FT126500 



ALLOW TaSTRAN TO RETAIN CONTROL 
PREPARE TO RETURN TO MONITOR 



FT126510 

f-r •% »* t e? *» /» 
r I l.£.OZt£.V 

FT 126530 
FT126540 
FT126550 
FTX26560 
FT126570 
FT126580 
FT126590 
FT126600 
FT126610 
FT126620 



TTL PO"S T PASS 2 - SUBROUTINES 

POST PASS. 2 HAS BU T ONE SIMPLE MINDED SU BROUTINE . IT IS _USED,.__ 

"DURING THE MAPPING" OF THE OBJECT PROGRAM AND IS USED TO RIGHT 
ADJUST A iPFJ-AnJUSTFn BCD SVMPOL IN THE ACCUMULATOR A ND INSERT 
LEADING BLANKS, 
SPACE 3 



RTJUST STI 
PAI 



IIR 
RNT 



TRA 
ARS 



ORA 

TO A 

RESET TOT 
TRA 



ERASE2 

17 
77 



SAVE INDICATORS 

PUT ARGUMENT IN TO INDICATORS 



"LOOK™ AT LOW ORDER CHARACTER 
IS IT A BLANK 



RESET 
6 



NO, GO EXIT THIS SUBROUTINE 
YES, MOVE 1 CHAR. T O RIGHT 



GARB2 
RTJUST+i 
ERASE2 
lt4 



AND PUT IN LEADING BLANK 
GO BACK FOR NEXT CHARACTER 



RESTORE INDICATORS 
FINAL SUBROUTINE EXIT 



FT126630 
FT 126640 
FT126650 
FT126660 
FT126670 
FT 126680 
"FT 126690 
FT126700 
FT126710 
FT 126720 
FT 126730 
FT126740 
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FT126750 
FT126760 



FT126770 
FT126780 





TTL 
REM 
REM 
REM 


UTILITY ROUTINES - LIST 
SYSTEM OUTPUT TAPE LISTER ~ LIST 

THIS ROUTINE IS USED TO WRITE LISTING OUTPUT ON THE 


FT126790 
FT126800 
FT126810 
FT126820 
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REM 

REM 

REM 

REM 

REM 

REM 
pf E H 

REM 
REM 
REM 


SYSTEM OUTPUT TAPE MLSTAP. PAGE TITLING AND LINE AND 
PAGE COUNTING IS HANDLED BY THIS ROUTINE. 


FT126830 
FT126840 




- 


CALLING SEQUENCE, 

TSX LIST, 4 
(OP) LOC,, COUNT 
(RETURN) 


FT126850 
FT126860 
FT126870 
FT126880 
FT126890 
FT126900 
FT 126910 
FT126920 


- 




WHERE, 






REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
"REM 
SPACE 
SXA 
CAL 
SLW 
ARS 

TXH 


LOC * ORIGIN OF MESSAGE TO GO ON MLSTAP 
COUNT = LENGTH OF MESSAGE (WORDS) 
(OP) = PZE IFF THIS LINE TO BE SINGLE SPACED 
= PON IFF THIS LINE TO BE DOUBLE SPACED 


FT126930 
FT126940 
FT 126950 
FT126960 






= PTW IFF PAGE EJECT BEFORE THIS LINE GOES OU 


TFT126970 
FT126980 
FT126990 
FT127000 
FT127010 
FT127020 
FT 1270 30 

DFT127040 
FT127050 
FT127060 
FT 1270 70 
FT127080 
FT127090 
FT127100 
FT127110 
FT127120 
FTI27130 
FT127140 






WHEN MLSTAP IS PRINTED, THE FIRST CHARACTER OF EACH 
MESSAGE IS PRINTED BEGINNING WITH PRINT POSITION SEVEN. 




— - 


IF LOCATION PRIQQ IS NON-ZERO THE MESSAGE GOES OUT 
ON-LINE AS WELL AS ON MLSTAP. ON-LINE PRINTING HAS 
FIRST CHARACTER OF THE MESSAGE IN PRINT POSITION ONE AN 
THUS PRINT CONTROL IS HANDLED BY THE USER. 

2 


- - — - - 






LIST 


EXLIST,4 SAVE XR4 FOR RETURN 

lt4 SET ACC TQ ARGUMENT 

LIS5 SAVE 1,4 IN TEMPORARY SAVE CELL 

15 BRING (OP) INTO DECREMENT 

,4 PUT (OP) IN XR4 

LIS11,4,2 GO GIVE ERROR MESSAGE IF INVALID (OP) 






TRA* 

REM 


LISTV,4 GO PROCESS THIS (OP) 




LIS1 


REM 

ncu 
i\tn 

LDQ 
CLA 


... SINGLE SPACE 

BLANKS SET WORD ONE TO BLANKS 
LIS7 GET CURRENT LINE COUNT 


FT 1271 50 
FT12716G 
FT127170 
FT127180 
Ft 1271 90 
FT127200 
FT127210 
FT127220 
FT127230 
FT127240 
FT127250 
FT127260 
FT 127270 
FT127280 
FT 12 7290 
FT127300 
FT127310 
FT127320 
FT127330 
FT127340 
FT127350 
FT127360 
FT127370 
FT127380 






ADD 
CAS 
TRA 
NOP 
STO 
STQ 
CLA 
PDX 
TIX 
STA 

SXD 

EQU 

WRITE 

STL 

BRA 

PTW 

PZE 

MZE 

REM 

HIT 


LIS6,4 BUMP BY PROPER AMOUNT 
LPERPG LPERPG = MAX* LINES PER PA££ 
LIS4 GO TO LIS4 IF THIS WON'T FIT 

O.K. 




LIS2 


LIST O.K., RESTORE LINE COUNT 
LIS9 STORE FIRST WORD 






LIS5 GET ARGUMENT 

,4 TAKE COUNT MOD 21 






*,4,21 X 

»+6 SET-UP WRITE MACRO 




1LS48 


*+5,4 X 

• 






♦MLSTAP, DEC, LIS9,1,..,.. WRITE THIS MESSAGE 
IOEX 

WRITE,, *+4 
MLSTAP,, DEC 






LIS9,,1 

** j y •« 




LND4 8 


PRIOO IS ON-LINE LISTING REQUESTED 







TRA 
LDQ 
STQ 
EQU 

t*t\ g, vi 1 

STL 


EXLIST NO, EXIT THE SCENE 
*~3 SET-UP PRINT MACRO 


FT127390 
FT127400 
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IUS49 


«+3 X 

* 


FT127410 
FT127420 






..,.. PRINT THIS MESSAGE ON-LINE 
IOEX 


FT127430 
FT127440 
FT127450 
FT127460 
FT127470 
FT127480 
FT 127490 
FT127500 
FT127510 
FT127520 
FT127530 
FT127540 
Ft 127 5 50 
FT127560 
FT127570 
FT127580 
FT127590 
FT127600 






BRA 
MZE 


PRINT, ,*+2 




EHD49 
FXLIST 


REM 
AXT 


•.,4 RESTORE XR4 FOR RETURN 






TRA 

REM 


2,4 DEPART 






REM 
REM 


... DOUBLE SPACE 




LIS3 


LDQ 
TRA 


LISIO SET FIRST CHARACTER OF LINE TO ZERO 
LIS1+1 GO PUT THIS LINE OUT 






REM 
REM 


... EJECT 




LIS4 


REM 
CAL 
SLW 
SXA 


=3 RESET LINE COUNT TO 3 (START PRINTING 






LIS7 SOURCE LISTING ON 3RD LINE OF PAGE). 
LIS1X,4 SAVE XR4 






CLA 
ADD 


LIS8 BUMP PAGE COUNT BY ONE 
= 1 X 


FT127610 
FT127620 
FT127630 
FT127640 
FT127650 
FT127660 
FT 127670 
FT127680 
FT127690 
FT127700 
FT127710 
FT127720 






STO 
TSX 
LDG 
LGL 
SLW 
EQU 


LIS8 X 

BINBCD.4 CONVERT PAGE COUNT TO BCD 

BLANKS TRAILING BLANKS FOR PAGE COUNT 

24 








IOS50 


TITLE+18 

* 






WRITE 
STL 

BRA 
PTW 

"'"MZE""""" " 
REM 


•MLSTAP, DEC, TITLE, 19 
IOEX 






WRITE, ,*+3 
MLSTAP. .DEC 




EMD50 


TITLE, ,19 


FT127730 
FT127740 






REM 
NZT 




FT127750 

CT1 ->77tn 
1 * A t i ( «-» v# 




I0S51 


TRA 

EQU 

WRITE 

ST4, 

BRA 

PTW 

MZE 

REM 

CAL 

SLW 

REM 

EQU 

WRITE 

STL 

BRA 

PTW 

MZE 

REM 

NZT 

TRA 

EQU 

PRINT 


LIS12 NO 

* 


FT127770 
FT127780 
FT 127 790 
FT12J.800 
FT127810 
FT127820 
FTl 27830 
FT127840 
FT127850 
FT127860 
FT127870 
FT127880 
FT127890 
FT127900 
FT 127910 
FT127920 
FT127930 
FT127940 
FT 1279 50 
FT127960 
FT127970 
FT127980 




--l—L^Z^—.. 


#MLSfAF,bEC,SU8TrL,15 WRITE THE SUBTITLE 
IOEX 

WRITE,, *+3 
MLSTAP,, DEC 




_ END 51. 


SUBTTL,,15 

=4 " SET LINE COUNT TO 4 INSTEAD OF 3. 
LIS7 




IOS52 
LIS12 
LIS12 


* 

♦MLSTAP, DEC, BLANKS, 1 

IOEX 




E?^052 


WRITE, ,*+3 
MLSTAP,, DEC 
BLANKS,, 1 




1GS53 


PRIQQ is ON-LINE LISTING REQUESTED 

LIS1X NO , EX JT THIS SECT I ON 

• 

TITLE, 20, BLANKS,! EJECT, TITLE AND SKIP ON-LINE 





STL 

8RA 


IOEX 
PRINT,, *+3 


FT127990 
FT128000 
FT128010 
FT128020 
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P2E 
HZE 


TITLE, ,20 
BLANKS,, 1 




END53 REM 
L1S1X AXT 


..,4 RESTORE XR4 


FT128030 
FT128040 
FT128050 
FT128060 
FT128070 
FT128080 
FT 128090 
FT128100 




LOQ 
TRA 
SPACE 
LIS5 


BLANKS PREPARE FOR SINGLE SPACE 

LIS2 GO PUT OUT THE ORIGINAL MESSAGE 

2 




LIS6 


2 

I 




LIS7 

LIS8 
LIS9 

LlSld" BCI 


CURRENT LINE COUNT 
CURRENT PAGE COUNT 

1,0 
LIS4 


FT128110 
FT128120 
FT128130 
FT128140 
FT128150 
FT128160 
FT128170 
FT128180 
FT128190 
FT128200 


- - 


LISTV 


LIS3 
LIS1 




LPERPG PZE 
REM 


59 ALLOWABLE LINES PER PAGE OF OUTPUT 




REM 
REM 


... TO HANDLE INVALID (OP) 


FT128210 
FT128220 
FT128230 




LIS11 MACER 


MACHINE ERROR 





TTL 
REM 



REM 
REM 
REM" 
REM 



REM 
REM 
REM 
REM 
REM 
REM 



REM 

_ R EM 

REM 

REM 



REM 
REM 
REM 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



REM 
REM 
REM 
REM 



REM 
REM 



SORT 



SRT1 



SRT2 



U T I L I 



TY ROUTINES - SOR 
HIGH-SPEED TABLE SORT 



THIS ROUTINE CAN BE USED TO SORT 1- OR 2-ELEM ENT 
TABLES (WITH ELEMENT 1 OR 2 BEING THE KEY)* 
IN ASCEN DING OR DESCENDING SEQ UENCE, LOGIC AL 
OR ALGEBRAIC. 

CALLING SEQUENCE, 



CALL SORT (A, B, I, J, K y L, M) 



WHERE 



A - LOCATION OF 



I 



= LOCATION OF LAST 
= NO. ELEMENTS PER 



FIRST KEY 
KEY 



(LOW CORE) 



(HIGH CORE) 
TABLE ENTRY (1 OR 



2) 



j = ELEMENT WHICH IS KEY ( 1 OR 2) 

K = FOR ASCENDING, 1 FOR DESCE NDING 

X~= "cTfqr Logical, i for algebraic sort 

M = LOCATION OF 'MASK 1 - ZERO IMP LIES NO MASKING 



FT12824G 
FT128250 
FT128260 
FT 12 8270 
FT 128280 
FT128290 
Fti28300 
FT128310 
FT128320 
FT128330 
FT128346 
FT128350 
FT128360 
FT128370 
FT1 28380 
FT128390 
FTi28400 
FT128410 
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THE ARGUMENT »M* MAY BE OMITTED FROM 
THE CALLING SEQUENCE. 



# 



# NOTE »** 
THIS SORT ROUTINE HAS 
SPACE) TO HANDLE THE 



BEEN SPECIALIZED (TO CONSERVE 



CASE WHERE, 



I = 1 
J = 1 

K~"0 
L = 
M = 



(1 ELEMENT/ENTRY) 
I * E Y IS ELEME NTJJ. 
(ASCENDING SORT) 
(LOGICAL SORT) 



(NO MASKING) 



THI= J^l l .JJ!g-^ggy.g-^ E T0 THIS SPECIALIZED VE RSION IS, 
CALL SORT, A, 8 



♦ # * 



NOTE 



* * ♦ 



REM 




SXA 


EXSORT-3,1 


SXA 


EXSORT-2,2 


SXA 


EXSeRT-1,4 


CAL 


1,4 


PAX 


0,1 


SXD 


SRT1,1 


SXD 


SRT1Q.1 


SXA 


SRT18,1 


SXA 


SRT19,1 


SXA 


SRT21,1 


PAC 


,1 


SXD 


SRT2,1 


AXT 


1,1 


REM 




TXI 


*+l»l,*» 


SXA 


SRT22.1 


SXA 


SRT25,1 


CAL 


2,4 


PAX 


0,1 


TXI 


•+1,1, .. 


txl 


EXSORT-3,1,0 



FT128420 
FT128430 



FT128440 
FT128450 
FT 12 8460 
FT128470 
FT 128480 
FT 128490 
FT128500 
FT128510 
FT128520 
FT128530 
FT128540 
FT128550 
FT128560 
FT12857£ 
Tf 128580 
FT128590 



FT 128600 



FT128620 
FT128630 
FT 128640 

.FT 120650 
FT128660 
FT12867G 
FT 128680 
FT128690 
FT 128700 
FT12871C 

"Ft 128720 
FT128730 



FT128740 
FT128750 
FT 128760 
FT128770 
FT128780 
FT128790 
FT1288Q0 
FT128810 
FT128820 
FT128830 



SXA 
AXT 



SRT12,1 
1,2 



SRT36 
SRT3 

" SRT9 



AXT 
TXI 
SXA 

SXCL 
CLA 
ARS 
ALS 
_STO_ 
fZE 
PAC 



1,4 




*+l,l, 


1 


SRT31, 


1 


SRT29, 


2 


SRT31 




2,4 




1,4 




SRT31 





SXD 



EXSORT-3 

0,1__ 
SRT13,1 



PAX 
SXD 



SRT10 



SRT11 



SRT12 
SRT13 



TXI 
SXA 
SXA 
NOP 
TXH 
TXI 
SXA 
SXA 
REM 
AXT 



SRT15 
SRT16 

SRT17 
SRT18 



TXI 
SXD 
AXT 
PXA 
PAC 
CAL 
LAS 
TRA 



TRA 
REM 



SRT19 
SRT20 
SRf21 



SRT72 
SRf23 
SRT24 
SRT25 

"SRT26 
SRT27 
SRT28 

SRT29 
SRT3Q 

SRT31 



EX SORT 



LOQ 

SLW 

TXH 
REM 
CAL 
LOQ 
SLW 
STQ 
_REM 
TXL 
TXH 
TXI 
REM 
TXI 
TXH 
TRA 

REM 
AXT 
AXT 
AXT 
TRA 



0,1 
SRT28,1 



•+ 1 1 1 , 

SRJJLja 

SRT20,1 



#* 



SRT12,4,0 
*+l,l,l 
SRT23, 1 
SRT24,1 

*»»JL 

*+i t i»** 

SRT30, 1 
0,1 
0,1 
0,2 

m * f 2. 

• • , C 

J>RT2jL^ 
SRT29 ™ 

»*,2 

•*,2 



• • 1 2 

SRT26,4,0 

«»,2 
*«,2 
**,2 



SRT29,2,0 

SRT29,2,»* 

SRT17,2,** 

»+l,l,*» 

SRT9,1,»* 

SRT16 



•*,1 

'*"»", 2 
**,4 
3T,4 



FT128840 

FT12885G_ 

FT128860 

FT128JJ0 

FT128886 

FT 128890 

FT128900 

FT128910 
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FT128920 
FT128930 



FT128940 
FT128950 
FT128960 
FT128970 



FT128980 
F_T128990 
FT 129000 
FT 1290 10 
FT129020 
FT129030 
FT129040 
FT129050 
FT 129060 
FT129070 
FT129080 
FT129090 
FT129100 
FT129110 
FT129120 
FT129130 
FT129140 
FT129150 
FT129160 
FT129170 
-pf 129180 
FT129190 



FT129200 
FT 1292 10 
FT129220 
FT129230 
FT 129240 
FTt29250 
FT129260 
FT129270 
FT129280 
FT129290 
FT129300 
FT129310 
FT129320 
FT129330 
FT129340 
FT129350 
FT129360 
FT129370 
FT129380 
FT129390 
FT 129400 
FT 1294 10 
Ff 129420 



TTL U T I L I T 
THIS ROUTINE IS USE 



V — *H fl R T 1 

D BY P S T (PUNCH SYMB OL TABLE) AND 



SPECIALIZES ROUTINE 
SECOND ELEMENT THE 



ITS ORIGINAL STATE. 
JUEM 

CALL SORTl,A,B 
REM 
WHERE t 

A = LOCATION OF 



S'T'R T FOR A DESCENDING 2-ELEMENT SORT WITH 
KEY. AT END, S R T 1 RESTORES SORT TO 
CALL I NG SEQUENCE t * 



B = LOCATION OF 
SPACE 3 



FIRST KEY 
LAST KEY 



SORT1 



SXA 
AXT 



SXD 

ML 

SXA 
AXT 



SXA 
AXT 



SXA 
SXD 
AXT 
CAL 



SLW 
CAL 
SLW 
TIX 



REM 
CAL 
SLW 
CAL 



SLW 
CALL 



REM 
AXT 



SXA 

SXD 



EXSRT1 



1SRT1 



EXSRT1,4 



SRT36 f l 

Ojl_._ 

SRT36~-1 § 1 

SRT36-2,1 
-1,1 



SRTl-1,1 
SRT11*1 

3,1 

1SRT 1+3,1 

SRT 1-3,1 
1SRT2+3,1 
SRT1 0+4,1 
*-4,l,l 

1 ,4 ___ 

*+4 

2,4 



•+3 

SORT ,*•,•• 

1,1 



SRTl-1,1 
SRT36.1 



SXD 
SXA 
SXA 
AXT 
CAL 
SLW 
CAL 
SLW 

fix 

REM 

AXT 

TRA 

SPACE 

SXA 

SXA 

NOP 



SRT11,1 

SRT36-1,! 

SRT36-2V1" 

3 1 

lSRT2+3,i 

SRTl-3,1 

1SRT1+3,1 

SRJ1J0±4,J 

»-/T,l,l 

..,4 

3,4 

2 

SRT17,1 

SRT20,1 



ISRT2 



SXA 
SXA 
SXA 



SRT18,1 
SRT19,1 
SRT21/1 



SAVE XR4 FOR RETURN 

SET UP^ FOR 2-EL EMENT TABLE ENTRI ES 

x 



FT129430 

FT 129440 

FT129450 

FT129460 

FT 129470 

FT129480 

FT 129490 

FT129500 

FT129510 

FT129520 

FT129530 

FT129540 

FT12955G 

FJ12956G 

FT1 29570 

FT129580 

FT 129590 

FT129600 
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SET UP FOR KEY AS SECOND ELEMENT 



"SET UP FOR DESCENDING SORT 

_X 

X 

X . _. 

X 

X __ _ _.„_____ 

PREPARE TO GO TO S RJL 

X 

X 

X 



AT END OF SORT, RESTOR E SORT 



FT129610 
FT1 29620 
FT129630 
FT 129640 
FTl 29650 
FT129660 
FT 129670 
FT129680 
FT 129690 
FT 129700 
FT129710 
FT129720 
FT 129730 
FT 129740 
FT129750 
FT129760 
FT129770 
FT129 780 
FT129790 



X 

X 
X 
X 
X 
X 



RESTORE XR4 FOR FINAL RETURN 
EXIT S R T 1 



FT129810 
FT129820 
FT 129830 
FT129B40 
FT129850 
FT129860 
FT129870 
FT129880 
FT129890 
FT129900 
FT 1299 10 
FT129920 
FT129930 
FT129940 
FT 1299 50 
FT129960 
FT129970 
FT129980 
FT 129990 



TTL 


UTILITY ROUTINES - 8CDFIX 


FT130000 


PA 


REM 


BCD-TO-DECREMENT BINARY INTEGER BCDFIX 


FT130010 
FT 130020 




REM 






REM 




FT130030 
FT 130040 


„,. ._ 


REM 


THIS SUBROUTINE CONVERTS THE BCD INTEGER IN ACC (P, 1-35 3 




REM 


TO A DECREMENT BINARY INTEGER. THE BCD INTEGER IN THE 


FT130050 




REM 


ACCUMULATOR IS LEFT-JUSTIFIED WITH TRAILING BLANKS. 


FT130060 




REM 


THE RESULTING BINARY INTEGER IS PLACED IN ACC (1-17) 
ON EXIT FROM BCDFIX. 


FT130070 
FT130080 




REM 




REM 




FT130090 
FT 130 100 




REM 


CALLING SEQUENCE, 




REM 


. 


FT130110 
FT130120 




REM 


. 




RFM 


. 


FT130130 
FT130140 




REM 


CAL (ARGUMENT) 




REM 


TSX BCDFIX, 4 


FT130150 
FT130160 




REM 


(RETURN) 




REM 


. 


FT130170 




REM 


* 


FT130180 




REM 


• 


FT130190 
FT130200 




SPACE 


2 




8C0FIX SXA 


EXBDFX,4 SAVE XR4 


FT130210 




XCL 


PUT ARGUMENT IN MQ 


FT 130220 




AXT 


6,4 SET CHARACTER COUNTER 


FT130230 
FT130240 




STZ 


BCDF3 INITIALIZE RESULT TO ZERO 




BCDF1 ZAC 


CLEAR ACCUMULATOR FOR NEXT DIGIT 


FT130250 
FT130260 




TQP 


BCDF2 IF NEXT CHAR. NUMERIC GO TO BCDF2 




CLA 


BCDF3 OTHERWISE GET RESULT 


FT130270 




ALS 


18 AND SHIFT IT INTO ACC (1-17) 


FT130280 




TXBDFX AXT 


..,4 AND RESTORE XR4 


FT130290 




TRA 


1,4 AND EXIT 


FT130300 




REM 




FT130310 
FT130320 




REM 


... THE FOLLOWING INSTRUCTIONS GENERATE THE BINARY 




REM 


RESULT DIGIT-BY-DIGIT. 


FT130330 
FT130340 




REM 






BC0F2 LGL 


6 SAVE NEXT DIGIT IN BCDF4 


FT130350 




STO 


BCDF4 X 


FT130360 




CLA 


BCDF3 GET ACCUMULATED RfcSULI SU hAK 


FT130370 




ALS 


2 MULTIPLY ACCUMULATED RESULT BY 10 


FT 130380 




ADO 


BCDF3 X 


FT130390 
FTl 30400 





ALS 


1 X 




ADO 


BC0F4 ADD THE NEW DIGIT 


FT130410 




STO 


BCDF3 STORE AS NEW ACCUMULATED RESULT 


FT130420 




TIX 


BCDF1,4,1 GO GET NEXT CHARACTER 


FTl 30430 




TRA 


6CDF1+2 RETURN TO CALLER 


FTl 30440 




BC0F3 




FT130450 
FT130460 




BCDF4 
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TTL 
REM 


UTILITY ROUTINES - BINBCD 
BINARY (INTEGER) TO BCD, LESS THAN 1,000,000 CIO) 
ENTRY... TSX BINBCD, 4 NUMBER IN 21-35 ACC 

_ _ ______ ,_ RETURN^ 

EXITc*o ANSWER IN AC WITH LEADING BLANKS 


FT130470 
FT13048O 
FT130490 
FT130500 
Ffl305l6 
FT130520 
FT130530 
FT130540 
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REM 
REM 

"~ "---REJiij" 

REM 




BINBCD LDQ 
TIE 


=0 
BX1 




LRS 


6 
=100000, ,6 


FT130550 
FT130560 
FT 136570 
FT130580 
FT130590 
FT130600 




VDP 
VDP 


=100G0B29,,6 
=1000823,, 6 




VDP 
VDP 


=100B17»#6 
»10B11*»6 




VDP 
SXA 


=1B5,,6 

BX,4 FIX TO READ LEADING BLANKS 


FT130610 
FT130620 




AXT 

TNZ 


0,4 
*+3 


FT130630 
FT130640 




LGL 
TXI 


6 
♦-2,4,6 


FT130650 
FT130660 




ORA 
LGL 


=H 
36,4 


FT130670 
FT130680 




BX AXT 
TRA 


**,4 
1,4 


FT130690 
FT130700 




iiXl CAL 
TRA 


=H IF ZERO 
1,4 


FT130710 
FT130720 





TTL 

REH 



U T I L I T Y ROUTINES - OCTBCO 

OCTAL TO BCD CO NVERSION 



REH 
GCTBCO SXA 
AXT 
LGR 



OCTX 



2AC 
ALS 
LGL 
TIX 
TZE 
LGR 



AXT 



LGL 
TXI 



ORA 
LGL 



ALS 
ORA 



AXT 
TRA 
REH 
OCTY CAL 
TRA 



QCTX,4 

5,4 

15 



OCTAL TO BCD, 



ANSWER AHS TRAILING BLANK 



3 
3 

»-2,4,l 

OCTY 

36 



0,4 
*+3 

6 " 

*-2,4,6 



36,4 
6 

=H00000 







**,4 
1,4 



RESTORE INDEX REGISTER 
AND EXIT 



=H 
OCTX 



FT 130730 
FT 130740 
FT130750 
FT 130760 
Fti30770 
FT 130780 
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FT130790 
FT130800 
FT130810 
FT 130820 
FT 130830 
FT130840 
FT 130850 
FT130860 
FT1 30870 
FT130»880 
FT1 30890 
FT1 30900 
FT130910 
FT130920 



FT13093G 
FT 130940 
FT130950 
J=T130960 
FT 130970 



TTL 

MM 

REM 

REM 
REM 
REM 



REM 

RE?i 

CINSTR SXA 

SXA 



AXT 
AXT 



ALS 
LGL 
TIX 
SLJrf 
TIX 
XCL 



CINX 



CIN1 



CAL 

ML 

AXT 

BSS 



UTILITY 



ROUTINES 
- CINSTR - 



- CINSTR 



ROUTINE TO CONVERT 12 DIGIT OCTAL NUMBER TO BCD 
NO BLANKS ANYWHERE 



ENTRY... 



LDQ 
TSX 



RETURN 
ANSWER IN A C,MQ IN BCD 
CINX, 1 
CINX+1,2 



OCTAL. NUMBER 
CINSTR, 4 

{ LOGICAL) 



2,1 
6,2 



*-2,2t 1 

CINl+2,1 

*~5,l,i 



CIN1 
**, 1 
**,2 
1*4 



FT130980 
FT13099G 
Ffl31000 
FT131010 
"FT131020 
FT 131 030 
FT131046 
FT1 31Q50 
FT131G60 
FT131070 
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FT131080 
FT 131090 
FT 131 100 
FT131110 



FT131120 
FT13113G 
FT 13 1140 
FT131150 
FT131160 
FT131170 



FT131180 
FT131190 



FT131200 



TTL 
STASH SXA 


UTILITY 
XSTASH, 1 
XSTASH+1,2 
XSTASH+2,4 


ROUTINES - STASH 
SAVE XR«S 


FT131210 
FT131220 


SXA 
SXA 


X 
X 


FT131230 
FT131240 


AXT 
SXA 


* + 3,l 
EXSTSH,1 


SET-UP 2STASH FOR RETURN 
X 


FT131250 
FT131260 


TRA 
SPACE 
AXT 
SXA 


2STASH 

3 

GETFLGti 

EXSTSH,! 

• • 1 1 

..t2 

..»4 

lt4 


GO STASH THIS CARD 

RESET 2STASH 
X 


FT131270 
FT131280 
FT131290 
FT131300 


XSTASH AXT 
AXT 


RESTORE XR'S 

X 


FT131310 
FT131320 


AXT 
TRA 


X 
RETURN 


FT131330 
FT131340 
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TTL ERROR PROCESSOR - ERROR 


FT131350 


PAGE 34* 


* 


CONTROL IS GIVEN TO THIS ROUTINE ON EXECUTION OF ANY E R R R 


FT131360 




* 


MACRO. THIS ROUTINE WILL OUTPUT THE INDICATED DIAGNOSTIC ALONG 


FT131370 




* 


WITH THE LOCATION OF THE ERROR MACRO IN QUESTION. ON THE 


FT131380 
FT131390 




* 


FIRST ENTRY TO THIS ROUTINE AN ON-LINE MESSAGE IS PRINTED 




* 


INDICATING THAT A SOURCE ERROR WAS ENCOUNTERED DURING 


FT131400 




* 


COMPILATION. 


FT131410 






REM 


FT131420 




* 


STANDARD COMMUNICATION IS VIA THE ERROR MACRO... 


FT131430 




* 


ERROR XX, YY WHICH IS EQUIVALENT TO 


FT131440 
FT 131450 




# 


STR FORM»XX,,YY 




* 


WHERE FORM'XX IDENTIFIES THE PERTINENT ERROR MESSAGE TO 


FT131460 




* 


BE OUTPUT, AND YY GIVES THE POINT OF RETURN AFTER THE 


FT131470 




* 


ERROR MESSAGE HAS BEEN ISSUED. 


FT131480 






REM 


FT131490 




* 


THE ERROR MESSAGES HANDLED BY THIS ROUTINE MUST NOT EXCEED 


FT131500 
FT131510 




* 


19 WORDS IN LENGTH. THE WORD PRECEEDING THE MESSAGE 




* 


(I.E. THE WORD SPECIFIED BY THE ADDRESS. FIELD-1 OF THE STR) 


FT131520 




* 


MUST HAVE THE NUMBER OF WORDS IN THE ERROR MESSAGE (ADDRESS 


FT131530 




* 


INTEGER). 


FT131540 






REM 


FT131550 




♦ 


THE ENTRY INTO THE ERROR ROUTINE (CELL 2) IS SET DURING THE 


FT131560 




s 


PRE-INITIALIZATION SECTION OF THE COMPILER. 


FT131570 






SPACE 3 


FT131580 
FT131590 




ERROR 


TRA *+l STR ENTRY. SET DURING PRE-INITIALIZATION 






SXA ERRS, 4 


FT131600 
FT131610 






CAL GET TRAPPED LOCATION 






SUB =1 


FT131620 
FT131630 






STA *+l 




cRR2 


CAL ** GET INFORMATION WORD 


FT131640 

FT131650 






PDX ,4 






rXH *+2,4,Q GU TO MACHINE ERROR IF NO RETURN ADDRESS 


FT13166Q 






AXT L0AD4,4 


FT131670 






SXA EREX,4 


FT131680 
FT 131690 






SUB =1 






STA ERR7 


FT131700 






STA *+l 


FT131710 






CAM »»,*t- UC» LUUI1 1 


FT131720 






PXA ,4 


FT131730 






TXI *+l,4,3 


FT131740 






SXD ERR4,4 


FT131750 






PAC ,4 


FT13J.760 






SXD ERR8,4 


FT131770 






AXC 1,4 


FT131780 
FT131790 




.ERR 7 


LDQ **,4 






STQ HISS+2,4 


FT131800 
FT 131810 




ERRS 


TXL *+2,4,»* 






TXI *-3,4,-l 


FT131820 
FT131830 






REM 






LXA ERR2,4 


FT131840 
FT131850 






PXA ,4 






TSX 0CTBCD,4 


FT131860 






SLW HISS+1 


FT131870 






TSX LIST, 4 


FT131880 




ERR4 


HISS,,** 


FT131890 






STL ERHERE FLAG FOR ERROR IN CURRENT STATEMENT 


FT131900 




ERR1 


ZET NOCODE HAS • NO EXECUTION* BEEN NOTED YET. 


FT131910 






TRA ERR5 YES 


FT131920 
FT131930 






CAL SBNAME GET NAME OF ROUTINE 






TNZ *+2 SKIP IF IT IS A SUBPROGRAM 


FT131940 





CAL 
SLW_ 
LOI 
SIR 



=HMAIN 
SCER+3 



GET 'MAIN* LABEL 
PUT IN ERROR MESSAGE 



I0S54 



STI 



LND54 

IOS55 



ND55 



RR5 



EREX 



LC3A04 

I0S56 



HISS 



PRINT 

STL 

BRA 

REM 
EQU 
PRINT 
STL 



BRA 

M2E 



REM 
REM 
STL 
AXT 



TRA 

REM 



EQU 

EQU 

PRINT 

STL 

BRA 

M2E 



zuDi>6 


REM 


I0S57 


EQU 




PRINT 




STL 




BRA 




MZE 


FND57 


REM 




HTR 




REM 


EJECT 


BCI 



BCI 
BSS 
REM 



PRGBOX 

4 

PRGBOX 



TURN ON 'ERROR IN PROCESSOR* BIT 



SCER,6 

IQEX_ 

PRINT,,*+2 

SCER,,6 



ST0MP2 V 1 
IOEX 



PRINT, ,*+2 
STDMP2»,1 



NOCODE 

**»4 

#* 



SET «NO EXECUTION" FLAG ON 



QQ,5 
IOEX 

PRINT,,*+2 
QQtt 5 



EJECT, 1 

IOEX 



PRINT,, *+2 
EJECT,,! 



3, 
19 



•**« 



*»*** 



FT131950 
_FT 131960 
FT131970 
FT131980 
FT 13 1990 
FT132000 
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FT132010 
FT132020 
FT132030 
FJ 132040 
FT132050 
FT132060 
FT 132070 
FT132080 
FT 132090 
FT132100 
FT13211G 

_FT132120 
FT132130 

_FT132_140 
FT132150 
FT132 160 
FT13217G 
FT132180 
FT132190 
FT13220C 
FT132210 
FT132220 
FT 132230 
FT132240 
FT 1322 50 
FT1 3226 Q 
FT 1322 70 
FT132280 
FT132290 
FT132300 



FT132310 

r"r t ""» ""* <■* *> t\ 

r i ldcj>_c\j 
FT 132 3 30 
FT 132340 
FT132350 



EJECT 

ERROR TRANSFER CELLS 



RRORl ERROR 
:RROR3 "ERROR 
RROR5 ERROR 



RRGR7 ERROR 
:RROR8 ERROR 
RROll ERROR 
:RRQ15 ERROR 
RR017 ERROR 
RR018 ERROR 



RR071 ERROR 
RR079 ERROR 



1, SKEND 
3,SKEND 
5, SKEND 



7, SKEND 
8 t SKEND 
11, SKEND 
15,SKEND^ 
17, SKEND 
18, SKEND 



71, SKEND 
79,SKEND 



FT 132360 
FT132370 
FT1 32380 
FT132390 
FT132400 
FT132410 
FT1 32420 
JFJ 132430 
FT132440 
FT132450 
FT13T460 
FT132470 
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FT132480 
FT132490 



TTL ~~ E~r"r'0"R~> ROCESSOR - E R R G R Y 
THIS ROUTINE IS EN TERED WHEN EVER A N ERROR Y_MACRQ IS 



EXECUTED. THE ONLY MACROS OF THIS TYPE RESIDE IN S Y P A S S 
THE_ HACRGL.E R_R_0_ R Y CAUSES THE FOLLOWING INSTRUCTIO N, T_Q_BE_ 
"GENERATED."'" " 

REM 



TSX ERR0RY,4,FLAG 



REM 

nru 

THIS ROUTINE EXAMINES F L A~~G TO~DET ERMINE HfHE SPECIFIC ERROR 

ENCOUNTE RED ACCORDING T O THE FO LLOWING, „ . _ 

"REM* ~" 



REM 
REM 
REM 
REM 
REM 



FLAG = 
FLAG = 1 
F! AG s 2 



UNDEFINED ST ATEMEN T LABEL 
UNDEFINED STATEMENT STRING 
UNDEFINED STATEMENT VARIABLE 



FLAG = 3 

FLAG = GREATER THAN 3 



STATEMENT WITH NO PATH OF FLOW 
INVALID E Q U I V ENTRY 



REM 

FOR FLAG THRU 3 THE nFFFNDlNG^YMBOL IS DUMPED INTO A POOL 



OF OTHER SIMILARLY OFFENDING SYMBOLS (UP TO A MAXIMUM OF 24 OF 

EACHK_ THESE SYMBOL S ARE LATER DUMPED O NTO M L S T A P IN 

ROUT I NE U T UN D . 
REM 



FT132500 
FT132510 
FT 132 520 
FT132530 
Ft 132540 
FT132550 
FT 132560 
FT132570 
FT132580 
FT132590 
FT132600 
FT132610 
FT 132620 
FT132630 
FT132640 
FT132650 
FT 132660 
FT132670 
FT132680 
FT132690 
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"pQ^jFL^QS GREATER THAN 3 THE DIAGNOSTICt 

REM ...__ 

REM 
REM 



XXXXXX HAS AN INVALID EQUIV MODE 



IS OUTPUT <XXXXXX = OFFENDING SYMBOL). 



REM 



IN ANY CASE, CONTROL ™IS RETURNED TO ST YT A S S FOR CONTINUED 



RRURY 



S Y M 

SPACE 

RIL 

SIL 

STI 



/EQUIV TESTING. 



LDQ 
CAL 



ANA 
PDX 



A 

3 

700000 __ 

400000 

EQUIV,! __ 

SYMTABf 1 

0,_4 

=077000000 

♦ 2 



SET PREFIX^ TO 4 

x 

X 



ERRY1 



TXH 

J* LA L _ 
PDX 

TXH 

STQ» 

TXI 

PXD 
STD 
TRA 

REM 
STQ 
ERROR 

"REM 



ERRY1,2,3 
TBUND,2 



TBUND 



,4 

SPAS SI, 4* 23 

TBUN0,2 

*+l,4,l 

t4 

TBUND, 2 

SPASS1 

F0RM39 
39, SPAS SI 

N0PTH,4,.. 
UNVAR*4,.. 
UNSTR,4^.. 
UN LB L, 4, .. 



FT132700 

FT 13 2.1 10 

FT 132720 

FT 132730 

FT 132740 

FT132750 

FT132760 

FT132770 

FT 132780 

FT132790 

FT132800 

FT132B10 

FT 132820 

FT132830 

FT132840 

FT13285Q 

FT132860 

r iU£o f v 

FT 132880 

FT132890 

FT132900 

FT 1329 10 

FT132920 

FT132930 

FTT32940 

FJ132950 

FT132960 

FT132970 

FT13298G 

FT132990 

FU 33000 

FT133010 

FT133020 

FT133030 

FT133040 



TTL " lA G N "0 "S TIC MESSAGES 

THESE MESSAGES, A^_OUTPUI_ON J? JL S_T _A_P-BY _IHE_EXECU T I ON OF„AN 



ETR OR MACRO; TO OUTPUT THE MESSAGE FORM<XX), THE FOLLOWING 

JMACRO IS EXECUTED, .___ _ . ____--__ — ■ -— ~ -■ 

REM 

REM ERRO R <XX ) f R ETURN _ _ 

c p A f* f- "} 

AFTER THE MESSAGE IS_OUT, CONTROL IS GI VEN TO 'RETURN* IF .IT_1S 
NON-ZERO, OTHERWISE" A CATASTROPHIC MESSAGE IS PRINTED ON-LINE 
AND THE COMPILER STOPS. 



SPACE 



F0RM2 BCI 
FORM 3 BCI 



F0RM4 BCI 



FORMS BCI 

FQRM6 BCI 

FORM? BCI 



FORMS BCI 
FUKM9 BCI 
FURMIO BCI 



FORM11 BCI 
F0RM12 BCI 



F0RM20 BCI 

FORM21 BCI 
BCI 



4 f INVALID STA TEMENT NUMBER 

4 

*.» ZBM p J LER EXPECT S COMMA 

T""* 
6 .COMPILER JEXPECT S END OF STATEMENT 

5~ " 

5, COMPILER EXPECTS OC TAL NUMBER 

"3"" " 

3,IMPROPER DIGIT 

6 ~ 

6 L ST ATE MENT M AY TRANSF £R TO ITSELF... 

5 t INVALID FORM OF STATEMENT 

"4" " " " 

Jt INVALID VARIABLE NAME _ „__ 

4' "" " 

4»C0MPILER EXPECTS PAREN 

5 

5, SUBPROGRAM MAY NOT CALL ITSELF 



FT133050 
FT13306G 
FT13307G 
FT133080 
FT13309(3 
FT13310C 
FT133110 
FT133120 
FT133130 
FT133140 
"FT133150 
FT133160 
FT133170 
FT13 3180 
FT133190 
FT133200 
FT133210 
FT133220 
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7, STATEMENT SJAg_ISJ_j_TH JJWAUP CHA RACTER 

"7 " 
7, COMPILER EX PECTS FIXE D P OINT VARIAB LE 



F0RM13 


BCI 


_ FORM 14 


BC I 


FGimi5 


BCI 


F0RM16 


BCI 




BCI 




BCI 


FORM17 


BCI 


FORM16 


BCI 


F0RMI9 


BCI 




BCI 




BCI 



FT133230 
FJ 133240 
FT13325G 
FT133260 
FT 133270 
FT133280 



FT133290 
FT133300 
FT 1333 10 
FT133320 
FT133330 
FT 133340 
FT133350 
FT133360 
FT133370 
FT133380 
FT133390 
FT 133400 



5, MORE THAN FIVE OCTAL DIGITS _____ 

7 

7, VARIABLE FORMAJ NAME NOT DECLARED AS ARRAY 

"3T ~"~ ' ' " ' ' ~ "~ 

3,SYHBOL TOO LOf*€ ;. . „__!__„_ : 

12 

6, ARITHMETIC STATEMENT FUNCJIONJiAME __ _ __.. . 

l f XXXXXX *****THIS CELL FILLED IN WITH NAME 

J_? .APPEARS W I THOUT TERMINAL F _ .._ _ 

3 ~ 

3, VARIABLE SUBSCRIPT ....___ 

5 

5,M0RE 1_HAN_ THREE DIMENSIONS 

15 

6, DIMENSION DECLARATION OF TH E ARRAY _ __. . , .. 

1/XXXXXX *****THIS CELL IS FILLED IN FOR EACH ERROR 
8, MUST PRECEDE APPEARANCE IN EX ECUTAB LE STATEMENT 

5 

5, ARRAY ILLEGALLY ENDS IN -F 

10 

1,XXXXXX »*.*»THIS CELL FILLED IN FOR EA CH ERROR 

9f appears MORE "THAN" ONCE 'IN DIMENSION DECLARATIONS 

3 - - 



FT133410 
r ijl j^>«i-_;u 
>T 133430 
FT 133440 
FT133450 
FTX33460 
FT133470 
FT133480 
FT133490 
FT133500 
FT133510 
FT133520 
FT133530 
FT 13 3540 
FTl 33550 
FT133560 
FT 133576 
FT133580 
FT133590 
FT 133600 
FT 1336 10 
FT 133620 
FT133630 
FT133640 



F0RM22 BCI 



3 f ARRAY 
9 



TOO BIG 



FQRM23 BCI 
BCI 



BCI 



3, THE FUNCTION NAME 

1, XX XX XX AflitI*llJL--1-kk F ILLED IN WITH NAME 

~5~ APPEARS WITHOUT" AN ARGUMENT 
10 



FT133650 
FT133660 
FT133670 
FT133680 
FT 13 3690 
FT133700 
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F0RM24 BCI 



STATEMENT NUMBER REFERS TO EXECUTABLE STATEMENT 



FGRM25 BCI 
BCI 



♦FORMAT 

11 

4, THE SUBPROGRAM ARGUMENT 

1,XXXXXX *****THIS CELL F ILLED IN FOR EAC H ERROR 



6, APPEARS 
11 



IN "EQUIVALENCE STATEMENT 



F0RM26 BCI YlNCONSISTENCY 



-j yvvvvv 

X |Aaaaaa 



IN EQUIVALENCE DECLARATIONS 
*****THIS CELL FILLED IN 



INVOLVING SYMBOL 
FOR EACH ERROR 



FT133710 
FT133720 
FT 133730 
FT 133740 
FT133750 
FT133760 
FT 133770 
FT133780 



0RM27 BCI 



BCI 



FORM28 BCI 

BCL 
BCI 
_BCI .. 

F0RM29 BCI 
BCI 
B CI 

FORM30 BCJ 
BCI 
BCI_ 

F0RM31 BCI 

BCI 

BCI 

F0RM32 BCI 

FGRM33 BCI 

FURM34 BCI 
BCI 

"FURM35 BCI 



l.XXXX XX » »»» »THIS _CEjLL_ 

8* APPEARS MORE THAN ONCE IN 

_15 

2, THE SYMBOL 
l f XXXXXX __ 



FILLED IN FOR EA CH ERROR 
COMMON DECLARATIONS 



FT133790 
FT133800 
FT 133810 
FT133820 



*****THIS CELL FILLED IN FO R EACH E RROR 



FT133830 
FT 133840 

IN DIMENSION FT133850 
FT133860 
FT1 33870 

GO TO LISTS FFT133880 



7 INASSIGN OR ASSIGNED GO TO STATEMENT APPEARS 

2, STATEMENT 

14 

, STATEMENT NUMBERS BELO_L_ARE NEEDED IN ASSIGNED 

3i'0R THE VARIABLE 

1, XXXXXX ♦••♦•THIS CELL .IS ^__I LLIP„ IN MB^MCH ERROR 

io 

3» ASSIGN VARIABLE _ 

^TTXXXXXX V****THIS"CELL IS FILLED IN FOR EACH ERROR 

6, NOT IN ASSIGNED GO TO STATEMENT 

9 " "" 

4.ASSIGNED GO TU VARIABLE 

' T.XXXXXX" •♦•••THIS CELL "IS" FILLED IN FOR EACH ERROR 

4, NOT IN ASSIGN STATEMENT _ _._. - 



_3t_PRPGRAM_.T00L_k.QNG_ _ . 

o 

8, LAST EXECUTA BLE STATEMENT _^X^_i*_I-^-^K. 
12 



FT133890 
FT133900 
FT133910 
FT133920 
FT133930 
FT 133940 
FT133950 
FT 133960 
FT 133970 
FT 1339 80 
FT 133990 
FT134000 



OR LIBRARY FUNCTION I NVALID IN DP OR 



F0RM36 BCI 

BCI 

FQRM37 BCI 

F0RM3S BCI 

F0RM39 BCI 
"F0RM40 
FQRM41 

FQRM42 BCI 
BCI 



♦ FIXED POINT ^INTERNAL 
2, STATEMENT 
9 

9, WRONG COLUMN 1 MODE 

11 

, WRONG NUMBER OR MODE OF ARGUMENTS 

1 , NC T ION 

~ 3 

3, MISSING END CARD 

7 

7,N0 SYMBOL TABLE PUNCHED -- POOL OVERFLOW 

""6" "" 

6,XXXXXX HAS AN INVALID SQU IV MOD£$ 



FT134010 

r I L2**V£.\J 

FTT34030 

CAFT134040 

FT 1340 50 

FTL34060 

FOR ARITHMETIC "STATEMENT FUNCTION FT134070 

FT1 34080 

IN ARITHMETIC STATEMENT FUFT134G90 

FT134100 



F0RM43 BCI 



6 t INVALID 
"lfXXXXXX" 
4 

4, INVALID 
3 



FORM OF SUBSCRIPT FOR 
"•**'# »THIS CELL IS 



ARRAY 
FILLED 



IN WITH NAME 



COMPLEX CONSTANT 



FT134110 
FT134120 
FT 134130 
FT134140 
FT 134150 
FT134160 
FT 1341 70 
FT134180 
FT134190 
FT134200 
FT 1342 10 
FT134220 
FT134230 
FT134240 



F0RM45 BCI 



F0RM46 BCI 
F0RM47 BCI 



FQRM48 BCI 



FORM 49 BCI 
F0RM50 "BCT 

"forms! BCI 



F0RM52 BCI 
BCI 

FURM53 BCI 



FT134250 

FT134260 

FT134270 

FT13428Q 

FT 134290 

FT134300 

FT134310 

FT 134320 

FT 134330 

FT134340 

FT13435G 

FT134360 

FT 134370 

FT 1343 80 

TFUNcflON ["OR :Tu^ROUTrNSrSTATEMENT NOT FIRST STATEMENT IN THE FT134390 

2, P ROGRAM _ _ . AUl^OO. 

_! _ - FT134410 



3» INVALID EQUAL SIGN 

s7iNvnTb~iNDEni^^N'lo"LrsT" 

I r;ifSvALID ~T 1ST "TfEMTS ) IN 1 LIST """ 

5 _ . _ - 

J5, "INVALID PUNCTUATION IN 10 LIST 

9 _____ _ - 

9, SINGLE PRECISION ARRAY USED IN DP OR CA STATEMENT 

^VrOMPILEiTBO^Tf COMMA 

5 _ — 

5, INVALID FORTRAN FUNCTION NAME 
12 
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J^RFTtlRj^STATEMENT INVALI D IN MAIN PROGRA M 
9 



F0RM54 BCI 9, INCONSISTE NT MODE DESIGNATIONS ON RETURN STATEM ENTS 



F0RM55 BCI 

F0RM56 BCI 
BCI 



FT 134420 
FT134430 
FT 134440 
FTl 34450 
FT134460 
FTl 34470 
FUNCTION NAME DOES NOT APPEAR ON LEFT SIDE OF SUBSTITUTION _SFT 134480 



AfA E J UR A STATE MENT M ISSING 
12 



FQRM57 BCI 

F0RM58"BCT 

FURM59 BCI 

"F0RM60 BCI 

T0fTM61~BCT 



2,TATEMENT 

7 _ _ . 

7, NO PAREN "FOLLOWS TERMINAL -F FUNCTION 

9 



TtSfATEMENT NUMBER APPEARS ON MORE THAN ONE STATEMENT 

8 __ „ _. - - 

SUBPROGRAM ARGUMENT USED AS INDEX OF DO LOOP 

4 - 

4, COMPILER EXPECTS = SIGN 
6 



FT1 34490 
FT134500 
FT134510 
FT 134520 
FT 134530 
FT134540 
FT134550 
FT 134560 
FT134570 
FT134580 



6VC0NPILER EXPECTS ST ATEMENT NUMBER 
7 



FT134590 
FT 134600 



F0RM62 BCI 

TMM61TBCI 

TTJRM6S BCI 
BCI 

FGRM66 BCI 
BCI 

~F0RM67~BCT 

hOKM68"'BCI 



TTTOO MANY NESTED DOS. SIMPLIFY PROGRAM 

5 



5, INVALID USE OF FORMAT NUMBER 
11 



FT134610 

CT1 lAAOft 

"FTl 34630 
FT134640 



.NQN-EXEWTABTE ^ BE FIRST STATEMENT OF A DO FT134650 

J-J — FT134670 

, TERMI NAL STATEMENT OF A DO MAY NOT BE ^NON-E XEC UTABLE, A TRANJFT134680. 



F0RM69 BCI 

__ BCI 

FORM 70 BCI 
FURM71 BCI 
FORK 72 BCI 
F0RM73 BCI 



4,SFER, OR ANOTHER DO 

"67N0TaTH~0F FLOW TO ABOVE""STXtEMENf~"" 

7 _ — 

7, FORMAT STATEMENT HAS" NO STATEMENT NUMBER 

9 ...__ _ - 

1,XXXXXX »****f HIS CELL FILLED IN FOR EACH ERROR 
j, £S USED AS bUTH A VARIABLE AND S UBPROGRAM NAME 

'5 " 

5, STATEMENT NUMBER TOO LARGE 

7 

7, ILLEGAL FORM OF FLOATING POINT CON STANT 

6 

6, NUMBER EXCEEDS CAPACITY OF JCOMPUTER. ___ _ _. 

8 

8, TERMINUS OF THIS DO HAS ALREADY _BEEN ENCOU NTE RED 



FT 134690 
FTl 34700 
FTl 34710 
FT134720 
FT134730 
FT134740 
FT134750 
FT134760 
"FTl 34770 
FT134780 
FT134790 
FT 134800 
FT 1348 10 
FT134820 
FT 134830 
FT134840 



F0RM74 BCI 



4, CON SECUTIV E *» ILLEGAL 



Ffj RMTS BCI 
FURH76 BCI 
FORH77 BCI 
FORM 78 BCI 
FGRM79 BCI 



FURH80 BCI 



3, INVALID COMMA 

8 " " — " ~~~ " 

8« SUBPROG RAM N AME IS ARGUMENT OF LI BRARY FU NCTION 

3 " '"""" "" 

3, ILLEGAL CHARACTER 

9 " " " " ~ "'"" " " " 

9, ARITHMETIC STATEMENT JUNCTION DEFINED MORE THAN QNCE 

3 ~~ "" " " 

3, MI SPLACED PERIOD 

5, INVALID CHARA CTER IN COLUMN 1 



FT134850 
FT13486G 
FT1 34870 
F J134880 
FT 134890 
FT13490G 
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FT 134910 
FT13492G 
FT 134930 
FT134940 
FT 134950 
FT 134960 
FT134970 
FT134980 



JLU 



,FaRM81 BCI , COMPILER EXPECTS STATEMENT NUMBER, INTEGER OR VARIABLE 



F QRM82 BCI 
F0RM83 BCI 



FORM 84 BCI 
F0RM85 BCI 



±V*&_«86 .BCI 
FORM87 BCI 
FURM88 BCI 



8 

8,0 IS NOT VALID _AS, STATEMENT NUMBER OR SUBSCRIPT 

7 " "" " " " "" 

7 j HO STATEMENT ASSOCIATED WITH _ABOVE LABEL 

5 """ " " " 

^,LEFT SIDE OF STATEMENT INVALID 

8 """ ' " ' ' 

8_,FUNCTI0N NA ME USED AS ARRAY OR SUBPROGRAM NAME 

g -- .. -. ...._ 

8_t_AB0VE DO NESTS WITHIN A DO HAVING SAME DO INDEX 

9 "" "' " -~ 

9,D0 INDEX APPEARS WITHIN THE DO ON LEFT OF EQUAL SIGN 

8 -....-... - .._ ..„__ , , . 

8, BUI LT-IN FU NCTION APPEARS ON LEFT OF EQUAL SIGN 



FT134990 
FT 135000 
FT135010 
FT135020 



11 



FT135030 
FT135040 
FT 135050 
FJ135060 
FT 135070 
FT 135080 
FT 135090 
FT135100 
FT135110 
FT135120 
FT135130 
FT135140 
FT135150 



FURM89 BCI .ARITHMETIC STATEMENT FUNCTIONS MUST PRECEDE EXECUTA BLE S TATEFT135160 
BCI lfMENTS FT135170 

9 FT135180 



F0RM90 BCI 

FURM9JTBCI 
F0RM92 
"F0RM93""" 
FQRM94 



9, SUBSCRIPTS ILLEGAL IN ARITHMETIC STATEMENT FUNCTION'S 
3 

3, UNMATCHED PAREN "" 



FGRM95 
F'JRM96 

fmmr 

F0RM98 



F0RM99 


REM 


NSGIOO 


_BCI 


MCR 


BCI 

REM 
BCI 


SCER 


BCI 
BCI 
BCI 



8 '" '" ' ' " " ~" " 

S.CQMPILER^APACITY EXCEEDED. SIMPLIFY PROGRAM. 

3 "" " 

3, MACHINE ERROR *** 

5, OT ROUBLE. TAKE^CORE DUM P. 

3, SOURCE "ERROR ["IN I ~ " " 

l.XXXXXX 
2, PROGRAM. 



FT135190 
FT 135200 
FT 1352 10 



FT135230 
FT135240 
FT135250 
FT135260 
FT135270 
FT135280 
FT135290 
FT135300 
FT135310 
FT135320 
FT135330 
FT135_340 
FT135350 
FT135360 
FT135370 
FT135380 
FT135390 



* 



Wl T A~FT"_ S " FT135400 PAGE 350 

FTL I A tt L t 5 FT135410 



jp^p FT135420 

SPACE 9 ._ — - _I±??4?_- 

* # 

REN 



REM 



FT135440 
FT135450 

T FSTR aTTTFP I TTR" FT135460 

FT135470 



RES E'a"'rTh" CO M P U T I N G CENTER FT135480 

J^ ______________^_^ - FT i 354 10 

i : n b"i"Anr^nnrTTX"R s i t y " "Ft 135500 



REM 



# * * . * * * * 

REM ____.__. _ 

" - - T A B L 6 S 

REM _____ 



FT13551G 
FT135520 



B L M I N G TON, INDIA MA 

* ,Al ~ " ♦ IT—* * FT135540 

FT135550 
. . -- - F j 1 35 560 

FT135570 



FT135580 



TTL TABLES - INTRODUCTION FT135590 PAGE 351 



THE FOLLOWING ARE THE VARIOUS TABUSJLSJJ__OJL^NIMIfiJ^^ 
TU^NrcMFlLATlON"wHH"THE EXCEPTION OF P L, S Y M T A B "135620 

- « .. , ,, #-r..r-f*- *r>cr nccfDtOCn I ATPR 1 _ M I550 3U 



FT1 35600 " ~ PAGE 352 



AND 



E Q U I V (THESE ARE DESCRIBED LATER) 



TTL T A 8 L 
EACH ARITHME TIC 



ABLE 
TABLE. 



FACILITY 
THE RANK 



IS 



E S - P £ R A" T R RANK T 
OPERATOR IS ASSI GNED A R ANK IN_IHjS_ 
ALTHOUGH AT PRESENT EACH OPERATOR HAS A UNIQUE RANK, 
BUIJJLINJO^THE TABLE FOR ASSIG NING ARBITRARY RANKS. 

Table is used by the cqmpil routine to determine if an operator 

MAY BE INSERTED INTO THE A RITHMETIC STACK i ASIACKTl OR__I^_CgDE 
MUST BE" GENERATED FIRST. THE OPERATORS ARE RANKED AS FOLLOWS, 
WITH THE LOWEST RANK_ JLEASJ .CqpE.^FORCIN^^^EMmR-^lRSIti. 

REM 



EXPONENTIATION, DIVIDE, MULTIPLY, BINARY MjMSy 



UNARY MINUS, _ 

PLUS/ COMMA, EQUALS, LEFT PAREN, 

STATEMENT FUNCTION EQUAL SJGN^ 



RIGHT PAREN, ARITHMETIC 



REM 
FOR 



BOOLEAN S T A T E ME NT S ,_ THE RANKS A RE. 



REM 



AND tEQJIJ/ALENT TCL MULT I PLY N OR (EQUIVALENT TO PLUS), 
COMPLEMENT 1 EQUIVALENT TO UNARY MINUS). 



REM 



EACH 
RANK 



RANK KEY WORD CONTAINS," AMONG OTHER INFORMATION, THE 
AND THE ADORES S__O^XH^„APPMLPALAIE PROCESSOR^! TH^_ 



RaNKTB 



COMPIL 
TO THE 

"space 

EQU 

RANK 

RANK 

RANK 

RANK 

RANK 

RANK 

RANK 

RANK 

RANK 

RANK 



ON IN EACH RANK 
THIS WORD IS AN 



ROUTINE. BIT 16 IS 
COMPIL RO UTINE THAT 
2 



NEG,NEG,UNEGKY,,MINUSP 
EXPNL,£XPNL,£XPKEY,,EXPONP 
DIV,DIV,DIVKEY,,DIVIDP 
TIMES, TIMES, MPYKEY, ,OTHRGP 
BNEG , BNEG, NEGKE Y 
PLUS, PLUS, PLUSKY, ,PLUSP _ 
COMMA, COMMA, CM AKEY, ,COMMAP 
EQUALS , EQUALS , EQLKE Y , , EQ UALP 



KEY WORD, 
OPERATOR. 



♦ » 



UNARY MINUS 
EXPONENTIAL 



LRANKT 



AMD 
OR 
"COMP" 



RANK 
REM 
EQU 
REM 



LP AREN ", LPAREN , LPNKEY , , LPARNP 
^PAREN^RPARENjr RPNKEY , , RP ARNP 
ARSTFN,ARSTFN,ASFKEY 



DIVIDE 
MULTIPLY 
"BINARY MINUS 

COMMA 
EQUALS 
LEFT PAREN 
RIGHT PAREN 



( 

) 

= ARITH. STATE. FN. 



FT135640 

FT_135650_ 

FT135660 

FT 135670 

FT1 35680 

FT135690 

FT135700 

FT135710 

FT13572G 

FT135730 

"FT135740 

FT135750 

FT135760 

F_T135770_ 

FT135780 

FT135790 

FT 135800 

FT135810 

FT135820 

FT135830 

INDICATING FT13584Q 

FT135850 

FT1 35860 
FT135S70 
FT13588G 
FT135890 
FT135900 
FT135910 
FT135920 
FT 135930 
FT1 35940 
FT135950 
FT1 35960 
FT1359J70. 
EQUALSFTi 35980 
FT 135990 
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♦-RANKTB 



LENGTH OF RANK TABLE 



REM 
REM 
EQU 
EQU 
EQU 



TIMES 
PLUS 

NEG 



BOOLEAN OPERATOR EQUIV ALEN CES _ 

^ ^ 00 L E A N AN D 

+ BOOL-FA N OR 

- BOOLEAN COMPLEMENT 



FT136000 
r f jl^oujlu 
FT 136020 
FT 136030 
FT 136040 
FT13605O 
FT136060 



* 
* 

* 

* 
« 

* 

« 

* 

* 

* 

» 
# 

« 

* 

* 

* 



_ ^ a~b"l es- generator key tables 

THE GENERATOR KE Y TABLES CO NTAIN CODEj^MSCRIPIIONSJQ^ALL 

ALLOWED" ARTTHMETiC OPERATIONS- FOR AN OPERATION OF THE FORM 
_A_. OPERATOR. B, EITHER OF THE ELEMENTS A OR B MAY CURRE NTLY BE IN 

THE ^ ACCOMULAfOR, Tn THE MQ, OR IN STORAGE. 

A TYPICAL KE Y WO RD IN THE TAB LE MI GHT CONT AIN THE FOL LOWING 

TNFORHATTON (SEE f f HE KEY MACRO FOR THE BIT PATTERN)... 

REM 



MODE OF A-OPERAND, LOCATION UC,MQ,VS) OF A-OPERAND, 
OPERATOR, MODE OF B-OPE RAND, LOCATIO N OF B-QPERAND. 



IN ADDITI ON, THE KEY WORD CONTAINS THE A DDR ESS OF THE 

TpPROPRTATTToDE GENERA TOR. FOR UNARY OPERATIONS (LIKE -B)» 
THE INFORMATION FOR THE A -QPERANP IS MISSING. 



REM 

THERE ARE FOUR GENERATOR KE Y TABLES, ONE FOR EACH. PER TINENT 
CrLU¥N"rM6br.T7 FIXED/FLOATING POINT, BOOLEAN, DOUBLE 
PRECISION, AND COMP LE X AR ITHMETIC. EACH OF THESE TABLES^ONJAI 



lENTRIESFOR ALL ALLOWABLE OPERATIONS, INCLUDING BUILT-IN 
FUNCTIONS AND CERTAIN OTHER CONVENIENT OPERATIONS INTERNAL TO 



FT136070 
FT136G80 
FT136090 
FT136100 
FT136110 
FT136120 
Ft 136130 
FT136140 
FT! 36150 
FT136160 
FT 136 170 
FT136180 
FT 136 190 
FT 136200 
FT 1362 10 
FT136220 
FT136230 
N SFT1 36240 
"FT 1362 50 
FT 136260 



IGE 354 



"tWTOMPILER. THE FOUR TABLES ARE SORTED IN THE PRE-INITI ALIZA 
T IQN PHASE OF THE COMPILER, A ND REMAI N SORTED THROUGHOUT TH E 

COMPILER'S STAY IN CORE* 
REM 



THE COMPIL ROUTINE ESTABLISHES THE CORRECT TABLE TO USE ON 

THE BASIS OF THE CURRENT COLUMN 1 MODE. 

THE GEN : "ROUTINE CREAfES A KEY WORD (MINUS THE ADDRESS OF THE 
CODE GENERATOR) FROM THE INFORMA TION IT F INDS I N_AS JACKt AND 
DOETTTlWSKE^ ON THE APPROPRIATE TABLE. 

IF AN EQUALITY IS FOUND WITH THE G ENERATED KEY, THEN CODE 



TT'PRODUCED BY THE ROUTINE DESIGNAfED IN THE ADDRESS OF THE 
LOCATED TABLE WORD. MOST OF THE SYNTAC TICAL ER RORS IN _ 

TiRnHMETirTfAtEMENtS "ARE DISCOVERED BY NOT FINDING A KEY IN 
THE TABLE. . _.._ ___..___. 



- FT136270 
FT136280 
FT 136290 
FT 136300 
FT136310 
FT136320 
FT 136330 
FT 136340 
FT136350 
FT136360 
FT136370 
FT 136380 
FT 136390 
FT136400 



EJECT 
KEYTAB EQU 

KEYTBO EQU 

__ _MM 
KEYl 

KEY2 

KEY2 
KEY2 
KEY2 
KEY2 



REAL AND INTEGER KEYS 



INT, REAL, INTO 

REAL, SIGN, REAL, SIGNO 



FT 136410 
FT1 36420 
FT136430 
FT136440 
FT 136450 
FT136460 
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KEY2 
KEY2 



KEY2 



utz 



KEY2 
KEY2 
KEY 2 
KEY2 



KEY2 
KEY 



KEY 

KEY 

KEY 

KEY 

KEY 

KEY 

KEY 

KEY 

KEY 

KEY 

KEY 

K EYl 

KEYl 

KEYl 

KEYl 
KEYl 

KEYl 

KEY 2 

KEY2 

KE Y2 

KEY2 

KEY2 

KEY2 

KEY2 

JCEY2 

KEY 2 

KEY2 

KEY2 

KEY 

KEY 

KEY 
K g Y 

KEY 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 



INTEGR,XSIGN, INTEGR, XSIGN 
REAL, DIM, REAUDIMO 
INTEGR,XDIM, INT EGR,XDIMO 
INTEGR, MA XQ, INTEGR, MXMIN 

RE AL , MAXi", REAL , MXMI N 
INTEG^XMAXOilNTEGRjLMXMIN 
REAL , XMAX1 , REAL, MXMIN 
I N T E GR , M I NO , I NTEGR, MXMIN 



REAL,MINi, REAL, MXMIN 
INTEGR,XMINO, INTE GR, MXMIN 



REAL, XMIN1, REAL, HXH IN 

^EAL,MODj_REAL x MODO 

iNTEGRTXMOb, INTEGR, XMODG 

I NT EGR! VS,EQU AL^jN TEGR, VS, IEQI01 

TNTEGRfVSt EQUALS, INTEGR, AC, IEQI02 
I NTE GR , VS , EQUALS , I NTEGRfMOtLEQlOl 
INTEGR *VSiEQUALSt REAL, yS,I£QR01 

INTEGR, VS, EQUALS, REAL, AC, IEQR02 _ 

I NTEGR, VS, EQUALS , REAL , MQ , I EQR03 
REAL, VS, EQUALS, INTEGR_, VS,REQI01 _ 
REAL, VS, EQUALS, INTEGR, AC, REQI02 
REAL, VS, EQUALS, INTEGR,MQ,REQI03 „ 
RE AL » V S , EQUALS , REAL , VS , REQROl 
REAL. VS, EQUALS, REA L, AC , REQR02 
RE AL,VS, EQUALS, RE AL,MQ,REQR03 

ABS,REAL,ABS0 __ _ 

XABS, INTEGR, XABSO 
XINT,REAL,XINTO 



FLOAT, INTEGR, FLOAT 
XFIX,REAL,XINTO 



NEG, INTEGR, INEGO 

NE^,RJEAL,RNEGO 

I NTEGR , PLUS , I NTEGR , I ADDO 
I NT E GR , BNEG, INTEGR, ISUBO 
INf£GR,TlMES, INTEGR, IMPYO 
INTEGR , Of VyttfTEGR t 101 VO 
INTEGR, EXPNL, INTEGR, I EXPO 
REAL, PLUS, RE ALjR ADDO 
REAL , BNEG , REAL , RSU80 
REAL. TIMES, REAL, RMPYO 



REAL,DIV,REAL,RDIVO 
REAL, EXPNL, RE AL,_REXP0 
REAL, EXPNL, INTEGRtREXP I 
,,AUXIL,REAL,VS,AUXIL1 
"it AUXI L , REAL , AC , AUXI L6 
,,AUXIL,REAL,M Q,AUXIL2 
,, AUXI L, INTEGR, VS,AUXIL1 
,, AUXI L, I NTEGR, AC, AUXI L6 
,, AUXI L, I NTEGR, MQ, AUXI L2 
, , XLQC , INTEGR, VS, XL0C01 
, , XLOC , REAL , VS, XL0C01 
REAL,,ARSTFN,REAL,VS,ASFRR1 



FT136470 
FT136480 
FT 136490 
FT136500 
>fl365i0 
FT136520 
FT 136530 
FT136540 
FT136550 
FT 136560 
FT1 36570 
FT136580 
FT136590 
FT136600 



"RE AL , , ARSTFN I , RE AL , AC , ASFRR2 
REAL, ,ARSTFN, REAL, MQ,ASFRR3 



FT136610 

PT136620 

FT136636 

FT136640 

FT136650 

FT136660 

FT 136670 

FT1 36680 

FTT36690 

FT136700 

FT136710 

FT136720 

FT136730 

FT13674p_ 

FT13675G 

FT136760 

FT 136770 

rTi *> t. "tars. 
r i i jo iou 

FT136790 

FJ1 36800 

Ft 1368 10 

FT136820 

FT136330 

FT136840 

FT136850 

FT136860 

FT1 36870 

FT136_880 

FT136390 

FT136900 

FT 1369 10 

FT136920 

FT136930 

FT136940 

FT136950 

FT136960 

Ft 136970 

FT136980 

FT136990 

FT137000 



KEY 
KEY 



KEY 
KEY 
KEY" 
KEY 



KEY 

KEY 
KEY 

REM 

LKYT85 EQU 



r£~al,,arstfn,integr,vs,a$frii 

REALttARSTFN, INJEGR * ACt ASFRI2 
"REAL'", f ARSfFNilNTE6R,MQtASFRI3 
I NTEGR *j ARSJFNfREAUVS f ASFIR1 _ 
INTEGR , ,ARSTFN f REAl,AC,ASFIR2 
INTEGR, , ARSTFhM^AUMQ,_ASFIR3 



fNT£GR,,ARSTF~N, INTEGR, VS, ASF III 
INTFGR.,ARSTFN,INT£G R,AC,ASFI I2 
lNfEGR,,ARSTFN, INTEGR, MQ,ASFI 13 



♦-KEYTBQ 



TENGTh i OF REAL AND INTEGER KEYS 



FT137Q10 
fl 13 7020 
FT137030 
FT 137040 
FT137050 
FT137060 
FT13707G 
FT137080 
Ffl37090 
FT137100 
Ft 137 iib 
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EJECT 
KEYTB1 EQU __ 
REM 
KEY4 
KEY 4 

KEY4 

KEY3 
KEY3 
KEY 3 
J^EY3 
KEY 3 
KEY3 



KEY3 
KEY3 
KEY3 
KEY 



KEY 
KEY 
KEY 

KEY 

KEY 
KEY 
KEY 
KEY 
REM 
LKYTB1 EQU 



BOOLEAN KEYS 



ABSt REAUABSO __. 

FLGAftlNTEGR, FLOAT 

INT, REAL , INTO 

REAL, MOD, REAL, MGDO 

REA_L_._SIGN,REAL,SIGNO_ 

REAL,DIM,REAL,DIM6 

INT£GR. MAXO,INTEGR,MXMIN 

REAL, MAX1, REAL, MXMIN 



iAL, MINI, REAL, RXMl 

KtALf AND ,jR£A L.BAND Q 

RiAL,OR,REAL,BORO ~" 

0,0 , COMP , R £AL,VS,BCQM01 

6 , , COMP , RE AL , AC , BC0M02 

REAL ^Sj^EQUALStREALt VS , BE Q801 

REAL, VS, EQUALS, REAL, AC, BEQB02 

,,AUXIL»REAL, VS,AUX1L3 

~- - A1IXT1 .RFAL,AC.AUX~* ~ 



FT137120 
FT137130 



PAGE 357 



,,AUXIL,REAL,AC,AUXIL7 
,,AUXIL,INTEGRfAC,AUXIL7 



REALf" f ARSTFN,REAL s VS,ASFRR4 
REAL , , ARSTFN , REAL , AC _t_ASFRR5_ 



FT137140 
FJ137150 
FT137160 
FT13717G 
FT137180 
FT137190 
FT 137200 
FT137210 
FT 137220 
FT137230 
FT137240 
FT 137250 
FT137260 
FT137270 
FT137280 
FT137290 
FT137300 
FT137310 



FT137320 
FT137330 
FT137340 
FT137350 



*~KEYTB1 



LENGTH OF BOOLEAN KEYS, 



FT137360 
FT137370 



EJECT 

KcYTB2 EQU 


* DOUBLE PRECISION KEYS 


FT137380 
FT137390 
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REM 
KEYl 


4FLOAT, INTEGR, DFLOT 


FT137400 
FT137410 




KEYl 
KEYl 


4A8S,R£AL,DABSG 
4FIX,REAL,DFIXQ 


FT137420 
FT137430 




KEY2 
KEY 


REAL, 4SIGN, REAL, DSIGN 
REAL,VS, EQUALS, REAL, VS,DEQD01 
REAL, VS, EQUALS, REAL, AC, DEQD02 
REAL, VS, EQUALS, RE AL,MQ,DEQD03 


FT137440 
FT137450 




KEY 
KEY 


FT137460 
FT137470 




KEY 
KEY 


RE AL,VS, EQUALS, INTEGR, VS,DEQI01 
REAL, VS, EQUALS, INTEGR, AC, OEQI02 


FT137480 
FT137490 




KEY 
KEY 


REAL, VS, EQUALS, INTEGR, HQ,DEQI03 
INTEGR. VS. EQUALS, REAL, VS, I EQOOl 


FT137500 
FT137510 




KEY 
KEY 


INTEGR, VS, EQUALS, REAL, AC, IEQD02 
INTEGR, VS, EQUALS, REAL, MQ, IEQD03 


FT137520 
FT137530 




KEY 
KEY 


INTEGR, VS, EQUALS, INTEGR, VS, I EQIOl 
INTEGR, VS, EQUALS, INTEGR, AC, IEQI02 
INTEGR, VS, EQUALS, I NTEGR,MQ, IEQI03 
REAL, PLUS, REAL, DAOOO 


FT137540 
FT137550 




KEY 
KEY2 


FT137560 
FT137570 




KEYl 
KEY2 


NEG,REAL,ONEGO 
REAL, BNEGt REAL, OSUBO 


FT137580 
FT137590 




KEY2 
KEY2 


REAL, TIMES, REAL, DMPYG 
REAL. DIV, REAL, DDIVO 


FT137600 
FT137610 
FT137620 
FT137630 




KEY2 
KEY2 


REAL, EXPNL, INTEGR, OEXP I 
REAL, EXPNL, REAL, OEXPR 




KEYl 
KEY2 


NEG, INTEGR, INEGO 

INTEGR, PLUS, INTEGR, I ADDO 


FT137640 
FT137650 
FTl 37660 
FTl 37670 




keyF 

KEY2 


INTEGR, BNEG, INTEGR, ISUBO 
INTEGR, TIMES, INTEGR, IMPYO 




KEY2 
KEY2 
KEY 
KEY 


INTEGR, DIV, INTEGR, IOIVO 
INTEGR, EXPNL, INTEGR, I EXPO 
,,AUXIL,REAL,VS,AUXIH 
,,AUXIL,REAL,AC,AUXIL4 


FT137680 
FTl 37690 
FT137700 
FT137710 




KEY 

KEY 


,,AUXIL,~REAL,MQ,AUXIL5 
,,AUXIL, INTEGR, VS,AUXIL1 


FT137720 
FT137730 




KEY 
KEY 


,,AUXIL,INTEGR,AC,AUXIL6 
,,AUXIL,INTEGR,MQ, AUXIL2 


FT137740 
FT137750 




KEY 
KEY 


REAL,,ARSTFN,R£AL,VS,ASFDD1 
REAL,, ARSTFN, REAL, AC, ASFOD2 


FT137760 
FT137770 




KEY 
K€Y 


""REAL , , ARSTFN i, RE AL , MQ , ASF DD3 
R€*L*, ARSTFN, INTEGR, VS,ASFDI1 


FT137780 
FT437790 




KEY 
KEY 


REAL,, ARSTFN, INTEGR, AC, ASFOI 2 
REAL,, ARSTFN, INTEGR, MQ,ASFDI3 


FT137800 
FT137810 
FT13782C 
FT137830 




REM 
LKYTB2 EQU 


♦-KEYTB2 LENGTH OF DOUBLE PRECISION KEYS 





EJECT 
KtYT B3 E QU 
REM 

KEY1 

KEY1 
_ KEY2 
KEY 
KEY 
KEY 
KEY 
KEY 
KEY 



COMPLEX ARITHMETIC KEYS 



1FLQAT, INTEGR, PFLQT 
IFIX,REAL,DFIXQ 
REAL, 1SIGN, RE AL, PSIGN 



REAL, VS, EQUALS, REAL, VS,DEQD01 
RE AL , VS , EQUAL S , REAL, ACPEQP Q2 



RE AL,VS, EQUALS, REAL, MQ,DEQD03 
REAL,V S, EQUALS, INTEGR, VS,D£QIQ1 
REAL,VS,EQUALS, INTEGR, AC, DEQI02 
REAL, VS, EQUALS, INTEGR, MQ,D EQI0 3 



KEY 

KEY 
KEY 
KEY 



INTEGR, VS, EQUALS, REAL, VS, IEQOOl 
INTEGR, VS, EQUALS, REAL, AC, IEQDD2 



FT137840 

FT137850 

FT13786G 

FJ137870 

FT137880 

FT13789Q 

Ft 137900 

FT137910 

FT13792G 

FJ137930„ 

FT 137940 

FT137950 

FT137960 

FT13797G 
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KEY 
KEY 
KEY 2 
KEY1 



INTEGR, VS, EQUALS, REAL, MQ, I EQD03 
INTEGR, VS, EQUALS, INTEGR , V S ,I EQI01 
INTEGR, VS, EQUALS, INTEGR, AC, IEQI02 
INTEGR, VS, EQUALS, INTEGR, MQ, I EQI03 



REAL, PLUS, REAL, CADDO 
NEG,REAL,DNEGO 



KEY2 
KEY2 

Kfc Y2 

KEY2 

KEYl 

KEY2 

KEY2 

KEY2 

k jey2" 

KEY 2 

KEY 

KEY 



REAL, BNEG, REAL, CSUBO 
REAL, TI MES, REAL, CMPYO 
™REAL,DIV,REAL,CDIVO 
RE AL,EXPNL, INTEGR, CEXPI 
NEG, INTEGR, INEGQ 
I NTEGR , PLUS , I NTEGR ,J ADDO 
INTEGR, BNEG, INTEGR, ISUBO 
INTEGR, TIMES, INTEGR, IMPYO 
INTEGR, DIV, INTEGR, IDIVO 
INTEGR, EXPNL, IN TEG R, IEXPO 
,,AUXIL,REAL,VS,AUXIL1 
,,AUXIL,REAL,AC,AUXIL4 



KEY 
KEY 

KEY 



,,AUXIL,REAL,MQ,AUXIL5 
♦ »AU XIL, INTEGR, VS,AUXIL1 
,,AU"XIL,INTEGR~,AC,AUXIL6 
,,AUXIL, INTEGR, MQ,AUXIL2 



KEY 
KEY 



REAL,, ARSTFN, REAL, VS,ASFDD1 
REAL,, ARSTFN, REAL, AC, ASI-DD2 



KEY 
KEY 
KEY 
*£Y 
REM 
LKYTB3 EQU 
TkEYTB EQU 



REAL,, ARSTFN, REAL, MQ,ASFDD3 
REAL,, ARSTFN, INTEGR, VS,ASFD II 



REAL,, ARSTFN, INTEGR, AC, ASFDI2 
<REAW<rARST-FJ4* IWEGR+JiO* ASF4XI 3 



•-KEYTB3 
V-KEYTAB 



LENGTH OF COMPLEX ARITHMETIC KEYS 



FT137980 
FT137990 
FT13800G 
FT138010 



FT138020 
FT138030 
Ft 138046 
FT 1 38050 
FT138060 
FT138070 



FT138080 
FT138090 
FT138100 
FT138110 
FT 138 120 
FT13813G 
FT 138140 
FT138J30 
Ft 138160 
FT138170 
FT138I80 
FT138i90 
FT138200 
FT138210 
FT 13 8220 
FT138230 
FT138240 
FX13B250 
FT138260 
FT138270 
FT138280 



* 

♦ 

* 
tt 

* 
_ 

* 
* 



FXI L"£ S ~- "bUTiTt - IN F C N . NAMES 

THE OPEN FUNCTIO?LJ_AB_ t _E^°NIA_M-^^ 



BuTLT-lN~MNCTfON"lN FASTRAN. THE FIRST WORD OF THE ENTRY IS 

A KEY WORD FOR USE BY THE COMPIL, AN D OPNGEN ROUTI NES, IHE_... 

kFy^TONSISTS f MAINLY OF A 'PSEUDO-RANK', SIMILAR TO AN 

OPERATOR RANK, BUT^PISIGN^O^^ 

XWILT-W FUNCTION OPERATOR, AND DIFFERENTIATION BETWEEN 
THE DIFFERENT FUNCTIONS. THE SECOND WORD OF JTHE ENTRY IS_THE 
BCD NAME OF THE FUNCTION. 

nry __.__________-— - — ■ _____■_- ™-- 

^ ^^ A FUNCTION NAME 

ENDING IN -F, ^FARCHES_JHI S TABLE ( LINEA RLYlJ^DjmECJLA 



IuTLT-I^^^ THE KEY WORD (FIRST WORD 

__. r U r rwrnui TC HCCn TW AST Af__ _, - 

Iw ihc criitvii _•____*___ —ii ___!__l_-_-_.t. — 

IN ORDER TO DlFFERENTIAJX^BEIW^fl,^^^!!! SINGLE, OOUBLE, „ 
^blTllOMP^^ SCAN ROUTINE WILL APPEND A NUMBER 

?0 THE BEGINNING OF A DOUBLE PRECISIQ*LWL__°!!?^^ 



FT138290 
FT138300 
FT138310 
FT138320 
FfT 38330 
FT138340 
'Ft 138350 
FT13836Q 
FU38370 
FT138380 
FT 138390 
FT 138400 
FT 138410 
FT138420 
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WfS NUMBER TS 4 FOR DOUBLE 
THESE FUNCTIONS APPEAR THUS 



AND 1 FOR COMPLEX 
IN THE TABLE. 



REM 

THE FUNCTION XLOC HAS BEEN 
WlCElHAT THE IBM DOUBLE 
GENERATE INCORRECT__CODE, 



MADE A BUILT-IN FUNCTION IN FA STRAN. 
FrECTsT0N~AND COMPLEX 'FIX' FUNCTIONS 
BUT THE NAMES ARE INCLUDED IN THIS TABL 



FOR COMPATABILITY. 



SPACE 




2 

* 

MINI 

MINO 

MAXO 

MA XI 

XMINO 

XMINI 

XMAX1 



" opeFroutine names 

THESE EIGHT MAXJVND MIN ENTRIES 
_ nysf el FIRST 

IN THIS ORDER 

SO THAT THE CODE GENERATORS 

WILL WORK PROPERLY. „________ 



IN LI STAB, AND 

THIS IS NECESSARY 



FT138430 
FT 138440 
FT 138450 
_FT138460 
FT 138470 
FT 138480 
Ffl 38490 
FT138500 
FT138516 
EFT138520 
FT 138530 
FT138540 
FT 138550 
FT 138 560^ 
FT 138570 
FU3858G 
FT 138590 
FTL38600 



XMAXO 
ABS 



FT138610 
FJ138620 
FT138630 
FT138640 



TAB3 
TAB3 
TAB3 

f _____ 
TAB3 

___ TAB3 
TAB3 
TAB3 
TAB3 
TAB3 
TAB 3 
TA83 
TAB 3 
TAB3 
TAB3 
TAB 3 
f AB3 

LCPENT EQU 



XABS 

INT 

XI NT 

FLOAT 

XFIX 

MOD 

XMOD 

SIGN 

XSIGN 

DIM 

XDIM 

4ABS 

4FL0AT 

4FIX 

4 SIGN' 

1FL0AT 

If Ix 

1SIGN 

XLOC 
♦-LIBTAB 



DA8SF 

DFLOATF 

DFIXF 

DSIGNF 

IFLOATF 

i'FIXF 

ISIGNF 



LENGTH OF OPEN ROUTINE NAME TAB LE 



FT138650 
_•__■*»#-_*_. 

r IIJOOOU 

F f 138670 

FT138680 

FT138690 

FT1387Q0 

FT138710 

FT138720 

FT 138730 

FT138740 

FT138750 

FT 138760 

FT138770 

FT138780 

FT 138790 

FT138800 

FT 1388 10 

FT138820 

FT138830 

FT138840 



TTL TABLES - LIBRARY MA ME T A B L E 
THE .RESERVED,. LIBRARY NAME T ABLE CONTAINS THE NAMES OF 



* FMS II LIBRARY ROUTINES REFERRED TO BY COMPILER-GENERATED 

.» CODE, (NONE O F THESE NAMES ARE LEGAL FORTRAN SYM BOLS ) . 

* 



THE TWO-WORD ENTRY CONSISTS OF A FLAG WORD AND THE BCD NAME 
OF THE R OUTINE, THE FLAG WORDS ARE ALL ZEROED OUT DURING THE 



INITIALIZATION OF THE COMPILER, WHEN A ROUTINE IS USED IN THE 
GENERATED CODE t THE FLAG WORD I S SET NON-ZERO. LATER THE 



«- 

* POST PASS 1 ROUTINE f V£CTlT~Af^ THE PASS V'Z ROUTINE STVECT ~ 

_* DETER MINE WHICH ROUTINES HAVE BEEN USED , AN D INSERT THE BCD 

* 



SLNTAB EQU 

_ REM 

REM 



NAMES INTO THE TRANSFER VECTOR. 
SPACE 3 

* 



(FPT) 



EXPC1 



BCI 



EXP(2 



EXPO 



CDFAD) 



BCI 



BCI 



BCI 



BCI 



CDFSB) 



COFMP) 



(DFDPJ 



DEXP12 



CEXP( 



BCI 



BCI 



BCI 



BCI 



BCI 



CIFMP) 



BCI 



{ IFDPl 



ifcXP(2 



BCI 



BCI 



U.SH) 



BCI 



(STH) 



ICSH) 



ISCH) 



BCI 



BCI 



(SPH) 



IWLR) 



( fSB) 



(RLR) 



(6ST) 



BCI 



BCI 



BCI 



BCI 



BCI 



BCI 



SPECIAL LIBRARY NAME TABLE. INCLUDES ALL 
NAMES OF LIBRARY ROUTINES CALLED BY THE 



PROCESSORS. 



1,(FPT) 



1,EXP(L 



1,£XP(2 

TfEXPnT 

1 , { DF AOT 

1, (DFSB) 

lVtDFMPi 

l,tDFDP) 

1,DEXP<2 



1,DEXPC3 



lt(IFMP) 




1,(SCH) 

1,1 SPH) 

TtTsTB")"" 

1,(WLR) 



1,(TSB) 
it'(RLR) 



FT138850 
FT138860 
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FT138870 
FT138880 
FT 138890 
FT138900 



FT138910 
FT138920 
FT 138930 

FT 138950 
FT 138960 
FT13897G 
FT138980 



FT138990 
FT139000 
Ffl390i0 
FT139020 
FT 1390 30 
JFT 139040 
FT139050 
FT139060 
FT139070 
FT139080 
FT1 39090 
FT139100 
FT 1391 10 
FT139120 
FT139130 
FT139140 
FT139150 
FT139160 
FT139170 
FT139180 
FTi39190 
FT139200 
FT139210 
FT 139220 
FT139230 
FT139240 
FT139250 
FTX3926G 
FT139270 
FT139280 
FT139290 
FT139300 
FT 139310 
FT1 39320 
FT139330 
FT139340 
FT139350 
FT139360 
FT 13 93 70 
FT139380 
FT139390 
FT 139400 
FT139410 
FJ 139420 
FT13943G 
FT139440 



BCI 1,{BST) FT139450 PAGE 362 

J__TJ__ _ __„_ FI139460_ _ 

BC I 1 » ( E F T ) FT 1 39470 

JMU „__ . . _ . _ __. ._ _ FT13948G 

BCI 1 ? {RWT) " "™ " ■ "" ~ FT139490 ---.-..-—. 

____?._.. F T 13950 

BCI It I SDR) FT139510 

JJ^Ml FT139520 

BCI li(DRS) FT139530 

i__LL____... .___. _ „_ ___ FT139540 

BCI 1,CSL0) "" ~ "" ~" "~ FT139550 

JA__ __..._ __ _ FT139560 

BCI l t {SLI) Ft 139570 

if L_ _ _ FT1_39_580 __ 

BCI 1* (FIL) FT 139590 

S3JM _ _ ___ FTl 39600 

BCI 1,(RTN) ~" ~- FT139610 ---••--- 

M*____ , FT139620 

LSLNTB EQU *-SLNTAB LENGTH OF SPECIAL LIBRARY" NAME TABLE " FT139630 
LLIBT8 EQU »-HB TA8 LENGTH OF OPEN + CLOSED ROUTINE NAME TABLFT139640 



TTL T A 8 L E S" - INSTRUCTION T 

THIS TABLE CJ3ML S I$^ 



ABLE 
ARE USED IN 



OPTAB 



ADD ADD 

ALS 17 ALS 

"A LSI 8 ALS 

ANA ANA 



A?*A)2 
AXll 



AXT2 



ANA 
AXT 
AXT 



CAL 
CAL4 



CAL 



CHS 
CLA 



CHS 
CLA 



CLA774 
CLA77!> 



CLA 
CLA 



CLA776 
^LA777 

CLS ' 

CLS774 
"CLS775 

CLS776 



CLA 
CLA 
CLS 
CLS 
CLS 
CLS 



CLS777 

COM 



CLS 

COM 



OCT 
DVP 



DVP777 

FAD 



DCT 
DVP 
DVP 
FAD 



FAD774 
FAD775 



FAD 
FAD 



FAD776 
FAD777 



FAD 
FAD 



FADJ1 
FDP 



FAD 
FDP 



GENERATING THE OBJECT CODE. 

SPACE 3 

EQU 
REM 




17 
18 


♦ » 

• • 1 2 
t4 




,4 



~4 

"3 

-2 

-1 



-4 

-3 

-2 

-1 





o 
__. 

-3 
-2 
-I 



*♦ 





FDP777 


FOP 


-1 


FMP 


FMP 





FMP777 


FMP 


-1 


FRN 


FRN 




FSB 


FSB 





FS8775 


FSB 


-3 


FSB777 


FSB 


-1 


LDA 


LDA 





LDC4 


LDC 


0,4 


LDQ 


LDQ 





LDQ2 


LDQ 


2 


LDQ774 


LDQ 


-4 


LDC775 


LDG 


-3 


LDQ776 


LDQ 


-2 


LDQ777 


LDQ 


-1 


LGR74 


LGR 


74 


LLS 


LLS 





LLS18 


LLS 


18 


LRS 


LRS 





LRS18 


LRS 


18 


LRS35 


LRS 


35 


LXD4 


LXD 


,4 



FT139650 

FT 139660 

FT 139670 

FT139680 

FT1 39690 

FT 139700 

FT139710 

FT139720 

FT139730 

FT 139 740 

FT139750 

FT139760 

FT 139770 

FT139780 

FT139790 

FT139800 

FT139810 

FT139820 

FT139830 

FT139840 
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FT139850 

FJ 13?860_ 

FT139876 

FT139880 

FT 139890 

FT 1 39900 

FT 1399 10 

FT139920 

FT139930 

FT 139940 

FT139950 

FT139960 



FT139970 
F T13998Q 
FT139990 
FT140000 



FT140010 
r i x twytv 
FT140030 
FT140040 



FT140050 
FT14a060 
FT140070 
FT140080 
FT140090 
FT140100 
FT140110 
FT140120 
FT140130 
FT 140140 
FT 140150 
FT140160 
FT 140 170 
FT140180 
FT 140 190 
FT140200 
FT140210 
FT140220 



FT140230 
FT140240 



MPY 

NOP 



ORA 
QRAU 



PaXI 
PAX4 
PXA4 
PXD4 



MPY 
NOP 
ORA 
J3RA 
PAX 
PAX 




• * 

Yi 

t4 



PIE 
SLF 



PXA 
PXD 
PZE 
SLF 



,4 
,4 



SLT 



SLT 
SLW 



SLW8 
ceo 



SLW 
SSP 



STA 
STO 



STG775 
ST0776 



STA 

JL T0 
sfo 

STO 



ST0777 

STG 

STQ2 

ST 07 74 

STQ 775 

STQ776 

STQ777 

STR 

STZ 

s;tzov 

SuB '" 
SWT 



STO 

STQ 
STQ 



STQ 
STQ 
STQ 
STR 



SXA1 
SXA2 



STZ 
STZ 

"SUB 
SWT 
SXA 
SXA 



SXA4 
SXD4 



SX044 
TLQ2 



SXA 
$W 
SXO 
TLQ 



TMI 

TNZ 



TMI 
TNZ 




~0 
0_ 
-3" 
-2 
-1 

2 
-4 



-2 
-1 


OVFLOW 

"cf" 





• 1 1 

• i2 



#4 

4,4 
2 








miz 


TNZ 


2 


TPL 


TPL 





TPL2 


TPL 


2 


TRA 


TRA 





TRAG4 


TRA 


t4 


TRA2 


TRA 


2 


TRA4 


TRA 


1,4 


TRAi 


TRA* 





TSX 


TSX 


1 1 


TSX4 


TSX 


0,4 


IXH4 


TXH 


,4,0 


TIE 


TZE 





TXI11 


TXI 


1 # 1 * • • 


1X114 


TXI 


1,4, . . 


TXL4 


TXL 


• • , 4 , • • 


TXI 4 


TXI 


0,4,0 


UFAU 


UFA 


♦ * 


XCA 


XCA 




ZAC 


ZAC 






REM 




LQPTAB 


EQU 


♦-GPTAB 



FT 140250 
FT 140260 
FT 140270 
FT140280 
FT 140290 
FT140300 
FT 1403 10 
FT140320 
FT 140 330 
FT140340 
FT140350 
FT140360 
FT 140370 
FT 140380 
FT 140390 
FT140400 
FT 140410 
FT140420 
Ft 140430 
FT 14 0440 
FT 140450 
FT140460 
FT140470 
FT14048G 
FT 140490 
FT 140500 
FT14051G 
FT140520 
FTl40530 
FT140540 
FT 140550 
FT 140560 
FT140570 
FT140580^ 
FT140590 
FT140600 
FT 1406 10 
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Ftl40630 
FT140640 
FT 140650 
FTJL 40660 
FT140670 
FT140680 
FT 140690 
FT140700 
Ft 1407 10 
FT 140720 
FT 140730 
FT1^0740 
FT 140750 
FT140760 
Ft 140770 
FT140780 
FT140790 
FT140800 
FT 1408 10 
FT140820 
FT14083G 



TTL TAB LES - TRAILING BLANK 

TAB L £ OF f.nMSTANTS_USEP BY THE SCANNE R T INSER 1_J MIJIM 

BLANKS ONTO A SYMBOL, 

REM . . „_ _- ■ 



INSERT 



OCT 
OCT 



OCT 
OCT 
OCT 
OCT 
5CANT1 PZE 
__OCT 
OCT 

OCT 

OCT 

OCT 

SCANT2 OCT 



777777777777 
777777777700 



777777770000 
777777000000 
777700000000 

77000000000Q 

_60_ _ 
6060 
606060 



60606060 
6060606060 



FT140840 
FT140350 
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FT140860 
FT140870 
FT140880 
FT 140890 
FT 140900 
FT140910 
FT140920 
FT140930 
FT140940 
FT140950 
FT140960 
FT140970 



606060606060 



FT140980 
FT140990 
FT141000 



TTL TAB 

THE FOLLOWING 
IN THE 



L E S - P 
FOUR TABLES 



W 
ARE 



E R S OF 
USED BY THE 



NUMBER PROCESSOR 



SPACE 

DOUBLE 

SPACE" 
OCT 



SCAN ROUTINE. 

2 _ _ __ 

PRE C I S I ON F L AT I NG 

LOW ORDER PARTS 



POINT POWERS OF 10 



OCT 
OCT 
OCT 

OCT 



344413241541 38_ 

340653551066 37 

335674440705 36 



332543515403 35 

326554 174006 34 

323443311470 33 

320202556055 32 



OCT 
OCT 
OCf 
OCT 




314004260106 31 

311320214722 30 

106563327102 29 

30361 74224 01 28_ 

277177204002 27 
274631003151 26_ 



271024002440 25 

265354635550 24 



262760512755 
257446725444 
253561357240 
250132614200 
245116475000 
241647310000 
2 363 54 24 Ol) Q 6 
233760200000 
227432000000 
224510000000 



23 
22 



21 

20 
19 
18 
17 
16 



15 
14 



OCT " 221240000000 

OCT _ 215400000000 

OCT 212000000000 

OCT 207000000000 



13 

11 

10 



OCT 203000000000 09 
OCT 200000000000 08 



PIOL 



OCT 
OCT 

OCT 
OCT 
OCT 
OCT 
OCT 

0CJ1 
OCT 

OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



175000000000 07 

1 71000000000 6 __ 

166000000000 05 

ter5OOOOOOO0O- 04 

157000000600 03 

154000000000 002 

15 1600006066 00 i 

1460000 00000 00 

142314631463 -1 

137727024365 -2 

134570651767 -3 

130616103131 -4 

125161550741 -5 

122132755432 -6 

116536257220 -7 

113430214163 -8 _ 

116023326451 -9 

104353675565 -10 

101274544452 -11 

076226752042 -12 

07 2 044566404 -13 

067520453466 -14 



FT141010 
FT141020 
FT 141 030 

FT141056 
FT14106_0_ 
FT 141070 
_FT141080 
FT141090 
FT141100 
FTI4III6 
FT 141 120 
FT 141 130 
FT141140 
Ft 141150 
FT141160 
FT141170 
FT141180 
FT 141 190 
FT141200_ 
FT 1412 10 
FT 141220 
Ft 141230 
J^T 141 240 
FT141250 
FT141260 
FT141270 
FT141280 
FT141296 
FT141300 
FT14131G 
FT14 1320 
FT141330 

FT1\L 3 M 
FT 141350 

FT141360 
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FT141370 

r- -r * j. 1 o g rt 
f~J A ** ±? OKi _ 

FT14T390 
FT141400 
FT 141 4 10 

FT141430 
FT141440 
FT141450 
FT141460 
FT141470 
FT141480 



FT141490 
FJ141500 
FT141510 
FT141520 
FT 141 530 
FT141540 
FT141550 
FT141560 
FT 141 5 70 
FT141580 
FT141590 
FT141600 



OCT 
OCT 
OCT 
OCI 
OCT 
OCT 

oct 

OCT 
OCT 
OCT 
OCT 
OCT 

OCT 

nfT 

bet 

OCT 

OCT 
OCT 
OCT 
OCT 
_OCI 
G\» i 
OCT 



064563526054 
060754211571 
055443324455 
052351103530 
646733322531 
043111102107 



-15 
-16 



040407233237 
034013536714 



031011262242 
02632 4216517 
022355175664 
017127313050 



-17 

-18 

-19 

-20 

-21 

-22_ 

-23 

-24 



014571074040 
010450140066 



-25 
-26 
-27 
-28 



005523263220 

002565702500 

'000000000000 

oooooooogoog^ 

b 

o 

o 

___ 






-29 
-30 



-31 
-32 



-33 
-34 



-35 
-36 



-37 

-38 



FT141610 

FT141„620_ 

FT141630 

FT 141 640 

FT14165G 

FT141660 

FT 141670 

FT141680 

FT141690 

FT141700 

FT14lfl0 

FT141720 

FT 141730 

FT141740 

FT 141750 

FT141760 

FT141770 

FT141780 

FT 141790 

FT14180Q 

FT141810 

FT141820 
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FT141830 
FT141840 



EJECT 
DOUB LE 

SPACE 



OCT 
OCT 



OCT 
OCT 



PRECISION FLOATING POINT POWE RS OF 10 
HIGH ORDER PARTS 



377454732312 38 

373 7413 67020 31 

370601137163 36 

365464114134 35 



OCT 
OCT 



361755023372 
356612334310 



OCT 

OCT 



OCT 

OCT 
OCT 



353473426555 
3 4777067574 2 
344623713116 
341503074076 



34 
33 
32 
31 
30 
29 



FT141350 
_FT141860 
FT141870 
FT141880 
FT 141890 
FT141900 
FT 141 9 10 
FT141920 
FTi4193G 
FT141940 
pfY41950 
FT141960 
FT 14 1970 
FT141980 
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336402374713 
332635456171 



28 
27 



OCT 
OCT 



327512676455 
324410545213 



26 
25 



FT141990 
FT142000 
FT142010 
FT142020 



OCT 320647410336 
OCT 315522640261 



24 
23 



FT142030 
FT142040 



OCT 
OCT 
OCT 

OCJ 
"OCT 
J3CT 
OCT 
OCT 
OCT 
OCT 



312417031701 
306661534465 
303532743536 
300425434430 
274674055531 
271543212741 



22 
21 



266434157115 
2627065765U 
257553630407 
254443023471 



OCT 
OCT 



250721522450 
245564416672 



OCT 
OCT 



OCT 
OCT 



242452013710 
236734654500 
233575360400" 
230461132000 



20 
19 
1.8 
17 
16 

A 5 

14 

13 

12 
11 
10 
09 
08 
07 



OCT 
OCT 



224750220000 06 
221606500000 05 



OCT 216470400000 04 

OCT 212764000000 03 

OCT 207620000000 02 

OCT 2tJ45000tKX>00 O* 

Pi^M ~ OCT 201400000000 00 

OCT 175631463146 -1 

OCT 172507534121 -2 

OCT 167406111564 -3 

OCT 163643334272 -4 

OCT 160517426524 -5 

OCT 155414336750 -6 

OCT 151655376246 -7 

OCT 146527461670 -8 

OCT 143422701372 -9 

OCT 137667633766 -10 

OCT 134 53765 7770 -11 

OCT 131431363140 -12 

OCT 125702270232 -13 

OCT 122550223341 -14 

OCT H7440165747 -15 

^ OCT 113715126245 -16 

OCT 110560736521 -17 



FT142050 
FT14206J 
FT 142070 
FT 142080 
FT142Q90 
FT 142 100 
FT142110 
FT142120 
FT 14 2 130 
FT142140 
FT142150 
FT142160 



FT 14 2 170 
FT142180 
FT 142190 
FT142200 



FT142210 

r"r ■* / :. <■* o *» t\ 

FTT42230 
FT142240 
"Ft 142250 
FT1422J60 
FT142270 
FT142280 
FT 14 2290 
FT142300 
FT142310 
FT142320 
FT 142330 
FT 142340 
FT 142 350 
FT142360 
Ft 142370 
FT142380 
FTl 42390 
FT142400 
Ft 142410 
FT142420 
Fti42430 
FT142440 



OCT 

^CT 

OCT 

J?iL T 
OCT 

OCT 



OCT 
OCT 
OCT 



105447113564 
101730171123 



076571624103 
073456166402 
067743444004 
064602666320 



061465370246 
055757132075 
052614110061 
0474747232 15 
043773036657 
040625513677 



035504411377 



32403472631 



rvao 



026637304365 
023514235135 



020411660744 
014651264555_ 



011524220444 
006420163520 
002663437347 



-18 

-20 

-?3 
-22 

-24 

-25 

-26 

-XL 

-28 
-29 
-30 
^31 
-32 
-33 



-34 
-35 



-36 
-37 
-38 



FT142450 

FT142460 

FT142470 

FT142480 

FT 142 490 

FT142500 

FT142510 

FT142520 

FT 142530 

FT 142 540 

FT142550 

FT142560 

Ft 142570 

FT 142580 

FT142590 

FT142600 

FT142610 

FT142620 

FT142630 

FT 142640 

FT 142650 
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EJECT 
DOUBLE 



SPACE 

OCT" 

OCT 



OCT 
OCT 



OCT 
OCT 
OCT 
OCT 



OCT 
OCT 



OCT 
OCT 
OCT 
OCT 



PRECISION FIXED POINT POWER S OF 10 
LOW ORDER PARTS 



OCT 
OCT 



314631463146 — 1 

25 605075 3412 _-2 

136152375747 -3 

326161031312 -4 



142161550741 
275013275543 
371232571275 
230734214106 



134057501155 
157467754727 



FIDL 



OCT 
OCT 
OCT 

EQU 



000000027035 
000000002234 
0*00000000 1 66 
000000000013 
000000000001 



-5 
-6 



-7 



-9 
-10 



127753776057 -11 
010627463004 -12 
000702270232 
000055022334 



OCT 000004401657 
OCT 000000346453 




FT 
FT 



FT 
FT 
FT 
FT 
FT 
FT 
FT 
FT 
FT 
FT 



FT 
FT 



FT 
FT 
FT 
FT 
FT 
FT 
FT 
FT 
FT 
FT 
FT 
FT 



142660 
142670 
142680 
142690 
142700 
142710 
142720 
142730 
142740 
142750 
142760 
142770 
142780 
142790 
142800 
142810 
142820 
142830 
142840 
142850 
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142860 
142870 
142880 
142890 
142900 
142910 



EJECT 
DOUBLE, 



PRECISION FjXFO POINT POWERS O F 10 



HIGH OROER PART 

SPACE A _____ 
OCT 031463146314 
OCT 002436560507 __ 



OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



OCT 
OCT 



FIOM 



OCT 

QCT_ 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

EQU 



000203044672 

00001 5066705, 

000001237055 

000000103067 

600000006553 

000000000 52 7 

000000000042 

000000000003 
__ 

_g „ ^_ 






6 

_P 
6 
o 



■l 

■2 
■3 
-4 



•5 
•6 

: 7 

-9 

"lU 



-11 

-12 



-13 

_!* 
-15 
-16 
-17 
-18 
-19 
-20 
-21 



FT142920 
FT142930 
FT 142940 
FT 142950 
FT 142960 
FT142970 
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FT 142980 
FT 142990 
FT i 43000 
FT 143010 
FT 143020 
FT143030 
FT143040 
FT 143050. 
FT 143060 
FT143070 



FT143080 
FT143090 
FT143100 
FT 1431 10 
FT 143 120 
FJ143130 
FT 143 140 
FT143150 
FT143160 
FT143170 



TTL TAB 
THIS TABLE IS 
IN EFFECT. 
3 



Cl'TBLi" 



IS 

SPACE 
BCI 
BCI 



L E S - B C I C I T F 1 AG S 
USED 8 Y C I T B _L_D WHEN THE LIST 



PASS 1 OPTION 



BCI 

BCI 
BCI 

BCI 

J* CI 

BCI 

BCI 



BCI 

jBC£ 
BCI 
BCI 



BCI 
BCI 
BCI 
BCI 



1, 

It 

it 
it 
i» 
it 
i» 
it 



N 
P 
R 
V 
T 
F 
C 
S 



It 


X 


1, 
i. 


"e" 


it 


Q 


it 





it 


G 


i, 


H 


it 


I 


it 


J 


it 


K 



FT14318Q 
FT143190 
FT 143200 
FT143210 
FT143220 
FT143230 
Ft 143240 
FT 143250 
FT I 43260 
FT143270 
FT143280 
FT143290 
FT 143300 
FT143310 



F 1 143320 
FT143330 
FT 143340 
FT143350 
FT143360 
FT 143370 
FT143380 
FT143390 
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TTL TABLES -CONV 
* THIS TABLE IS USED BY C D L A B 


T 8 

L TO CONVERT TITLE 


(FIXED 


FT143400 
FT143410 


* ALPHABETIC PART) OF BINARY CARD 
SPACE 3 


LABEL TO COLUMN BINARY. 


FT143420 
FT143430 


CUNVTB OCT 020004001000 
OCT 002000400100 


02 01 
05 04 


00 
03 


FT 143440 
FT143450 


ocr 000200040010 

OCT 010200000001 


08 07 
11< = ) - 


06 
09 


FT 143460 
FT143470 


OCT 000000000042 
OCT 440040000000 


17(A) 16(+) 


12(») 


FT143480 
FT143490 


OCT 404041004200 
OCT 400440104020 


20(D) 19(C) 
23(G) 22(F) 


18(B) 
21(E) 
24CH) 
27(.) 


FT143500 
FT143510 


OCT 000040014002 
OCT 000040424102 


25(1) 
28M) 


FT143520 
FT143530 


OCT 200000000000 
OCT 210022002400 


32(~) 

35(L) 34CK) 


33(J) 


FT143540 
FT143550 


OCT 201020202040 
OCT 200120022004 


38(0) 37(N) 
41CR) 40(0) 


36(M) 
39(P) 


FT143560 
FT143570 


OCT 204221020000 
THPTL OCT 


44(») 43($) 


*~ 


FT143580 
FT143590 


OCT 120014000000 
OCT 102010401100 


50(S) 49(/) 
53CV) 52(U) 


48 ( ) 

5IIT) 


FT143600 
FT143610 


OCT 100210041010 
OCT 110200001001 
OCT 000000001042 


56(Y) 55(X) 
59(,) 


54(y) 

57(Z) 
60U) 


FT143620 
FT143630 
FT 143640 



PAGE 373 









TTL TABLES - B C D C N * ! 


FT143650 
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* THIS TABLE IS USED BY C D L A B L TO CONVERT 


BINARY CARD SEQUENCEFT143660 

FT143670 




* NUMBER TO COLUMN BINARY. 




SPACE 3 


FT143680 




BCDCNV VFD 06/00, 015/00000, 15/BCOCNV 


FT143690 




VFD 06/01,015/00000, 15/BCDCNV 


FT143700 




VFD 06/02,015/00000, 15/BCDCNV 


FT143710 




VFD 06/03,015/00000, 15/BCDCNV 


FT143720 




VFD 06/04,015/00000, 15/BCDCNV 


FT143730 




VFD 06/05,015/00000, 15/BCDCNV 


FT143740 




VFD 06/06,015/00000, 15/BCDCNV 


FT143750 




VFD 06/07, 015/00000, 15/BCOCNV 


FT143760 




VFD 06/10,015/00000, 15/BCDCNV 


FT143770 




VFD 06/11,015/00000, 15/BCDCNV 


FT143780 




VFD 06/00,015/00000, 15/BCDCNV+l 


FT 143790 




VFD 06/01, 015/00000, 15/BCDCNV+l 


FT143800 




VFD 06/02, 015/00000, 15/BCDCNV+l 


FT143810 




VFD 06/03,015/00000, 15/BCDCNV+l 


FT143820 




VFD 06/04,015/00000, 15/BCDCNV+l 


FT143830 




VFD 06/05,015/00000, 15/BCDCNV+l 


FT143840 




VFD 06/06 ,015/00000, 15/BCDCNV+l 


FTT43850 




yfD 06/07,015/00000, 15/BCDCNV+l 


FT143860 




VFD 06/10,015/00000, 15/BCDCNV+l 


FT143870 




VFD 06/11, 015/00000, 15/BCDCNV+l 


FT143880 





TTL 



TABLES - MONTH 



MONTH 



THIS 


TABLE IS USED BY G E T C H TO CONVERT 


TO A 


READABLE FORM FOR PAGE HEADINGS. 


SPACE 
BCI 


: 3 

TTdec 19 " 


BCI 


It NOV 19 


BCI 


ltOCT 19 


BCI 


l.SEP 19 


BCI 


It AUG 19 


BCI 


ltJUL 19 


BCI 


ltJUN 19 


BCI 


1,MAY 19 


BCI 


1,APR 19 


BCI 


l.MAR 19 


BCI 


ltFEB 19 


BCI 


It JAN 19 


EQU 


♦ 



A SIX-CHARACTER DATE 



FT 143890 
FT143900 
FT143910 
FT14392C 
FT143930 
FT 143940 
FT143950 
FT143960 
FT143970 
FT143980 
FT 143990 
FT144000 
FT144010 
FT144020 
FT144030 
FT 144040 
FT144050 
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AOREL 



TTL 

OCT 



OCT 76 


OCT 




REM 


♦ 


THE 




REM 


PCWOl 


OCT 


PCWD2 




PCWD3 






REM 


AR6DEL 


OCT 


ARGBIT 


OCT 


DtfLBIT 


OCT 


TUPCQM 


OCT 


TuIBIT 




i-a7bir 




ONL = 






REM 



M IS CELLANEOUS CONSTANTS 
76000660O006 



ORDER OF THE FOLLOWING THREE CARDS IS CRITICAL 
400504000000 



ALLSVN OCT 



777777766000 
770000000000 
007777700000 
77461 

tl 

L 7_ 

1 



777777777777 ALL BITS ON 



TO MASK OUT ALL BUT ARG* NO, 

TO MASK OUT ALL BUT ARG. NO, 

TO MASK OUT ALL BUT DELTA 
ORIGIN COMMON 



FT144060 
FT144G70 
FT144080 
FT144090 
FT144100 
FT144110 
FT144120 

FT144130 

FT 144140 

__ FT144150 

AND DELT AFT 144160 
FT144170 
FT144180 
FT144190 
FT 144200 

FT144 210 

FT144220 
FT144230 
FT 144240 



PAGE 376 



TTL 



U N I T DESIGN A T IONS A NO BUFFERS 



REM 

.SPACE .?.... .. . ... ^ 

#»♦♦**#**** 

REM 

FA S T R AN C M P I L E R 
REM 
RESEARCH COMPUTING CENTER 

REM _ , _, _.. 

INDIANA UNIVERSITY 

REM __ ...__„... 

BLOOMINGTON, INDIANA 

SPACE 3 



REM 

REM 



TAP £ BUFFERS 



FT144250 
FT144260 
FT144270 
FT144280 
FT144290 
FT 144300 
FT 1443 10 
FT144320 
FT144330 
F 1144 340 
FT 144350 
FT144360 
FT144370 
FT144380 
FT144390 
FT144400 
FT144410 
FT144420 
FT144430 
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EQUIVALENCES ARE SET-UP HERE. 



5YSTP1 

MINTAP 



EJECT 

THE LOGICAL/PHYSICAL TAPE _ 

REM 

BUFFER SPACE FOR THE FOLLOWING FOUR TAPES IS ALLOTTED HEREt 

REM 

MINTAP 

MLSTAP 

SYSBIN 

SYSUT1 
SPACE 2 

EACH OF THESE TAPES IS ASSIGNED TWO BUFFERS, 
SPACE 3 
EQU 1 
EQU 5 



SYSTEM INPUT T 
SYSTEM OUTPUT 
SYSTEM (BINARY 
SYSTEM SCRATCH 



APE 

TAPE 

) LOAD TAPE 



TAPE NO. 1 



MLSTAP 
SYSBIN 



PZE 
PZE 



SYSUT1 


EQU 


2 




SPACE 


2 


BUFMIT 


BSS 

REM 

r£m 

REM 
BSS 


604 


BUFNLT 


604 




REM 





SYSTEM TAPE 
SYSTEM INPUT TAPE 



SYSTEM OUTPUT TAPE 
SYSTEM (BINARY) LOAD TAPE 
"SYSTEM UTILITY TAPE NO. 1 



MINTAP- 2 BUFFERS OF 302 WORDS EACH 



(MAX. ALLOWABLE REC. 
1401 = 300 WORDS) 



SIZE AT 



MLSTAP- 2 BUFFERS OF 302 WORDS EACH 
(MAX. ALLOWABLE REC. SIZE AT 



FT 144440 
FT144450 
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FT144460 
FT144470 
FT 144480 
FT 144490 
FT144500 
FT144510 
FT144520 
FT144530 
FT 144540 
FT144550 



FT144560 
FJ144570 
FT144580 
FT144590 
FT144600 
FT14461G 
FT 144620 
FT144630 
FT1 44640 
FT144650 
FT1 44660 
FT144670 



REM 



FT 144690 
FT 144700 
FT144710 
FT144720 
21144730 
FT144746 
FT144750 
FT144760 
FT144770 
FT144780 
FJ144790 
FT 144800 



BUFBIN 



BSS 
REM 



492 



SYSBIN- 2 BUFFERS OF 246 WORDS EACH 
(8 BINARY CARDS/BLOCK) 



REM 
hUFUTl BSS 358 

REM 

REM 

SPACE 2 
*„ A COUPLE OF FMS II MON ITOR CELLS^ 

REM 
L1NECT EQU 97 MONITOR LINE COUNT 

PATEBX EQU 98 



SYSUT1- 2 BUFFERS OF 179 WORDS EACH 
(CIT BLOCK (150) + CITFLG 
BLOCK (25) = 175) 



MONITOR DATE CELL 



TTL 



CELLS R E Q U I R I N G I N I T I A LI 2 AT I NFT144310 PAGE 379 

U C FT144820 



REM 

SPACE __9. 

* * 
REM 



F A S T R AN COMPILER 

p C M 

RESEARCH CO MP U T I N G CENTER 

REM _ _ _ . . — — 

il'TfA NA UNIVERSITY 

REM_ . _._ _._. 

B L OMINGTON, INDIANA 

SPACE _ 3 _. - 

* * * * * * ***** 

REM 



FT144830 
FT 144840 
FT 144350 
FT144860 
FT144870 
FT144880 
FT144890 
FT144900 
FT144910 
FT144920 
FT144930 
FT 144940 
FT14495G 
FT144960 



TTirs REHI R fFG -I N "I T I AT I 2"A T I N FU44980 

- E - H . * * * V - . * "'♦'" ""•'- * * FT 144990 



EJECT 

ALL CELLS LYING BETWEEN TRIGR1 AND TRIGR2 ARE_ZEROED_OUT. 

In the initialization routine. 



TRIGRI 

ST OUT 

GTSWCH 

NGARGS 



OOTRMF 
DOPNTR 



DOFLAG 
FIRSTF 



MODERR 
ENFILF 
L5TSYM 
LPASS1 
PRI QQ " 

S8TTL 

SBNAME 

SBBK" 

SNAME 

to mm 

NOC ODE 

T 13 ft C 1 i'"* 

ERHERE 



WRKCEL 
PCOUNT 



PGMCTR 
LABEL 



LABFLG 
ROUNDF 
MODFLG 

* 

LTVEC T 
LPROLG 
L4RSTS 
L TEXTS 
LCONST 
MOCONT 
LSTRIN 
LNQRKS 
LVAR8S 
LCOMMN 

CiTBL6 
CIT8L7 




DEMARCATE START OF INITIALIZATION BLOCK 
FLAG FOR SYMBOL TABLE 



NUMBER OF SUBROUTIN E ARG U M ENTS 

POINTER FOR DO STACK 

DO FLAG CELL, TURNED ON BY A DO STATEMENT 
STATEMENT COUNTER 

MODE" ERROR FLAG 

END-OF-FILE FLAG. 

ON TO CAUSE DUMP OF SYMBOL TABLE 
ON TO FORCER LI STING OF PASS1 OUTPUT 
ON TO CAUSE ON-LINE PRINTING OF 
COMJPILER OUJPUJ. 

ON IF SUBTITLING IS IN EFFECT 

NAME OF SUBPROGRAM BEING COMPILED 



FT145000 
FT145010 
FT145020 
FT145030 
FT145040 
FT145050 
FT145060 
FT145070 
FT145080 
FTJL45090 
FT 145 lOO 
FT145110 
FT145120 
FJ 145 130 
FT145140 
FT14515G 
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FT145160 
FT145170 
FT145180 
FT145190 



NUMBER OF ITEMS IN THE COMMON TABLE 
ON TO TURN OFF EXECUTION AND CODING 



r»AfJSppp command FLAG CELL 

FLAG FOR ERROR IN CURRENT STATEMENT 



H F*Hr4"5 r 2^0^ 
FT145210 
FT 145 220 
FJ 145230 
FT 145240 
FT145250 



WORKING CELL DIRECTOR WORD 
TEXT COUNTER 



PROGRAM COUNTER 

HOLDS THE LABELING FOR THE BINARY DECK 



ON WHEN NO MORE LABELING POSSIBLE 

ON IF FLOATING ROUND OPTION IS IN EFF ECT 

MODE "FLAG "'CELL. ADORESS HAS COLUMN 1 MODE 



LENGTH* CELLS MUST RETAIN THEIR RELATIVE ORDER. 

LENGT H O F TRAN SFER VE CTOR 

LENGTH OF PROLOGUE 

LENGTH OF ARITHMETIC STATEM ENT FUNCT IONS 

LENGTH QF™T~E~xT 

L ENGT H OF CONST ANTS 

NUMBER TOF CONSTANTS IN CONSTANT TABLE 
LENGTH OF STRINGS (FORMAT STATEMENTS) 



FT145260 
FT14527G 
FT145280 
FT145290 
FT145300 
FT145310 
FT145320 
FT14533Q 
FT145340 
FT145350 
FT145360 
FT145370 
FT145380 
FT 145 390 
FT145400 
FT145410 



LENGTH OF WORKING STORAGE 
LENGTH OF VARIABLES 



LENGTH OF COMMON STORAGE 



FT145420 
FT14543G 

FT 145440 
FT145450 



FT145460 
FT145470 



CISWTH 

CITSW1 



BSS 
BSS 



SWITCH TO INDICATE NO RECORDS ON SYSUT1 



CITSW2 

S JL SW JL 

TVSW1 
JVSW2 

tLTwth 

OVERFG 



BSS 
BSS 
BSS 
BSS 
BSS 
BSS 



LAST FLAG SWITCH 



FT145480 
FT145490 
FT 145500 
FT 145510 
"FT 145 520 
FT145530 



USED IN STASHING VARIABLES 



FT145540 
FT145550 



XRFLAG 
M OXRS 

9LEFT 



BSS 
BSS 

REM 
BSS 



1 
1 

24 



INDEX REGISTER FLAG CELL 
NUMBER OF XRS USED IN OBJECT PROGRAM 



BINARY OUTPUT IMAGE 



FT145560 

FT145570 
FT 145580 

FT145590 



SUM 
bLtFT 

BRIGHT 

Tfflag" 

FORFLG 
"CPOINT 
SCAN14 
ASNFLG 
ISTKFG 
TtRMFG 
D8LMOD 
FLAG)I 
FLAG)2 



GAR820 
GARB19 
GARB 13 
GAPJB17. 
"GARB 16 
GAR 615 

GETRFL 
TRIGR2 



EQU 

EQU 

EQU 

REM 

BSS 

BSS 

BSS 

bSS 

BSS 

BSS 

BSS 

BSS 

BSS 

BSS 

REM 

THE 

BSS 

BSS 

BSS 

BSS 



BSS 
BSS 
REM 
BSS 
EQU 



9LEFT+1 
9LEFT+2 
9LEFT+3 

1 " " 

1 
1 
1 
1 
1 
1 
1 
1 
1 



ON 
ON 



IF 
IF 



FT145600 
FT14561G 
FT145620 
FT145630 
FT 145640 
FT145650 
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AN ARRAY" NAMED 'IF* HAS BEEN FOUND 
ARRAY NAMED 'FORMAT' HAS_BE£NFOUND 
POSITION POINTER. DECREMENT INTEGERFT145660 

FT145670 

POINTS TO FIRST ASSIGN STACK 
TELLS BEGINNING AND END OF IST ACK ENIRJES 
CURRENT BOTTOM OF EQUIVALENCE STACKS 
INDICATES EITHER DOUBLE OR COMPLEX STATE. 



ON AFTER CONSTANT 
ON IF 0377777 HAS 



HAS BEEN 
BEEN PUT 



PUT IN STORAGE 
INTO STORAGE. 



THE FOLLOWING SIX CELLS IS CRITICAL -- 
" DIMENSIONED, COMMON 

NON-DIMENSIONED, COMMON. _... 
DIMENSIONED, NON-COMMON 

______ JION-DIMENSIONED. NON-COMMON 

™' STRINGS 
LABELS 



FLAG CELL GOVERNING JR^ADING_OF_ NEXJ_ ^P 

Th^ »* An «~ *r c c*tr\ nc I M T T f A 1 T 7 AT T ON BLOCK 



FT145680 
FI145690 
FT145700 
FF14571G 
FT145720 
FT145730 
FT145740 
USED BY M A PFT145750 
FT145760 
FT145770 
FT145780 
FT145790 
Ffl*5$00 
FT1458J0 
' FT145820 
FT145830 
Ffi45840 



CMNBRK 


BSS 


PRQCSW 


BSS 


EMTRY 


BSS 


FNCTFL 


BSS 


RiNFLG 


BSS 


PNFLAG 


BSS 


CXFLAG 


BSS 


PCNT 


BSS 


SCAN5B 


BSS 


1I'KAN2 


BSS 


ADOIN 


BSS 




REM 


NXTLOC 


BSS 


DPQ1NT 


EQU 



EPUINT 



CUL73 



TTL 
REM 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
REM 
BSS 
EQU 

REM 
REM 
REM 
B15S 
BSS 
REM 
BSS 



MISCELLANEOUS WORKING CELLS 



CO^llM 



BSS 
REM 



CXTB15 
SAVINO 
CITBL5 
STSW2 

XT'vpr'l 

L1VPRT 
LTVi>fS 
LJPTSC 
LTHRUS 
LTHRUW 
PGMBRK 
IVARBS 

ERASE 



GETFGA 
ERASE! 



BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
EQU 
BSS 
BSS 
BSS 
BSS 
BSS 
REM 
BSS 
EQU 
BSS 



ERASE2 
ERASES 
ERASE4 
LPBOOY 

LUCEND 

RTNMOD 



BSS 
BSS 
BSS 
BSS 

REM 

JLSS 
REM 

BSS 



P^NDIO 
RASCAL 



REM 
BSS 
BSS 

REM 



DUARG2 

GcTIB 

IGLT11 

IOLT12 

I0LT13 

10LT14 



BSS 
BSS 
BSiS 
BSS 
BSS 
BSS 



FT145850 
FT145860 
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LOCATION - 1 OF LOWEST COMMON USED 
VARIABLE PROCESSOR SWITCH 

ON FOR FUNCTION SUBPROGRAM 



NUMBER OF RETURN STATEMENTS IN PROGRAM 

HOLDS CURRENT P_AREN TYPE 

INDICATES POSSIBLE COMPLEX CONSTANT SITUAT 
PARSN LEVEL COUNT CELL ______ 

SCRATCH FOR THE ACANNER 

DATA CELL FOR THE TRANSFER-TYPE PROCESSORS 

HOLDS CONSTANT ADDEND AT STASH TIME 



NEXT AVAILABLE LOCATION IN POOL 



NXTLOC 
NXTLOC 



THESE CELLS 
OPERANDS AT 
HOLDS EQU IV 
HOLDS EQU IV 
SECOND WORD 



EQUIVALENTS OF 
GENERATION TIME. 



HOLD 

CODE 

Ft)R Lf FT-ttANer 'FACTO* 
FOR RIGHT-HAND FACTOR 



HOLDS ASTACK LOCATION 



FT145870 
FT145880 
FT145890 
FT145900 
FT145910 
FT145920 
.FT145930 
FT145940 
FT 145 950 
FT14596G 
FT145970 
FT145980 
FT 145990 
FT 146000 
FT 146010 
FT146020 
FT146030 
FT146040 
FT t4*C50 
FJ146060 
FT 146070 
FT 146080 
FT 146090 
FT146100 



1 
1 

1 

1 

1 

LTVPRT 

1 

1 

1 

1 

1 



TEMPORARY CELL 



BUMP PCOUNT ONLY IF THIS CELL IS ZERO 
L f VE Cf V L PROL G 



FT146110 
FT146JL20 
FT146130 
FT146140 
FT146150 
£1146160 
FT 146170 
FT146180 
FT146190 
FT146200 



FT146210 
FT146220 
Ft 146230 
FT146240 



ERASE 

1 



FT146250 
FT146260 



FT146270 
FT14628G 



LENGTH OF BODY OF PROLOGUE 

THIS CELL SET TO PCOUNT WHEN END 



FT146290 
FT 146300 
FT 14631 6 
STATEMENT FT146320 



IS ENCOUNTERED 

H OLDS MODE OF FUNCTION AS D EFINE D 

1 ON RETURN STATEMENTS 



ON WHEN LAST PREVIOUS EXECUTABLE 
WAS A CALL 



FT146330 

BY C0LUMNFT146340 

FT146350 

f T146360 

STATEMENT FT 146370 
FT146380 



TITLE CARD LIST FLAG CELL 



FT146390 
FT146400 
FT146410 
FT 146420 
F f 146430 
FT146440 



CURPTR 


BES 
REM 


3 


iOLVL 


BSS 


1 


NODOAR 


BSS 


1 


A^TR 


BSS 


1 


PPTR 


BSS 


1 


SAVE 


BSS 


1 


HI FLAG 


BSS 


1 


M2FLAG 


BSS 


1 


*UVAR 


BSS 


1 


&ZVAR 


BSS 


1 


M3VAR 


BSS 


1 


DuTRMJ 


BSS 


1 


DVSTFG 


BSS 


1 


GtlN6 


BSS 


1 




REM 




KcGIST 


BSS 

REM 
REM 


2_ 




REM 




REGFLG 


BSS 


1 



ASTACK POINTERS FOR EACH 



4* 
LEVEL 



USED BY ROUTINES STZTST AND STZTSD 



A u X F L G 

CuD4 
COD6 



BSS 
BSS 
SSS 
BSS 



HOLDS REGISTER LOCATION Of RESULT OF 
A CODE GENERATION. 

00 = VS, 01 = AC, 10 =_MQ_ 

STTCONflDi WORD ADDKES S GETS AST ACK TOINf E R * 

UN IF PSEUDO REG RESULT IS IN AC+HQ_, 

INDICATES IF »PLACE« OR 'STORE* ROUTINE 



C0D31 
SPCDFG 



BSS 
BSS 



SYMST1 

STOLBl 

GrTW R7 

SCANHT 

HFLAG 

STOSAV 




DP AND CA ROUTING FLA G IN CODE ROUTINE 



TEMPORARY 



temporary storage for mq 

must be zeroed at beginning of_each state. 

Temporary cell used by store routine 



SCAN ROUTINE 

SCRATCH LOCATIONS FOR SCANNER 



FT146450 
FT146460 
FT146470 
FT146480 
FT14649G 
FT146500 
FT146510 
FT146520 
FT146530 
FTJ 46540 
FT146550 
FT146560 
FT146570 
FT146580 
FT146590 
111 46 60 0_ 
FT 146610 
FT146620 
FT146630 
FT146640 
FT 146650 
FT 146660 
FT146670 
FT 146680 
FT 146690 
FT146700_ 
F T 146 710 
FT146720^ 
FT146730 
FT 146740 
FT146750 
FT146760 
FT 146770 
FT146780 
FT146790 
FT146800 
FT146810 
FT146820 
FT146830 
FT146840 
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HOLDS INTEGER PART OF i 
HOLDS HIGH + LOW PARTS 



i CONSTANT 
OF FLOATING 



FT 146850 
CONSTANTFT146860 



ADJUST I VE" "EXPONENT IF LEADING ZEROS 



FT146870 
FT146880 



ARGCNT 
STOCEL 
'CMP SI 



BSS 
BSS 
BSS 

REM 



"INDICATES DECIMAL POINT IN CONSTANT FT146890 
USED TO HOLD FIRST P ART OF COMPLEX CQNSTANTF T146900 
HOLDS T SECOND PART 0F~ COMPLEX CONSTANT FT146910 
START O F LAST-BU ILT ASS IGN STACK IN POOL FT 146920 
CONTAINS 'NAME 1 OF CURRENT ROUTINE FT146930 
HOLDS WORKING CELL POINTER FOR CELL 2 SAVE FT146940 
— FT 146950 

FT146960 
FT 1469 70 
FT146980 
FT 146990 
FT147000 



HOLDS EQU IV (POOL) POINTER FOR START 
OF CALLING SEQUENCE. . 



'WuMBER™OF™ARGUMENTS~ IN CALLING SEQUENCE 
HOLDS CURRENT HI-CORE A RGUMEN T L OCA TION 
"WORKING STORAGE 



* CELLS USED BY THE 
IMITFG BSS 1 



EQUIVALENCE PROCESSOR 

BEGINNING OF EQUTBL DIRECTOR STACK 



PRIOR 
LINKER 



BSS 
BSS 



ON 
ON 



IF 
IF 



NEW STACK HAS BEEN STARTED 

LINK TO OLD STACK HAS BEEN FO UND 



FT147010 
FT14 7020 
FT 147030 
FT147040 



hi 

U) 
TOP 

DEL 

DELI 

Ti 



13 



.STT 
CMLT " 
CADD 

TarF 

VINO 
DIK1 

1 H N 

ASIGN 

SAV1 



BSS 1 
BSS 1 
BSS 1 

BSS 1 
BSS "l 
BSS 1 

BSS 1 ■" 

REM 

WORKING CELLS FOR THE SUBSCRIPT PROCESSOR 

THE ORDER OF THESE CELLS IS CRITICAL 

EQU ' ~ """ 

BSS 



TOP OF CURRENT CHAIN OF STACKS 
BOTTOM OF CURRENT CHAIN OF ST ACKS _ 
TOP OF NEW STACK NOW BEING BUILT 
SUBSCRIPT DIFFER ENCE USED IN O LD STACKS 
SUBSCRIPT INCREMENT FOR CURRENT STACK 



EQU 
BSS 
EQU 

JLSS 

ass 

EQU 
BSS 

BS-S" 
BSS 



BSS 
BSS 



SAV2 
SAV3 



BSS 

BSS 



T£MPX 
CONAOD 



BSS 
BSS 



NT 



EQU 
REM 




FT147050 

FT147060 

FT147070 

FT14708Q 

FT147090 

FT147100 

FT14711G 

FT147120 

FT147130 

„FJ14714G 

FT 147 150 

FT147160 

FT147170 

FT147180 

FT147190 

FT147200 

FT147210 

FT147220 

Ft 147230 

FT147240 

JFT147250 

FT147260 

FT 1472 70 

FT147280 



' * t T» 1 j 



FT147300 



SUBSCRIPT WORKING CELLS 



FT147310 
FT147320 



exijfg 

CALLFG 

SUBFLG 

"arTtfn 

_ARFLAG 
EQULFG 

SYMTS 



CELLS 
BSS 

BSS 
BSS 
BSS 
BSS 
REH 
BSS 
REH 
REH 
REH 



USED 
1 
1 
_1 

i 
i 



BY THE COMPIL ROUTINE 

NON-ZERO FOR IF AND CALL TYPE STATEMENTS 



FT147330 
FT147340 
FT14735G 
FT147360 
FT14737G 



ON FOR CALL AND FORTRAN FUNCTION 

MJLLJL SUBSCRIPT APPEARS^ 1N_THIS ST ATEMENTFT 1 47380 
ON IF THIS IS AN ARITH. STATEMENT TuNCT I ON FT 147390 
*!_.WHEN PROCESSING A CALL TO AN INTERNAL FNFT 147400 



FLAG FOR INDICATING = 
ENCOUNTERED 



SIGN HAS BEEN 



CONTAINS EQUIVALENT OF OPERAND OR OPERATOR 
BEFORE STORI NG IN THE ARITHMETIC STACK. 



DOSTAK 
LASTAK 



LDOSTK EQU 
REM 
BES 

_ ^^ 
BSS 
AST ACK BSS 

REM 

BSS 

REM 
REM 



75 



LENGTH 
OF 25 



OF THE DO STACK. NESTING LEVEL~T 



FT147410 
FT147420 
FT 147430 
FT 147440 
Ffl 47450 
FT147460 



LDOSTK 
200 _ 
LASTAK 
1 



DO STACK 
LENGTH OF 



THE ARITHMETIC STACK 



■UARUgJ:__THE ARIT HMETIC STACK C RUNS BACK- 



REM 
REM 



WARS IN CORE) 
ASTACK+1 MUST 
FUNCTIONING OF 
INITIALIZATION 



BE ALL ONES FOR PROPER 



THE CELL. 



THE COMPILE ROUTINE." 

OF THE COMPILER SHOULD SET 



PSTACK 



BSS 
BSS 



25 
1 



MAXFT147470 
FT147480 
FT 147490 
FT147500 
FT147510 
FT147520 
Ft 147530 
_FT147540 
FT14755G 
FT147560 
Ffl 47570 
FT147580 



PRLNGH 
PRLTBL 



REM 
EQU 
BSS 
REM 



180 
PRLNGH 



PAREN STACK 



FT147590 
FT147600 



LENGTH _0F_ PROLOGUE 
PROLOGUE TABLE" 



TABLE 



FT147610 
FT147620 



FT147630 
FT 147640 
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card 

UNLBL 
UNSTR 
UNVAR 

nopth" 
cTtlng" 

C1T1 
CfT2 
CiFLGl 
CTFLG2 

CHATCH 
MQ_CNST 

CONTAB 



CO^FLCL 
HANGMX 

tjELMAX 

currfg" 

CICELL 
"IOFLAG 
DEFINE 
ORIGIN 
HONTOR 
MAXNLC 
LASTLA 
STW1 



BSS 

EQU 

EQU 

EpU 

EQU 

REM 

EQU 

BSS 

BSS 

BSS 

BSS 

REH 

EQU 

EQU 

BSS 

EQ U 

REM 

REM 

BSS 

"EQU 

EQU 

EQU 
EQU 
EQU 

OCT 



115 
CARD+24 



STATEMENT BUFFER 



UNLBL+25 
UNSTR+25 
UNVAR+25 

150 

CITLNG 
CITLNG 
CITLNG 76. 
CITLNG/ 6 



300 

NOCNST 

*-l 



10 
.P 



• P+l 
.P+2 



• P+3 

• P+6 
.P+7 



USE END OF CONTAB FOR OCTAL PATCHING 
LENGTH OF CON ST AN TRIABLE 



nn». -»i-nn «-•-*« iwnilT I TCT 



7con cno niiTPHT. 



FT147650 
FT147660 
FT147670 
FT147680 
FT147690 
FT147700 
FT147710 
FT147720 
FT147730 

FT 147750 

FU4776G 

FT147770 

FT147730 

FT147790 

FT 1 47800, 

FT147810 

FT147820 

FT147830 

FT 147840 

pri47B50 

FT147860 

FT 147870 

FT 1478 80 

FT I 47 890 

FT147900 
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• P+8 

't , POOL-COlUMN+T 
600526000000 



NON-ZERO IMPLIES MONITORED RUN 
MAXIMUM POOL AREA AVAILABLE 
COTAINS LOOK-AHEAD OF LAST CARD 



FT147910 
FT14792Q 
FT 147930 
FT147940 
FT147950 



TTL A B" SO L'U T"e"""S Y M B L DEFINITIONS 



I NO I A N A U >4 I V E R S I T Y 
B L M I N't; T OllT I "NO I A N A 



* * 



FT147960 PAGe 386 

FT147970 

FT147980 



REM FT 147990 

.SP*«.-— 5L~ - -■— . - -~ » ' " " FT148000 

****** FJ148010 

REH _ ---— .r-p- TT p „ ~ " FT148020 

FASTRAN COMPILER 



FJ148030 

REM___ _- , ^-^--.7 ~ .. -» "^ «-?- r cm t c o FT148040 

FT148050 



RES EAR C H COM P U T I NG CENTER 

REM ._ _ „.,. .,,, ^ V ".T--^«-e--ir™r" T r""T**v'""" — " """ " ' ' FT 148060 

FT 148070 

REM ..... . ... _ ~.- ; --- w T A - M - A - FT148080 

FT148090 



SPACE 3 _ _ - — - # - FT148100 

* * * FT148110 



REM _ _ T ~™ — _— — - - - "ft 148 120 

BTTfU 11 SYMBOL DEFINITIONS FT148130 

RJM_. - - - - -i ~ * ♦ FT 148 140 

*********** 



EJECT 

SYMBOL TABLE MODE CONFIGURATIONS 



MLABL 
HSTRG 

jMXNTG 
KREAL 



BOOL 



BOOL 

BOOL 

BOOL 

REM 

REM 

REM 

FLAGS 



OQOQOQ 

i 06666 
200000 



LABEL 



300000 



STRING 

INTEGER 

REAL 



FOR EQUIV ENTRY IN THE SYMBOL TABLE SCHEME 



BiNTF 



BOOL 
REM 



10 



BEXTF 


BOOL 


20 


BARRY 


BOOL 


40 


BASSN 


BOOL 
REM 


100 


bLIBF 


BOOL 
REM 


IOC 


bARG'T 


BOOL 


200 


6C0MN 


BOOL 


400 


BEQUV 


BOOL 


1000 


bLHSX 


BOOL 


10000 




n t~ u 





BVARB BOOL 



20000 



REM 
REM 



INTERNAL FUNCTION NAME (ARITHMETIC 

STATEMENT FUNCTION) _ 

EXTERNAL NAME 

VARIABLE IN DIMEN SION STATEMENT __ 

VARIABLE IN ASSIGN OR ASSIGNED GO TO 

STATEMENT 

IF~ BEXTF IS ON, EXTERNAL "FUNCTION I S 

LIBRARY TYPE. 

SUBFROGKAW PARAKETEft 

VARIABLE IN COMMON STORAGE 

VARIABLE IN EQUIVALENCE STATEMENT 
VARIABLE OR LABEL OR FORMAT LABEL 1$ 



SYMBOL APPEARS IN VARIABLE CONTEXT IN 
AN EXECUTABLE STATEMENT, I.E. IT MUST BE 
DEFINED. 



BPATH 
BD0U8 



BOOL 
BOOL 



40000 
40000 



LABEL IS IN PATH OF FLOW 

SUPPLY DOUBLE-LENGTH STO RAGE FOR VARIABLE 



REM 
REM 
REM 
FLAGS 



FOR ASTACK FORM OF EQUIV WORD 



* 




&CNST 


BOOL 


B3PRX 


BOOL 


BAR IT 


BOOL 




REM 


BOPNF 


BOOL 




REM 




REM 




REM 




REM 


* 
6 


INDEXING 




REM 


B1NDX 


BOOL 


8IXXR 


BOOL 




REM 



2 

100 



USED 
USED 
USED 



TO 
TO 
TO 
OF 
DENOTES 
RATHER 



FLAG 
FLAG 
FLAG 



ASTACK 
ASTACK 
ASTACK 



ENTRIES AS CONSTANTS 



ENTRIES 
ENTRIES 



AS 
AS 



OPERATORS 
ARGUMENTS 



ARITHMETIC STATEMENT FUNCTIONS 

OPEN (B UILT-IN) FUNCTION 

THAN ARITHMETIC STATEMENT FUNCTION 



FT148150 
FT148160 
FT 148170 
FT 148 180 
FT148190 
FT148200 
FT148210 
FT148220 
FT148230 
FT148240 
FT 148250 
FT148260 
FT148270 
FT148280 
FT 148290 
FT 148300 
FT148310 
FT148320 
FT148330 
FT148340 
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FT14S350 
FT148360 
FT 148 3 70 
FT 148380 
FT148390 
FT148400 



FT148410 
FT148420 
FT 148430 

FT 148^0 
FT 148450 
FT148460 
FT148470 
FT148480 
FT148490 
FT148500 
FT148510 
FT148520 
FT148530 
FT148540 



FT148550 
FT148560 



FT 148570 
FT148580 



ING INFORMATION FLAGS FOR EQUIV 



FT148590 
FT148600 







FOLLOWING TWO FLAGS ARE NOT ACTIVE NOW. 
VARIABLE IS IN AN INDEX OF SOME KIND 



8001 X 



TASSN 
TGOTO 



BOOL 

REM 

REM 

REM 

BOOL 

BOOL 




4000 



100000 
200000 



INDEX IS IN AN INDEX REGISTER 



INDEX OF AN OPEN DO LOOP 



FLAG FOR ASSIGN STACK. IN ASSIGN STATEMENT 
IN ASSIGNED GO TO STATEMENT 



FT148610 
FT14862_0 
FT148630 
FT148640 
FT148650 
FJT148660 
FT 148670 
FT148680 
FT148690 
FT148700 



SPACE 



DECREMENT FLAGS TO CITBLO 



FT148710 
FT148720 



EQU 







NO RELOCATION, ABSOLUTE 



FT148730 
FT 148 740 





REM 


p 


EQU 




REM 




REM 


R 


EQU 




REM 



REM 
REM 
EQU 

R JL M 
REM 

REM 



REM 
REM 
EQU 
REM 

Tqu 

REM 



INSTRUCTION ADDRESS CONTAJNS A VALUE OF 
PCOUNT. TEXT RELOCATION 



INSTRUCTION "ADDRESS CONTAINS POINTER 
TO EQU IV. TEXT RELOCATION OF EQUIV 



ADDRESS FIELD. 



FT148750 
FT148760 
FT148770 
FT148780 
FT148790 
FT148800 
FT148810 
FT148820 
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REM 




REM 




T EQU 


4 


REM 




REM 




F EQU 


5 


REM 




REM 




c em; 


6 


REM 




REM 




REM 






7 


REM 




REM 




X EQU 
REM 


8 


REM 




REM 




w EQU 


9 


REM 




REM 




REM 




£ EQU 


10 



INSTRUCTION ADDRESS IS POINTER TO EQUIV. 
IF 8C0MN FLAG IS ON, COMMON RELOC ATION I 
DONE ON EQUIV ADDRESS FIELD. IF BCOMN 
IS OFF, VARIABLE RELOCATION IS DONE ON E 
EQUIV ADDRESS FIELD. 



INSTRUCTION ADDRESS CONTAINS POINTER 
TO EQUIV. EXTERNAL SYMBOL RELOCATION. 



INSTRUCTION ADD RESS CONTA INS POINTER TO 
EQUIV. FORMAT STRING RELOCATION 



INS TRUCf I ON ADORE SS CWT AI^S-PCH^TE R 

tq^cqnstant table, constant relocation 
special symbol Table 



FT148830 
SFT148840 
FT 148850 
QFT148860 
FT 148 870 
FT148880 
FT148890 
FJ148900 
"Ft" i 48910 
FT148920 
FT148930 
FT148940 
FX14a950 
FJ 148960 
FT 148970 
FT148980 



INStRUCTION AODRESS CONTAINS ADDRESS OF 
LIBRARY SUBPROGRAM IN SLNTAB 



FT148990 
FT149000 



CAUSES A TRANS FER TO BE GENERATED TO __ 
THE RESTORE AND RETURN SECTION OF A 
S UBPROGRA M. 

INSTRUCTION ADDRES S CONTAINS NUMBER 
dr WORKING CELL USED. WORKING CELL 
Rt LOCATION. __„„._ - - ■ 

INSTRUCTION ADDR ESS C ONTAINS RJFERENCE 

TO EXTERNAL (NON-LIBRARY) SUBPROGRAM ENTRY 



& 


EQU 




REM 


H 


EQU 




REM 




REM 


I 


EQU 




REM 


J 


EQU 




REM 


EMD 


BOOL 




REM 




REM 




REM 


* 


BCD CHAf 



11 



12 



13 



CONSTANT ADDEND FLAG 



FT149010 
FT149Q2Q 
FT149030 
FT149040 
FT149050 
FT149060 
FT149070 
FT149080 
Ffi49090 
FT149100 
FT149110 
FT149120 
FT149130 
FT149140 



"ADDEND =T AND VARIABLE RELOCATION 



ADDEND ~~= -1 AND VARIABLE RELOCATION 



14 



15 



BEGINNING OF TEXT 



OPEN 



16 



77 



OPEN 



FT149150 
FT149160 
FT 149170 
FT149180_ 
FT149190 
FT149200 
FT 149216 
FT149220 

FT149240 



FINAL CIT FLAG DEFINITION 



EQUIVALENTS 



liUCHAR 
FCHAR ~ 
RPCHAR 



BOOL 



BOOL 
BOOL 



13 
26 
34 



f 1H OCTAL 
FIN OCTAL 
) IN OCTAL 



FT 149250 
FT149260 
FT 149270 
FT149280 
FT 149290 
_FT149300 
FT 1493 10 
FT149320 
FT149330 
FT149340 



CMCHAR 


BOOL 73 COMMA IN OCTAL 


FT149350 


LPCHAR 


BOOL 74 ( IN OCTAL 


FT149360 


EOS 


BOOL 77 END-QF-STATEMENT 


FT149370 




REM 


FT149380 




REM 


FT149390 




REM 


FT149400 


* 


PROCSW (PROCESSOR FLAG WORD FORMED BY SPRSW MACRO) BITS 


FT149410 


* 




FT149420 


BXEQ 


BOOL 400000 


FT149430 


BTRANS 


BOOL 200000 


FT149440 


BOO 


BOOL 100000 


FT149450 


nCALL 


BOOL 40000 PROCSW FLAG INDICATING CALL STATEMENT 


FT149460 


BcND 


BOOL 20000 PROCSW FLAG INDICATING END STATEMENT 


FT149470 




REM 


FT149480 




EQU 1 


FT 149490 


NOXEQ 


EQU 


FT149500 


TRANS 


EQU 1 


FT149510 


rJQTRA 


EQU 


FT149520 


DO 


EQU 1 


FT149530 


r*ODO 


ECU 


FT149540 




SPACE 3 


FT149550 


« 


TAPE MODE DEFINITIONS 


FT149560 


* 




FT149570 


DEC 


EQU 


FT149580 


U T *l A D V 


CAN 1 


i=t V495QQ 




REM 


FT149600 




REM 


FT149610 




REM 


FT149620 


* 


DECREMENT FLAGS USED BY RESULT ROUTINE 


FT149630 


* 




FT149640 


vs 


EQU VARIABLE STORAGE 


FT149650 


Aiu» 


EQU 1 AC 


FT149660 


H?a 


EQU 2 MQ 


FTL49670 


P4C 


EQU 5 PSEUDO-AC AND REAL AC+MQ 


FT149680 


PMQ 


EQU 6 PSEUDO-MQ AND REAL AC+MQ 


FT 149690 




REM 


FT149700 




REM 


FT149710 




REM 


FT149720 


# 


DEFINITIONS USED BY THE GENERATOR KEY TABLES 


FT149730 


» 




FT149740 


INTEGR 


EQU 2 


FT149750 


REAL 


EQU 3 


FT149760 




REM 


FT149770 


AUXIL 


BOOL 377 »0P i CODE FOR PLACE AND STORE ROUTINES 


FT149780 




REM 


FT149790 




REM 


FT149800 




REM 


FT149810 


• • 


EQU 


FT149820 


10PCOR 


BOOL 77777 TOP OF CORE 


FT149830 


GvFLOW 


BOOL 77462 OVERFLOW CELL (COMMON+1) 


FT149840 


STCC 


BOOL 20 PRGBOX BIT FOR SYMBOL TABLE CARD 


FT 1498 50 


P3GBOX 


EQU 18 MONITOR CELL 


FT149860 
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t Q U I V , SYMTA8 



REH 
SPACE 9 

*********** 
REM 

FAS f R a'n"T0"h"p""i'L E'r" 
REM 

RESEARCH COMPUTING C E N T E R 
R EM 

INDIANA UNIVERSITY 
REH 

BLOOMING f N 7 IN D I ANA 
SPACE 3 

REM 



P G Q L , E Q U I V , S Y M T A B 



REH 



FT149880 
FT149890 
„F T149900 
FT 149910 
FT 149920 
FT149930 
FT149940 



FT149950 
FT 149960 
FT 149970 
FT149930 
FT149990 
FT150000 
FT150010 
FT150020 
FT150030 
FT150G40 
FT 150050 





EJECT 




LSYMTB 


EQU 


4096 


SYMTAB 


EQU 


TOPCOR 




REM 


.—^V- „. 


l.UIV 


EQU 


topcor-lsy'mtb- 




REM 




POOL 


EQU 


EQUW-LSYMfB-1 


DIMTBL 


EQU 


POOL 


EQUTBL 


EQU 


POOL 



LENGTH _0f THE SYMBOL ..TABLE _- ._ 
ORIGIN OF SYMBOL TABLE 

1 OR f GIN OR EQU I V ALENT T ABL E 

orTgin'of "sYor AGE" "POOL '" 



FT150060 
FT150070 
FT150080 
FT150090 
FT150100 
FT150110 
FT150120 
FT150130 
FT150140 
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INDREG 



rri 

TRA 

SPACE 

PLEASE 



£ N 
1,4 
6 
MOTE 



OF 



***** 



A S T R A N CO MP I L E R 

* ■ * ** _# JEM f OR AR Y MiyRll_fOR^IN_0 > R L EG_RQU T_I N E 



r ^ T rnf£^L? TILUe SPACE ' THE 8SS ARRAY^COLUTN^ ~ 

POOL THF HP^tr U-i 1 ^^^— 4 ^^-^^ 6 LITERALS AND BELOW 
?2p ,\J , r?fo!? ITI ° N ° F ,C0 «-UMW (ON THE"ENO-CAROrTs~- 
TOXOID HivfNG'io ipER^ S. L .9 B !!S1S? * ^CESSMVAITERAL, AND 

mrs^uirT^^^ 

CALLED 'COLUMN*. 



FT150150 
FT 150160 
FT 150170 
FT150180 



THE COLUMN REGION BY 'COLljMN+1 - , 

7^tr^iT^?J JI771I77771) I$ N0W_6ENERATF», 
USAGE TO PUT A SCRATCH CELLTTThE LOCATION 



* &*«» 

* #**# 

* »*** 

* , 
* 

■"?. - - 

# 



REM "" '" 

ANY ACTUAL REFERENCES TO THE BIT CONFIGURATION 
OCTAL 777777777777 MUST BE MADE BY USlNGnrHTTrLr^ALLS V*H 
-PJLM*" USE THE LITERAL, ******* ALLiVN . 

REM „___„_ _____ ___ _ 

TH M.A R I TWO PURPOSES FOR THIS MANEUVER. FIRST uwrp onm 
OVERFLOW IS TESTED FOR ONLY AT ThF H ^A^TWMTir^ 1 - 
THE POOL MAY OVERFLOW SIGNIFICANTLY BEFORE THE ^EST ifiloF 

•MmlliY * -TJH5«JlECEssjnui^^^^ the restoring of the 

.SECOND, ALL SECTIONS OF THE COMPILER AFTER PASS1 CAN MAKE USE 



AN EXPANDED POOL REGION WHTrwl^rTTmr 
SPACE 2 



OF 



v-ulumn cells. 



pze 

ORG 



REM 
LCQL MN EQU 

REM 
ju JLUMN END 
*~ END TAPE 



=0777777777777 FORCE 

*~! ,. re-use the 



OUT THE ALL 
DUMMY CELL 



BIT LITERAL 



FT150190 
FU50200 
FT 150210 
FT150220 
FT150230 
FT 150240 
FT150250 
FT150260 
FT150270 
FT150280 
FT 150290 
FT150300 
FT150310 
_F_T150320 
FT150330" 

FT150350 
f T150360 
FT 150370 
_FT_150380 
Ft 150390 
FT150400 



666 



BEGINX 



LENGTH OF THE COLUM N ARRAY 
-END ^ CARD _ ANDJ)E F I NIT I ON OF COLUMN ARR AY 



FT150410 
FT 150420 
FT150430 
FT150440 
FT 150450 
_FT150460 
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